Excel VBA：列表框

Question

在一个单独的 Excel 2007 VBA 问题上，我如何使用“开发人员”>“表单控件”下的列表框？

我想显示来自另一个工作表的一些数据（比如 wsData），但是我想显示特定于用户的数据（比如 wsInterface，单元格 A1），而不是使用“格式控制”>“控制” > “输入范围”

所以我将弹出一个表单以提示用户输入要键入工作表 wsInterface 单元格 A1 的名称，并且我希望与用户相关的数据显示在列表框中。谢谢

wsData：

name  |   date   | remarks
Mr A     22/2/11   blah blah blah 1.
Mr B     22/2/11   blah blah blah 2.
Mr A     23/2/11   blah blah blah 3.

ws接口：

Cell A1: Mr A

ListBox (2 columns)
22/2/11   blah blah blah 1.
23/2/11   blah blah blah 3.

这是我在其中一个宏中的代码：

Sub CustRemarkListBox_Change()
    Dim lbtarget As MSForms.ListBox
    Dim rngSource As Range
    Dim rw As Range
    Dim i As Long

    Set rngSource = Range("Remarks")

设置 lbtarget = CustRemarkListBox

    With lbtarget
        .ColumnCount = 2
        .ColumnWidths = "50;200"
        For Each rw In rngSource.Rows
            If rw.Cells(1, 1) = Worksheets("ExistingCustomer").Range("C4") Then
                .AddItem ""
                For i = 1 To .ColumnCount
                    .List(.ListCount - 1, i - 1) = rw.Cells(1, i)
                Next
            End If
        Next
    End With
End Sub

粗体字是我的问题，它说“需要对象”，这意味着它没有检测到我的 Excel 工作表中名为“CustRemarkListBox”的列表框

Answer 1

因此，如果我理解正确，用户必须在单元格中输入名称，并且您希望根据输入的名称填充列表框？

当您输入一个可以匹配的名称时，您可以使用 Worksheet_Range 事件来运行一些代码来填充列表框。

您对 VBA 的熟悉程度如何？您可以在相关工作表的代码页中使用类似以下内容：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Target.Address = "A1" Then  
'put your code here  
End If  
End Sub