使用索引号

Question

有一个宏来读取包含数字的文件。根据该号码，应分配电子表格中的“下拉”。这意味着如果例如数字为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

假设您的组合名称是UserForm上的ComboBox1，请将MsgBox DataLine替换为：

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

对于位于工作表上的下拉控件，例如命名为＆＃34;下拉14＆＃34;：

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

您可以通过右键单击并查看＆＃34;名称框＆＃34;来获取控件的名称。在左上角，靠近公式栏。