返回列表 上一主題 發帖

[發問] listbox rowsource用法

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欄，該怎麼修改，然後有辦法不要空白儲存格嗎，因為我有合併儲存格，他會抓到空白的
  1. With ListBox1
  2. Set Rng = Worksheets("Sheet1").Range("D2:D100", "F2:F100")
  3. .RowSource = Rng.Address
  4. End With
複製代碼
這是我寫的程式碼
收藏 分享

wang077

帖子
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

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
3#
發表於 2021-7-17 20:59 | 顯示全部帖子
回復 4# samwang
了解，謝謝大大

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
4#
發表於 2021-7-17 21:03 | 顯示全部帖子
回復 5# n7822123
可大大這段程式碼好像不能區分成兩欄
1.jpg
2.jpg

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
5#
發表於 2021-7-17 21:04 | 顯示全部帖子
回復 6# n7822123
我後來有試過
Set Rng = Worksheets("Sheet1").Range("D2:D100, F2:F100").SpecialCells(xlCellTypeVisible)
但好像不能這樣寫

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
6#
發表於 2021-7-17 21:09 | 顯示全部帖子
回復 8# singo1232001
大大好強，受益良多

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
7#
發表於 2021-7-18 20:15 | 顯示全部帖子
回復 14# n7822123
抱歉，在此附上檔案
因為有篩選，所以用了SpecialCells(xlCellTypeVisible)
test.zip (38.89 KB)

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
8#
發表於 2021-7-19 08:08 | 顯示全部帖子
回復 16# singo1232001
感謝大大幫忙

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
9#
發表於 2021-7-19 08:09 | 顯示全部帖子
回復 18# n7822123
好的，抱歉，疏忽了
謝謝大大的幫忙、教導

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題