[發問] 請問:空白列不顯示於表單中...

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-4-24 06:21 | 只看該作者

回復 1# a_nanami

Sub ListOfCompany()
Dim myTbl As Range, E As Variant, i As Integer
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
For Each E In myTbl.Rows
If E.Cells(1) <> "" Then '第1個儲存格
.AddItem
For i = 1 To myTbl.Columns.Count
.List(.ListCount - 1, i - 1) = E.Cells(i)
Next
End If
Next
End With
UserForm1.Show 0
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

a_nanami

中學生 Rank: 2

帖子: 29
主題: 11
精華: 0
積分: 70
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-7-31
最後登錄: 2023-8-9

3^#

發表於 2014-4-24 20:24 | 只看該作者

回復 2# GBKEE

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

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

不知道問題出在@@

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-4-25 04:50 | 只看該作者

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 280
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章