Combobox2リストは、私は2コンボボックスを持ってComboBox1の

Question

の選択に依存しているuserform1

可能値集合ソースに：食品用 Sheet1のすべての行で飲み物

ComboBox1のは2つの選択肢を例えば持っているため のSheet2であると言うことができます「食品」、「飲料」 は「食べ物」が選択されている場合は、シート1からの値集合ソースが自動 に移入されます「飲み物」を選択すると、その後のSheet2からの値集合ソースが自動

に移入されます私はこれを行う方法の本当にわからないんだけど。 サンプルコードなどはありません。

Answer 1

ComboBox1_Changeイベントにこのコードを試してみてください。

Private Sub ComboBox1_Change() 

     Dim Dsh As String, Fsh As String, Sh As Worksheet, Lr As Long 
     Fsh = "Sheet1" 
     Dsh = "Sheet2" 

     Select Case Me.ComboBox1.Value 
     Case "food" 
      Set Sh = Sheets(Fsh) 
     Case "drinks" 
      Set Sh = Sheets(Dsh) 
     Case Else 
      Exit Sub 
     End Select 

     Lr = Sh.Range("A" & Sh.Rows.Count).End(xlUp).Row 
     Me.ComboBox2.List = Sh.Range("A1:A" & Lr).Value 

    End Sub