vba combobox 不重複資料的ADD 方式
帖子 8 主題 4 精華 0 積分 12 點名 0 作業系統 XP 軟體版本 OFFICE 2003 閱讀權限 10 註冊時間 2012-4-7 最後登錄 2017-8-5
vba combobox 不重複資料的ADD 方式
請問依下
暱稱:
隨風飄蕩的羽毛 頭銜:
[御用]潛水艇
高中生
帖子 852 主題 79 精華 0 積分 918 點名 0 作業系統 Windows 7 , XP 軟體版本 Office 2007, Office 2003,Office 2010,YoZo Office 閱讀權限 50 性別 男 來自 宇宙 註冊時間 2011-4-8 最後登錄 2024-2-21
2 #
發表於 2012-11-1 08:23
|
只看該作者
回復 1# stran
帖子 8 主題 4 精華 0 積分 12 點名 0 作業系統 XP 軟體版本 OFFICE 2003 閱讀權限 10 註冊時間 2012-4-7 最後登錄 2017-8-5
3 #
發表於 2012-11-1 11:34
|
只看該作者
3K701
帖子 703 主題 276 精華 0 積分 1005 點名 1 作業系統 Windows 10 軟體版本 Office 2019 閱讀權限 50 性別 男 註冊時間 2011-6-30 最後登錄 2024-5-29
4 #
發表於 2012-11-1 15:31
|
只看該作者
本帖最後由 av8d 於 2012-11-1 15:33 編輯 回復 3# stran
帖子 2 主題 0 精華 0 積分 2 點名 0 作業系統 windows 軟體版本 xp 閱讀權限 10 註冊時間 2014-2-11 最後登錄 2014-2-12
5 #
發表於 2014-2-11 18:06
|
只看該作者
請問各位,有方法把上面得出來的結果再排序嗎?
帖子 5923 主題 13 精華 1 積分 5986 點名 0 作業系統 win10 軟體版本 Office 2010 閱讀權限 150 性別 男 來自 台灣基隆 註冊時間 2010-5-1 最後登錄 2022-1-23
6 #
發表於 2014-2-11 21:01
|
只看該作者
回復 5# SteveChm Option Explicit Private Sub UserForm_Initialize() Dim d As Object, A As Range, i As Integer Set d = CreateObject("Scripting.Dictionary") With Sheets("Sheet1") .Activate For Each A In .Range("A1", .[a1].End(xlDown)) d(CDbl(A.Value)) = A.Value Next For i = 1 To d.Count ComboBox1.AddItem d(Application.Small(d.keys, i)) Next End With End Sub 複製代碼
帖子 2 主題 0 精華 0 積分 2 點名 0 作業系統 windows 軟體版本 xp 閱讀權限 10 註冊時間 2014-2-11 最後登錄 2014-2-12
7 #
發表於 2014-2-12 20:56
|
只看該作者
[版主管理留言] GBKEE(2014/2/13 06:36): 要上傳檔案看愾
GBKEE大大, 感謝你的回覆,
發表於 2012-10-31 22:56
| 
發表於 2014-2-11 21:01
| 