返回列表 上一主題 發帖

[發問] 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
複製代碼
收藏 分享

lifedidi

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

論壇贊助勳章
2#
發表於 2013-12-12 09:59 | 顯示全部帖子
回復 2# stillfish00


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

TOP

lifedidi

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

論壇贊助勳章
3#
發表於 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

lifedidi

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

論壇贊助勳章
4#
發表於 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 

論壇贊助勳章
5#
發表於 2013-12-17 09:54 | 顯示全部帖子
本帖最後由 lifedidi 於 2013-12-17 09:56 編輯

回復 6# stillfish00

大大，請教您：

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

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

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

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

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

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

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

謝謝！

TOP

lifedidi

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

論壇贊助勳章
6#
發表於 2013-12-17 11:38 | 顯示全部帖子
回復 9# stillfish00

    CASE.rar (19.83 KB)

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

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

TOP

lifedidi

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

論壇贊助勳章
7#
發表於 2013-12-17 15:30 | 顯示全部帖子
回復 11# stillfish00


    Dear 大大

名子會有重複的時候 (但是部門 +名子 就不會重複) 我加了一段

If Sheet1.Cells(i, 1) = ListBox1.List(ListBox1.ListIndex, 0) And Sheet1.Cells(i, 2) = ListBox1.List(ListBox1.ListIndex, 1) Then

就可以了(應該...)XD

謝謝大大的幫忙！

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
返回列表 上一主題