帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-9-28 23:00 | 只看該作者

[發問] 請教 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時
謝謝指導

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-9-29 01:01 | 只看該作者

回復 1# yangjie
試試看

Private Sub ListBox1_Change() '點選LISTBOX1
With ListBox1
For i = 1 To 3
Cells(1, i) = .List(.ListIndex, i - 1)
Next
End With
End Sub
Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) '離開LISTBOX1
ListBox1.Visible = False
End Sub
Private Sub UserForm_Initialize() '表單初始化
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
With ListBox1
.List = Application.Transpose(Application.Transpose(d.items))
.ColumnCount = 3
.Visible = True
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

3^#

發表於 2012-9-29 10:57 | 只看該作者

感激 Hsieh 版大
完全解決問題所在謝了
1.學到了 .List(.ListIndex, i - 1)
2..學會 . List = Application.Transpose(Application.Transpose(d.items))
3.請教何狀況下可用. List = d.items ?

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2012-9-30 02:23 | 只看該作者

回復 2# Hsieh

想請教這邊
.List = Application.Transpose(Application.Transpose(d.items))
為什麼要做兩次的轉置才能用呢?
是不是跟陣列的維度有關??

TOP