返回列表 上一主題 發帖

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

yangjie

帖子
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日
謝謝指導
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 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

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 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

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
4#
發表於 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

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題