有一个宏来读取包含数字的文件。根据该号码,应分配电子表格中的“下拉”。这意味着如果例如数字为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
答案 0 :(得分: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;来获取控件的名称。在左上角,靠近公式栏。