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

20^#

發表於 2021-7-19 08:09 | 只看該作者

回復 18# n7822123
好的，抱歉，疏忽了
謝謝大大的幫忙、教導

TOP

wang077

中學生 Rank: 2

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

19^#

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

回復 16# singo1232001
感謝大大幫忙

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

18^#

發表於 2021-7-18 23:00 | 只看該作者

本帖最後由 n7822123 於 2021-7-18 23:03 編輯

回復 17# n7822123

上一個發的檔案有Bug，用這個吧

基本上你的篩選，對資料整理沒什麼幫助~~

下次記得早點放上檔案，就不用花這麼多時間釐清了

test+2.rar (39.79 KB)

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

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

17^#

發表於 2021-7-18 22:19 | 只看該作者

本帖最後由 n7822123 於 2021-7-18 22:33 編輯

回復 15# wang077

這樣嗎?

test+.rar (38.18 KB)

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

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

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

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

16^#

發表於 2021-7-18 21:12 | 只看該作者

本帖最後由 singo1232001 於 2021-7-18 21:21 編輯

回復 15# wang077

我用字典搭配測試可參考

test_v1.zip (41.71 KB)

TOP

wang077

中學生 Rank: 2

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

15^#

發表於 2021-7-18 20:15 | 只看該作者

回復 14# n7822123
抱歉，在此附上檔案
因為有篩選，所以用了SpecialCells(xlCellTypeVisible)

test.zip (38.89 KB)

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

14^#

發表於 2021-7-18 15:13 | 只看該作者

本帖最後由 n7822123 於 2021-7-18 15:26 編輯

回復 10# wang077

盲寫給你，請測試，如果程式出錯，請給個原始資料吧!

不知道你的原始資料，還要寫VBA給你

那已經不是VBA技術問題了，是在考驗猜測能力!

Dim Arr, Brr(), R%, K%
'原始資料入陣列Arr
With Sheets("sheet1")
  Arr = Range(.[D2], .Cells(Rows.Count, "F").End(3))
End With
'整理資料，Arr=>Brr
For R = 1 To UBound(Arr)
  If Arr(R, 1) <> "" And Arr(R, 3) <> "" Then  '排除D、F列空白
K = K + 1: ReDim Preserve Brr(1 To 2, 1 To K)
Brr(1, K) = Arr(R, 1): Brr(2, K) = Arr(R, 3)
  End If
Next R
Brr = Application.Transpose(Brr)
'塞入資料 Brr => ListBox
With ListBox1
  .List = Brr
  .ColumnCount = UBound(Brr, 2)
End With