12
返回列表 上一主題 發帖

[發問] Listbox欄位顯示的問題

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-12-12 08:29 | 只看該作者

[發問] Listbox欄位顯示的問題

請問大大 小弟在sheet5有30幾個欄位從D欄位~AN欄位 要顯示在listbox上

但是出現了問題：



第十欄位以後就引述無效，

編碼如下，謝謝。
  1. Dim i As Integer

  3. With Listbox1
  4.     .ColumnCount = 37
  5.     .ColumnWidths = "20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt"
  6. End With

  8. With Sheet5
  9. i = 1
  10. Do While .Cells(i, "A") <> ""
  11.     With Listbox1
  12.     .AddItem
  13.     r = .ListCount
  14.     .List(r - 1, 0) = Sheet5.Cells(i, "D")
  15.     .List(r - 1, 1) = Sheet5.Cells(i, "E")
  16.     .List(r - 1, 2) = Sheet5.Cells(i, "F")
  17.     .List(r - 1, 3) = Sheet5.Cells(i, "G")
  18.     .List(r - 1, 4) = Sheet5.Cells(i, "H")
  19.     .List(r - 1, 5) = Sheet5.Cells(i, "I")
  20.     .List(r - 1, 6) = Sheet5.Cells(i, "J")
  21.     .List(r - 1, 7) = Sheet5.Cells(i, "K")
  22.     .List(r - 1, 8) = Sheet5.Cells(i, "L")
  23.     .List(r - 1, 9) = Sheet5.Cells(i, "M")
  24.     .List(r - 1, 10) = Sheet5.Cells(i, "N")
  25.     .List(r - 1, 11) = Sheet5.Cells(i, "O")
  26.     .List(r - 1, 12) = Sheet5.Cells(i, "P")
  27.     .List(r - 1, 13) = Sheet5.Cells(i, "Q")
  28.     .List(r - 1, 14) = Sheet5.Cells(i, "R")
  29.     .List(r - 1, 15) = Sheet5.Cells(i, "S")
  30.     .List(r - 1, 16) = Sheet5.Cells(i, "T")
  31.     .List(r - 1, 17) = Sheet5.Cells(i, "U")
  32.     .List(r - 1, 18) = Sheet5.Cells(i, "V")
  33.     .List(r - 1, 19) = Sheet5.Cells(i, "W")
  34.     .List(r - 1, 20) = Sheet5.Cells(i, "X")
  35.     .List(r - 1, 21) = Sheet5.Cells(i, "Y")
  36.     .List(r - 1, 22) = Sheet5.Cells(i, "Z")
  37.     .List(r - 1, 23) = Sheet5.Cells(i, "AA")
  38.     .List(r - 1, 24) = Sheet5.Cells(i, "AB")
  39.     .List(r - 1, 25) = Sheet5.Cells(i, "AC")
  40.     .List(r - 1, 26) = Sheet5.Cells(i, "AD")
  41.     .List(r - 1, 27) = Sheet5.Cells(i, "AE")
  42.     .List(r - 1, 28) = Sheet5.Cells(i, "AF")
  43.     .List(r - 1, 29) = Sheet5.Cells(i, "AG")
  44.     .List(r - 1, 30) = Sheet5.Cells(i, "AH")
  45.     .List(r - 1, 31) = Sheet5.Cells(i, "AI")
  46.     .List(r - 1, 32) = Sheet5.Cells(i, "AJ")
  47.     .List(r - 1, 33) = Sheet5.Cells(i, "AK")
  48.     .List(r - 1, 34) = Sheet5.Cells(i, "AL")
  49.     .List(r - 1, 35) = Sheet5.Cells(i, "AM")
  50.     .List(r - 1, 36) = Sheet5.Cells(i, "AN")

  52.     End With
  53.     i = i + 1
  54. Loop

  56. End With
複製代碼
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-12-12 09:49 | 只看該作者
回復 1# lifedidi
見ColumnCount 說明

若將 ColumnCount 設成 0，顯示的行數便是 0；若設成 -1，便顯示所有的資料行。
對一個非資料連結的資料來源而言，最多只能有 10 行 (0 到 9)。
您可用 ColumnWidths 屬性來設定控制項中的資料行寬。

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
3#
發表於 2013-12-12 09:59 | 只看該作者
回復 2# stillfish00


    原來如此！了解了！謝謝大大！

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2013-12-12 10:21 | 只看該作者
回復 3# lifedidi
要破10欄限制，1是從 .RowSource 引用工作表範圍
2是用二維陣列一次給到 .List ，如下
  1. Private Sub UserForm_Initialize()
  2.   Dim ar

  4.   With ListBox1
  5.       .ColumnCount = 37
  6.       .ColumnWidths = "20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt"
  7.   End With
  8.   
  9.   With Sheet5
  10.     ar = .Range(.[a1], .[a1].End(xlDown)).Resize(, 37).Value
  11.   End With
  12.   ListBox1.List = ar

  14. End Sub
複製代碼

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
5#
發表於 2013-12-12 14:04 | 只看該作者
回復 4# stillfish00


謝謝大大的方法，

小弟加了一些變數(因為欄位數會一直增加 從第二欄開始抓到最後一欄)，但是怎麼改都抓不到值，

請教大大，謝謝。
  1. With Sheet5

  3. i = 2

  5. Do While .Cells(i, "A") <> ""
  6.    
  7. j = ".[A" & i & "]"
  8.    
  9. With Sheet5

  11. ar = .Range(j, j.End(xlDown)).Resize(, 37).Value

  13. End With

  15. Listbox1.List = ar
  16.    
  17. i = i + 1
  18.    
  19. Loop

  21. End With
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 2013-12-12 14:44 | 只看該作者
直接用不行嗎?
  1. Private Sub UserForm_Initialize()
  2.   Dim ar

  4.   With Sheet5
  5.     ar = .Range(.[a2], .[a2].End(xlDown)).Resize(, 37).Value
  6.   End With
  7.   With ListBox1
  8.     .ColumnCount = 37
  9.     .ColumnWidths = "20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt"
  10.     .List = ar
  11.   End With  
  12. End Sub
複製代碼
回復 5# lifedidi

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
7#
發表於 2013-12-12 15:28 | 只看該作者
回復 6# stillfish00

不好意思 我原始的DATA是COPY同一個欄資料 導致執行後結果都長一樣....

大大，謝謝你~已經解決了！！

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
8#
發表於 2013-12-17 09:54 | 只看該作者
本帖最後由 lifedidi 於 2013-12-17 09:56 編輯

回復 6# stillfish00

大大，請教您：

小弟現在用Listbox1的資料點選後 可以將資料庫的資料代到Textbox上

我的Listbox1清單的清單假如有兩筆資料

製造部　陳曉明　工程師　男　６年
生產部　莊宜慧　專員　　女　７年

點第一行 Listbox1.value 的值為 製造部
點第二行 Listbox1.value 的值為 生產部

我要抓取"陳曉明" 則 點第一行 Listbox1.value = 資料庫的值 即可抓到開頭

但是下面的情形，則要抓第二欄位的資料才能正確抓到，請問該怎麼抓呢？

製造部　王天才　工程師　男　３年　
製造部　陳曉明　工程師　男　６年
生產部　莊宜慧　專員　　女　７年

謝謝！

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
9#
發表於 2013-12-17 11:14 | 只看該作者
回復 8# lifedidi
我要抓取"陳曉明" 則 點第一行 Listbox1.value = 資料庫的值 即可抓到開頭

看不懂，附上檔案程式看看

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
10#
發表於 2013-12-17 11:38 | 只看該作者
回復 9# stillfish00

    CASE.rar (19.83 KB)

檔案中我要查詢每個人的資料，

但是我這樣的方法只要遇到同部門就會卡在第一位，請大大指教，謝謝。

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
12
返回列表 上一主題