帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-5-23 21:13 | 只看該作者

[發問] ComboBox 裡的資料排序

請問ComboBox 裡的資料排序問題.
ComboBox1 的資料來源是Sheet1.Range("A1:A20"), 打開下拉式選單時, 單據號碼能自動排序,請問VBA如何寫？

Sheet1.Range("A1:A20")資料如下：
C1-1301001
C2-1302003
C1-1303004
C1-1302001

打開下拉式選單時,自動排序為：
C1-1301001
C1-1302001
C1-1303004
C2-1302003

樓主熱帖

learner

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

10^#

發表於 2013-5-24 14:56 | 只看該作者

回復 4# dechiuan999
dechiuan999 你好 ,
同樣的,採用你的方式也可以了, 謝謝! 我在ComboBox1的ListFillRange屬性放了定義名稱, 拿掉以後,就不再出現錯誤.

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

9^#

發表於 2013-5-24 14:52 | 只看該作者

回復 8# GBKEE

GBKEE 你好 ,
已除錯了, 謝謝! 我在ComboBox1的ListFillRange屬性放了定義名稱, 拿掉以後,就不再出現錯誤.

learner

TOP

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兔年全勤獎章

8^#

發表於 2013-5-24 14:24 | 只看該作者

回復 7# yliu
請你把檔案上傳,才知道錯誤在哪裡!!

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

7^#

發表於 2013-5-24 14:04 | 只看該作者

回復 4# dechiuan999

dechiuan999 你好 ,
會出現執行階段錯誤’70’ 沒有使用權限, 偵錯在.List = mRng1.Value

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

6^#

發表於 2013-5-24 13:56 | 只看該作者

回復 5# GBKEE

GBKEE 你好 ,
會出現執行階段錯誤’70’ 沒有使用權限, 偵錯落在ComboBox1.List = Ar
請問是什麼意思?

learner

TOP

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兔年全勤獎章

5^#

發表於 2013-5-24 06:48 | 只看該作者

回復 3# yliu

Private Sub ComboBox1_GotFocus()
Dim Ar, I
ReDim Ar(1 To [a1:a20].Count)
For I = 1 To [a1:a20].Count
Ar(I) = Application.Small([a1:a20], I)
Next
ComboBox1.List = Ar
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

4^#

發表於 2013-5-24 06:29 | 只看該作者

回復 3# yliu

您好：

  請試試下列方法是否
合適
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim mSht As Worksheet
Dim mRng As Range, mRng1 As Range

Set mSht = Worksheets(1)
With mSht
      Set mRng = .Range("a1:a20")
      Set mRng1 = .Range("w1:w20")
      mRng1.Value = mRng.Value
      With mRng1
         .Sort key1:=.Columns("a"), header:=xlGuess
      End With
      With UserForm1.ComboBox1
         .List = mRng1.Value
         .ListIndex = -1
      End With
      mRng1.Value = ""
End With

End Sub

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

3^#

發表於 2013-5-23 23:20 | 只看該作者

回復 2# luhpro

謝謝luhpro.
但我的資料, 除了A欄外,還有 B欄~M欄, A欄雖有重新排序, 但B欄~M欄資料沒有跟著一起排序.
請問有可能只在下拉式選單排序即可,而不動原有的資料嗎?

learner

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 1
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

2^#

發表於 2013-5-23 21:44 | 只看該作者

請問ComboBox 裡的資料排序問題.
ComboBox1 的資料來源是Sheet1.Range("A1:A20"), 打開下拉式選單時, 單據 ...
yliu 發表於 2013-5-23 21:13

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Range("A1:A20").Sort Key1:=Range("A1")
End Sub

複製代碼

TOP