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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

[發問] Dictionary之下,兩個Excel欄位聯合作為判別條件

請教大大 :
      Set d = CreateObject("Scripting.Dictionary")
               With Sheets("基本資料")
                     For Each a In .Range(.Cells(2,3), .Cells(65536, 4).End(xlUp))
                        d(a & "") = ""
                     Next
               End With
      If d.Count = 0 Then Exit Sub
   ListBox1.list = d.keys
結果 list 為兩個Excel欄位各自相異item  寫在同一list Column中
請教大大  應如何寫法可將兩個Excel欄位聯合  作為判別條件
  如 ListBox1.list = d.keys
得到
         數學    9月2日
         數學    9月3日
         英文    9月2日
謝謝指導

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-9-30 16:17 | 只看該作者

本帖最後由 GBKEE 於 2012-10-1 16:25 編輯

回復 1# yangjie
試試看

Sub Ex()
Dim D As Object, R As Range
Set D = CreateObject("Scripting.Dictionary")
With Sheets("基本資料")
For Each R In .Range(.Cells(2, 3), .Cells(65536, 4).End(xlUp)).Rows
D(R) = ""
Next
End With
If D.Count = 0 Then Exit Sub
With ListBox1
.ColumnCount = 2
.List = Application.Transpose(Application.Transpose(D.keys))
End With
End Sub

複製代碼

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

3^#

發表於 2012-9-30 20:39 | 只看該作者

Sub Ex()
Dim D As Object, R As Range
Set D = CreateObject("Scripting.Dictionary")
With Sheet1
For Each R In .Range(.Cells(2, 3), .Cells(65536, 4).End(xlUp)).Rows
D(R.Cells(1) & R.Cells(2)) = R
Next
End With
If D.Count = 0 Then Exit Sub
With ListBox1
.ColumnCount = 2
.List = Application.Transpose(Application.Transpose(D.items))
End With
End Sub

複製代碼

TOP

yangjie

中學生 Rank: 2

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

4^#

發表於 2012-9-30 22:46 | 只看該作者

回復 3# chin15
請教  chin15  大大
   謝謝指導
原先用ComboBox1建立了  list  接者輸出  應如何輸入到listbox1中2個column內
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.Text = "" Then Exit Sub
ListBox1.AddItem ComboBox1.Text ------只出現一項  如何才可出現兩項
   ComboBox1.RemoveItem (ComboBox1.ListIndex)
ComboBox1.ListIndex = -1
End Sub

TOP

yangjie

中學生 Rank: 2

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

5^#

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

回復 2# GBKEE
謝 GBKEE 大大
經測試
               For Each R In .Range(.Cells(2, 3), .Cells(65536, 4).End(xlUp)).Rows
                        D(A) = ""
------
               .List = Application.Transpose(Application.Transpose(D.keys))
效果出現重複
使用  3# 大大  可得  不重複之結果
但此兩欄經click 到另一個listbox2中 .additem listbox.text
卻僅得一欄如何可得到兩欄

TOP

yangjie

中學生 Rank: 2

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

6^#

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

回復 4# yangjie
自己修正成
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.Text = "" Then Exit Sub
ListBox1.AddItem ComboBox1.List(ComboBox1.ListIndex, 0)
ListBox1.List(ListBox1.ListCount - 1, 1) = ComboBox1.List(ComboBox1.ListIndex, 1)
ComboBox1.RemoveItem (ComboBox1.ListIndex)
ComboBox1.ListIndex = -1
End Sub
可有更簡單之語法?

TOP