[英]Pull range of data into List Box
我得到了有 10 列的數據范圍,我想將該數據拉入列表框中。
這是我的代碼: - 當我運行時出現編譯錯誤。
Sub PullDataIntoListBox()
Dim LRow As Long
Dim LCol As Long
Dim MTable
EditData.Show
With Worksheets("MainDataBase")
LRow = Cells(Rows.Count, "A").End(xlUp).Row
LCol = Cells(4, Columns.Count).End(xlToLeft).Column
MTable = Range(Cells(5, 1), Cells(LRow, LCol))
End With
With EditData
.ColumnCount = UBound(MTable, 2)
.List = MTable
End With
End Sub
正如@Cyril 所說。 使用Initialize
事件,以便在表單打開時填充列表框。
由於代碼在表單中,您可以使用Me
關鍵字引用表單。
使用數組作為源:
Private Sub UserForm_Initialize()
Dim LRow As Long, LCol As Long
Dim MTable As Variant
With Worksheets("MainDataBase")
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LCol = .Cells(4, .Columns.Count).End(xlToLeft).Column
MTable = .Range(.Cells(5, 1), .Cells(LRow, LCol))
End With
With Me.ListBox1
.ColumnCount = UBound(MTable, 2)
.List = MTable
End With
End Sub
或者,如果您希望將代碼放在普通模塊中,您可以從Initialize事件中調用它:
在形式:
Private Sub UserForm_Initialize()
PullDataIntoListBox Me.ListBox1
End Sub
在普通模塊中:
Public Sub PullDataIntoListBox(lstbx As MSForms.ListBox)
Dim LRow As Long, LCol As Long
Dim MTable As Variant
With Worksheets("MainDataBase")
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LCol = .Cells(4, .Columns.Count).End(xlToLeft).Column
MTable = .Range(.Cells(5, 1), .Cells(LRow, LCol))
End With
With lstbx
.ColumnCount = UBound(MTable, 2)
.List = MTable
End With
End Sub
使用范圍作為來源:
Private Sub UserForm_Initialize()
Dim LRow As Long, LCol As Long
Dim MTable As Range
With Worksheets("MainDataBase")
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LCol = .Cells(4, .Columns.Count).End(xlToLeft).Column
Set MTable = .Range(.Cells(5, 1), .Cells(LRow, LCol))
End With
With Me.Controls("ListBox1")
.ColumnCount = MTable.Columns.Count
.RowSource = "'" & MTable.Parent.Name & "'!" & MTable.Address
End With
End Sub
要打開表單並填充列表框,您只需使用EditData.Show
。
Sub SomeOtherProcedure()
EditData.Show
End Sub
編輯:
如果您希望打開相同表單的兩個實例但在列表框中使用不同的值,您可以使用類似於以下的代碼:
在普通模塊中添加以下代碼:
Option Explicit
Public colForms As New Collection
'Accepts a range reference as an argument which is passed to the ListBox control on the form.
'The form reference is then added to the colForms collection.
Sub OpenInstance(ListRange As Range)
Dim frm As New EditData
With frm.Controls("ListBox1")
.ColumnCount = ListRange.Columns.Count
.RowSource = "'" & ListRange.Parent.Name & "'!" & ListRange.Address
End With
colForms.Add frm, CStr(frm.Hwnd)
End Sub
'Starts two new forms, passing a different range to each one.
'Each form in the colForms collection is then displayed.
Sub OpenForms()
Dim f As Variant
OpenInstance ThisWorkbook.Worksheets("MainDataBase").Range("A1:D16")
OpenInstance ThisWorkbook.Worksheets("Sheet2").Range("D3:E5")
For Each f In colForms
f.Show vbModeless
Next f
End Sub
'Called when the form closes.
'The form is hidden before removing it from the collection.
Sub CloseForm(Hwnd As String)
colForms(Hwnd).Hide
colForms.Remove Hwnd
End Sub
在表單中添加以下代碼:
Option Explicit
'Code for capturing forms Hwnd taken from:
'https://colinlegg.wordpress.com/2016/05/06/getting-a-handle-on-userforms-vba/
#If Win64 Then
Private Declare PtrSafe Function FindWindowA _
Lib "user32.dll" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As LongPtr
Private mlnghWnd As LongPtr
Public Property Get Hwnd() As LongPtr
Hwnd = mlnghWnd
End Property
#Else
Private Declare Function FindWindowA _
Lib "user32.dll" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private mlnghWnd As Long
Public Property Get Hwnd() As Long
Hwnd = mlnghWnd
End Property
#End If
Private Sub UserForm_Initialize()
StorehWnd
End Sub
Private Sub StorehWnd()
Dim strCaption As String
Dim strClass As String
'class name changed in Office 2000
If Val(Application.Version) >= 9 Then
strClass = "ThunderDFrame"
Else
strClass = "ThunderXFrame"
End If
'remember the caption so we can
'restore it when we're done
strCaption = Me.Caption
'give the userform a random
'unique caption so we can reliably
'get a handle to its window
Randomize
Me.Caption = CStr(Rnd)
'store the handle so we can use
'it for the userform's lifetime
mlnghWnd = FindWindowA(strClass, Me.Caption)
'set the caption back again
Me.Caption = strCaption
End Sub
Private Sub CommandButton1_Click()
CloseForm CStr(Me.Hwnd)
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.