excel - Excel VBA: 列表框用户自定义变量创建问题

  显示原文与译文双语对照的内容
82 0

已经在其他网站上查看其他类似问题,但无法找到解决方案。

我正在尝试从列表框表单的内容生成变量。 列表中的内容是工作簿的名称。 第一段代码向你展示了如何为你的参考生成列表的内容。 第二段代码是有问题的那一段。


Private Sub CommandButton1_Click()
 Dim wb As Workbook

 For Each wb In Workbooks
 With ListBox1
. AddItem (wb.Name)
 End With
 Next wb
lbl_Exit:
End Sub

我在下面的每一行上都有一个 Object Required 错误。 这段代码驻留在 Userform 中。


Private Sub CommandButton3_Click()
 Dim MainBook As Workbook
 Dim ListBox1 As ListBox

 For Each Item In ListBox1
 If Item.Name Like"Aggregate" Then
 Item.Select
 Set MainBook = Selection
 End If
 Next
End Sub

我曾读过 : 我读了一个列表框的属性,它是从。

时间: 原作者:

62 1

这就是你想要的?


Private Sub CommandButton1_Click()
 Dim wb As Workbook

 For Each wb In Workbooks
 With ListBox1
. AddItem (wb.Name)
 End With
 Next wb
End Sub

Private Sub CommandButton2_Click()
 Dim MainBook As Workbook, i as Long

 For i = 0 To (ListBox1.ListCount -1)
 If ListBox1.List(i) Like"Aggregate" Then
 Set MainBook = Workbooks(ListBox1.List(i))
 MainBook.Activate
 Exit For
 End If
 Next
End Sub

原作者:
...