[[20141028133237]]　『フォーム在庫表示』（ayu）　ページの最後に飛ぶ

『フォーム在庫表示』（ayu）

前回聞いたのですが、返信が無かったので、もう一度質問させてください。
下記リンク先で聞いたものの続きです。

[[20140923165632]]　『Excel VBAでの質問です。』（ayu）

前回教えていだたいた、ﾏｸﾛをﾌｫｰﾑへ組み込む方法がよくわからず困っています。

やりたいことは料理名を選択した時にフォーム上に作れる人数（数字）を表示させたいです。

優先順位1から優先順位3がフォーム（frm2）にあり、

優先順位1のコンボボックスにイチゴジャムを選択したときに、
その横のにあるテキストボックスに数字3など表示できるような形にしたいのですが、よくわからないので困っています。
Private Sub UserForm_Initialize() 'フォームを読み込んだとき

Dim i As Integer

frm2.ComboBox1 = Clear '優先1
frm2.ComboBox2 = Clear '優先2
frm2.ComboBox3 = Clear '優先3

i = 1

Do Until Worksheets("Sheet1").Cells(i, 3).Value = ""

i = i + 1

    frm2.ComboBox1.AddItem Worksheets("Sheet1").Cells(i, 3).Value
Loop
i = 1

Do Until Worksheets("Sheet1").Cells(i, 3).Value = ""

    i = i + 1

    frm2.ComboBox2.AddItem Worksheets("Sheet1").Cells(i, 3).Value
Loop
i = 1

Do Until Worksheets("Sheet1").Cells(i, 3).Value = ""

    i = i + 1

    frm2.ComboBox3.AddItem Worksheets("Sheet1").Cells(i, 3).Value
Loop
End Sub

Private Sub ComboBox1_Change()

If frm2.ComboBox1 = Null Then
MsgBox "優先順位1が入力されていません"
Else

"""ここに入るものがよくわかりません"""
End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

if frm2.combobox1.text="イチゴジャム” then

 frm2.textbox1.value=3
end if
では
（Ｈａｒａ） 2014/10/29(水) 05:56

回答ありがとうございます。
if frm2.combobox1.text="イチゴジャム” then

 frm2.textbox1.value=3
ここの部分はvalueで直接記述しないで、
mookさんに教えて頂いたモジュールを呼び出し
たいのですが、その方法がわからないので、教えて頂きたいです。
http://www.excel.studio-kazu.jp/kw/20140923165632.html

（ayu） 2014/10/29(水) 07:33

Do Until Worksheets("レシピ").Cells(i, 1).Value = "" '品種選択

    i = i + 1
  if Worksheets("レシピ").Cells(i, 1).Value<>"" then
    frm1.cmd_Hin.AddItem Worksheets("レシピ").Cells(i, 1).Value
  end if

Loop
ですか
（Hara） 2014/10/29(水) 12:21

Do Until Worksheets("レシピ").Cells(i, 1).Value = "" '品種選択

    i = i + 1
  if Worksheets("レシピ").Cells(i, 1).Value<>"" then
    frm1.cmd_Hin.AddItem Worksheets("レシピ").Cells(i, 1).Value
  end if
Loop

上のﾏｸﾛだと、レシピのシートにあるものしか抽出しないので、、
やりたいこととは違っていて、

sheet1（材料）
いちご15個
みかん2個
りんご3個
さとう3個
バナナ10個
レモン2個

sheet2(レシピ（１人分）
＜イチゴジャム＞
いちご2個
さとう1個
＜バナナジャム＞
バナナ2個
さとう1個
レモン1個

イチゴジャムを作りたいときに材料のシートへ探しに行き、材料の個数を数え、
フォームのtextboxに最大の人数を表示させたいです。

http://www.excel.studio-kazu.jp/kw/20140923165632.html

（ayu） 2014/10/29(水) 12:55

コメント返信：

[ 一覧(最新更新順) ]

[[20141028133237]] 『フォーム在庫表示』（ayu） ページの最後に飛ぶ

[[20141028133237]]　『フォーム在庫表示』（ayu）　ページの最後に飛ぶ