wang077

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-7-16 08:45 | 只看該作者

[發問] listbox rowsource用法

本帖最後由 wang077 於 2021-7-16 08:47 編輯

各位大神們
範例.JPG

如圖，我如果不要E欄，該怎麼修改，然後有辦法不要空白儲存格嗎，因為我有合併儲存格，他會抓到空白的

With ListBox1
Set Rng = Worksheets("Sheet1").Range("D2:D100", "F2:F100")
.RowSource = Rng.Address
End With

複製代碼

這是我寫的程式碼

樓主熱帖

wang077

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

2^#

發表於 2021-7-16 14:25 | 只看該作者

回復 1# wang077
有人有想法嗎
:'(

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2021-7-17 02:17 | 只看該作者

本帖最後由 singo1232001 於 2021-7-17 02:19 編輯

回復 2# wang077

綁原始資料來源
就是呈現資料來源

如果要不同的資料呈現
創個新的暫存工作表
把要的資料貼在那張表上
在用ListBox去連結新表

否則抬頭會被切

另外我沒有試過用陣列綁
如果創表不喜歡
可以試著綁陣列看看
但不確定我沒綁過

但我印象這個好像是用迴圈+判斷然後 add 一筆一筆加的?

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

4^#

發表於 2021-7-17 10:10 | 只看該作者

回復 1# wang077

資料可先裝入數組，再從數組循環將空白排除就可以了，謝謝。

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

5^#

發表於 2021-7-17 14:59 | 只看該作者

本帖最後由 n7822123 於 2021-7-17 15:11 編輯

回復 1# wang077

RowSource 不能使用離散範圍，只能是連續範圍，通常是寫SQL語法直接連結到某資料庫

要使用 RowSource 只能把你原本的表經過整理(排除空白)，輸出到另一個表，使其變成連續範圍才能引用

上面這一步寫起來反而"繁瑣"，所以我通常不會這樣做，我習慣用 "List" 屬性賦予陣列值

直接改寫你原本程式如下，請試看看~

For Each Rg In [Sheet1!D2:D100,Sheet1!F2:F100].SpecialCells(2)
xList = xList & " " & Rg
Next
ListBox1.List = Split(Mid(xList, 2))

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

6^#

發表於 2021-7-17 15:29 | 只看該作者

回復 1# wang077

順便糾正你範圍的寫法，以下範圍會含"E欄"

Set Rng = Worksheets("Sheet1").Range("D2:D100", "F2:F100")

如果你"不要E欄"，要這樣寫，仔細看，不一樣的喔

Set Rng = Worksheets("Sheet1").Range("D2:D100, F2:F100")

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2021-7-17 16:03 | 只看該作者

本帖最後由 singo1232001 於 2021-7-17 16:17 編輯

回復 3# singo1232001

抱歉!今天玩了一下
補充並修正我自己說過的部分

listbox匯入資料時分成兩種方式
1 RowSource綁定繫結方式只要用上RowSource之後 listbox 內中的任何資料 ,無法再做變更,唯讀模式
1.0 破解小技巧:可新創一個隱藏工作表當作listbox暫存區 ,只要將資料整理號放入新工作表即可(最推薦又最快的做法)
1.1 若原本被綁定的工作表範圍內資料有任何變動 listbox內的資料會同步變動(所以想改listbox內的資料就要去改暫存用的工作表)
1.2 綁定工作表範圍必定相連不可分割不可單選不可union
1.3 不可additem 不可removeitem
1.4 標頭不用列入範圍內只要RowSource綁下一列後續加上 ListBox1.ColumnHeads = True 第一列的標頭就會產生

2    .additem資料逐筆匯入方式
2.1 原始資料與listbox內的資料不同步哪邊變動都不影響另一邊
2.2 每列都必須先.additem 才可利用list 放入資料資料可從任何類型匯入工作表,陣列,外部資料庫
   (也可以不用迴圈,直接整張陣列一次匯入)
2.3  必須用.ColumnCount = 4  去創造欄位 (4為欄位數量)
2.4  必須用.ColumnWidths = "20,20,20,20"    '設置每個欄位數寬度 20為寬度pt
2.5  .RowSource = True 標頭可以另外添加但無法變更抬頭就很無奈是個空白
2.6  另外用各種控件改裝標頭也會碰上資料量多的時候水平滾輪不會跟著一起影響改裝標頭的水平橫移(感覺office完全不想理這件事情了)
   想當然如果資料不會太長超過水平寬度當然就沒問題能爽用

3    ListView
3.1 聽說很好用(目前還在學,有學了但不是很熟)
3.2  與新版excel2016 2019兼容但需手動安裝以前是自動兼容
      (也可能我講反可能是2003 2007 不支援要額外下載安裝包)
      (但好像也有說是32位元的office無法安裝) 進excel>檔案>帳戶>關於excel 裡面有位元
      拍謝無法確定
3.3  必須在檔案內寫一篇如何手動安裝控件的說明或者請人上網查每換台電腦都需要重新設定一次
3.4  盡量寫出控件失敗的警告提示模組避免不知者在沒安裝的情況下開啟到時候開發者就會費時費力變冤大頭

順便討論整理蒐集到的資訊
有錯煩請糾正一下謝謝大神們

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2021-7-17 16:32 | 只看該作者

本帖最後由 singo1232001 於 2021-7-17 16:35 編輯

回復 7# singo1232001

另外這是去年還不會"陣列" 跟 "set"方式時寫的測試檔
很陽春很菜很多bug
但或許因為很直接很直白或許比較好讀
將就著看
而且我覺得這是一個練習"OOP物件導向"的好題目!
但這兩份檔案我都沒用上OOP
硬著頭皮暴力code