使用索引号设置DropDown

有一个macros读取包含一个数字的文件。 根据这个数字，电子表格中的“下拉”应该被分配。 这意味着如果例如数字是2，则应该在下拉列表的第二项上设置下拉菜单。

代码是什么？

Private Sub CommandButton2_Click() Dim myFile As String myFile = "C:\sales.csv" Open myFile For Input As #1 Line Input #1, DataLine MsgBox DataLine Close #1 End Sub 

Answer 1

假设您的组合的名称是用户窗体上的ComboBox1，将MsgBox DataLinereplace为：

 ComboBox1.ListIndex = DataLine - 1 '<~~ -1 because zero-based 

对于位于工作表上的下拉控件，例如命名为“Drop down 14”：

 ActiveSheet.Shapes("Drop Down 14").OLEFormat.Object.ListIndex = DataLine ' 1-based in this case 

您可以通过右键单击并从左上angular的“名称框”中find控件的名称，在公式栏旁边。