Question

我有一个带有OK和Cancel按钮以及列表框的用户表单。它应该使用以下代码填充：

Private Sub UserForm_Initialize()

Me.StartUpPosition = 0
Me.Top = Application.Top + (Application.Height / 2) - (Me.Height / 2)
Me.Left = Application.Left + (Application.Width / 2) - (Me.Width / 2)

With Me.ListBox1
    .RowSource = ""
    .ColumnCount = 7
    .ColumnWidths = "80;100;20;1;20;1;1000"
    .RowSource = Sheets("BOH Database").Range("H9:N14").Address
  '  .RowSource = Sheets("BOH Database").Range("H9:N" & Sheets("BOH Database").Range("a65536").End(xlUp).Row - 1).Address
End With

End Sub

RowSource语句都不起作用。我已经尝试在再次填充之前清除RowSource。我做错了什么？

编辑：我已经添加了我目前在这里的代码，因为它没有在评论中正确显示：我使用此代码基于您的代码并且崩溃了表单：

With Me.ListBox1
 .ColumnCount = 7
 .ColumnWidths = "80;100;20;1;20;1;1000"
 .RowSource = "'" & Sheets("BOH Database").Name & "'!" & Sheets("BOH Database") _
    .Range("H9:N" & Sheets("BOH Database").Range("a65536").End(xlUp).Row - 1).Address
End With

Answer 1

这是一种不正确的方法。语法是

ListBox1.RowSource = "SheetName!RangeAddress"

因此，如果您的工作表名称为Sheet1，则上述内容将变为

ListBox1.RowSource = "Sheet1!H9:N14"

此外，由于您的工作表名称有空格，您必须在工作表名称之前和之后添加'。

试试这个

 ListBox1.RowSource = "'BOH Database'!H9:N14"

或以你的方式......

With Sheets("BOH Database")
    ListBox1.RowSource = "'" & .Name & "'!" & .Range("H9:N14").Address
End With

Answer 2

这个怎么样。

Sub lbxChange () 
    Dim sname as string 
    Dim ws as worksheet 
    Set sname = combobox1.value 
    Set ws = sheets(sname) 
    Listbox1.rowsource = ws.range("a1:d10") 
End sub

不行!!!!

Userform listbox rowsource未填充

2 个答案: