請教各位大大,我有一個做為資料庫的工作表,在不同的工作表中,會以下方 vba 出現選擇資料列表單去選擇需要的資料列,
然後自動套用在各個不同格式的表格中,但當資料列為空白時也會出現一行空白列在此表單中,是否能修改為當資料列空白時
不會出現在此表單中呢?
Sub ListOfCompany()
Dim myTbl As Range
Set myTbl = Sheet4.Range("NameOfCompany")
UserForm1.Caption = "表單1"
UserForm1.Label1.Caption = "紀錄表1"
With UserForm1.ListBox1
.ColumnCount = myTbl.Columns.Count
.ColumnWidths = "1.5cm; 1.5cm ; 3cm;2cm"
.Font.Size = 11
.List = myTbl.Value
End With
UserForm1.Show 0
End Sub |
發表於 2014-4-23 15:56
| 
