標題: [發問] 請問:空白列不顯示於表單中... [打印本頁]

---

作者: a_nanami    時間: 2014-4-23 15:56     標題: 請問:空白列不顯示於表單中...

請教各位大大,我有一個做為資料庫的工作表,在不同的工作表中,會以下方 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

---

作者: GBKEE    時間: 2014-4-24 06:21

回復 1# a_nanami

1. Sub ListOfCompany()
   
2.     Dim myTbl As Range, E As Variant, i As Integer
   
3.     Set myTbl = Sheet4.Range("NameOfCompany")
   
4.     UserForm1.Caption = "表單1"
   
5.     UserForm1.Label1.Caption = "紀錄表1"
   
6.     With UserForm1.ListBox1
   
7.         .ColumnCount = myTbl.Columns.Count
   
8.         .ColumnWidths = "1.5cm; 1.5cm ; 3cm;2cm"
   
9.         .Font.Size = 11
   
10.         '.List = myTbl.Value
    
11.         For Each E In myTbl.Rows
    
12.             If E.Cells(1) <> "" Then  '第1個儲存格
    
13.                 .AddItem
    
14.                 For i = 1 To myTbl.Columns.Count
    
15.                     .List(.ListCount - 1, i - 1) = E.Cells(i)
    
16.                 Next
    
17.             End If
    
18.         Next
    
19.         
    
20.     End With
    
21.     UserForm1.Show 0
    
22. End Sub

複製代碼

---

作者: a_nanami    時間: 2014-4-24 20:24

回復 2# GBKEE


謝謝GBKEE大的指導，但會出現

執行階段錯誤380
無法設定 List 屬性．無效的屬性值...

不知道問題出在@@

---

作者: GBKEE    時間: 2014-4-25 04:50

回復 3# a_nanami
Excel 不也是2003版,附檔看看

---

作者: Hsieh    時間: 2014-4-25 09:57

回復 3# a_nanami

2#第10行
'.List = myTbl.Value
注意單引號，將此行已標註成註解

---

作者: a_nanami    時間: 2014-4-26 09:47

回復 4# GBKEE


果然是版本問題,因為二台電腦版本不同,謝謝二位版主的指導^^

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)