- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
[發問] 請教 ListBox1.List 之Column疑問?
請教大大
Set d = CreateObject("Scripting.Dictionary")
With Sheets("基本資料")
For Each a In .Range(.Cells(2, 4), .Cells(65536, 4).End(xlUp))
d(a & "") = Array(a.Value, a.Offset(, -3).Value, a.Offset(, -2).Value)
Next
End With
If d.Count = 0 Then Exit Sub
ListBox1.Visible = True
ListBox1.List = ?????
1.應如何寫 才能將 Array(a.Offset(, -3).Value, a.Offset(, -2).Value)之內容
呈現於ListBox1(columncount=3)內且分出3個 column
2.cells(1,1)= 需要得到 ListBox1.column(1)之Data
cells(1,2)= 需要得到ListBox1.column(2)之Data
應如何寫
3.當無須ListBox1存在 如何使ListBox1.Visible = False 當focus在其他controls時
謝謝指導 |
|
發表於 2012-9-28 23:00
| 
