帖子: 15
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win7
軟體版本: SP1
閱讀權限: 10
註冊時間: 2011-4-7
最後登錄: 2011-5-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-16 22:56 | 只看該作者

[發問] VBA下拉式選單(已解決)

本帖最後由 arcticfox 於 2011-5-19 17:27 編輯

各位大大午安@@"
這次又有一個小問題

如下圖, 我設計了一個客戶管理表, 不過我希望之後所有對話框的下拉式選單"Company"可以引用該表格的客戶欄位

意思就是說, 未來新增的客戶資料, 其中客戶的名字可以被引用到下拉式選單裡面, 如下圖

因為我只會用寫

Private Sub UserForm_Initialize()

Pro_Statu.Combo_Cus.List = Array("xxxx", "xxxx") 之類的

End Sub

不曉得是否有什麼方法可解決此問題? 再麻煩各位大大指導, 謝謝^^

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

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

2^#

發表於 2011-5-16 23:33 | 只看該作者

回復 1# arcticfox
你可以在 SelectionChange 裡加上判斷式,
只要 A 欄內容有異動就更新該下拉式選單的內容.

先用 Range(Cells(1, 1), Cells([A65535].End(xlUp).Row, 1)) 取得要丟給選單的名稱範圍,
再將其賦予給該選單即可.

TOP

arcticfox

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win7
軟體版本: SP1
閱讀權限: 10
註冊時間: 2011-4-7
最後登錄: 2011-5-23

3^#

發表於 2011-5-16 23:50 | 只看該作者

好, 謝謝大大
我先試試看^^

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2011-5-16 23:52 | 只看該作者

將A欄資料定義動態範圍的名稱
ComboBox的RowSource屬性設為該名稱

學海無涯_不恥下問

TOP

arcticfox

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win7
軟體版本: SP1
閱讀權限: 10
註冊時間: 2011-4-7
最後登錄: 2011-5-23

5^#

發表於 2011-5-17 10:57 | 只看該作者

回復 4# Hsieh

3Q兩位大大的指導, 不過都沒用出來T_T
版主意思是說像下面一樣, 寫法嗎

不過他不讓我設定屬性, 無效的屬性直
我直接在RowSource打 Cus_List

想請問是哪個環節搞錯呢??

TOP

chin15

中學生 Rank: 2

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

6^#

發表於 2011-5-17 11:23 | 只看該作者

例如：
Private Sub UserForm_Initialize()
Dim i%
i = Range("A65536").End(xlUp).Row
Me.ComboBox1.List = Sheet1.Range("A1:A" & i).Value
End Sub

TOP

arcticfox

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win7
軟體版本: SP1
閱讀權限: 10
註冊時間: 2011-4-7
最後登錄: 2011-5-23

7^#

發表於 2011-5-17 11:36 | 只看該作者

哇咧~~怎麼和我想的完全不一樣=.=
我先試試看
果然用想的都比實際下去弄還簡單
電腦太笨還是我太笨XD

3Q各位大大

TOP

arcticfox

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win7
軟體版本: SP1
閱讀權限: 10
註冊時間: 2011-4-7
最後登錄: 2011-5-23

8^#

發表於 2011-5-17 13:59 | 只看該作者

本帖最後由 arcticfox 於 2011-5-17 14:34 編輯

回復 6# chin15

一個小問題
我將大大的程式碼改寫如下:

Private Sub UserForm_Initialize()

Dim i%

i = Range("A65536").End(xlUp).Row
Pro_Statu.Combo_Cus.List = Worksheets("客戶資料管理").Range("A1:A" & i).Value

End Sub
不過總是會出現, 執行階段錯誤381 - 無法設定List屬性. 屬性陣列引索不正確

所以我重新把整段程式複製進去
並只改寫了combobox1那個部分

卻得到 : 執行階段錯誤424 - 此處需要物件

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2011-5-17 14:34 | 只看該作者

回復 5# arcticfox

學海無涯_不恥下問

TOP

arcticfox

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win7
軟體版本: SP1
閱讀權限: 10
註冊時間: 2011-4-7
最後登錄: 2011-5-23

10^#

發表於 2011-5-17 15:01 | 只看該作者

本帖最後由 arcticfox 於 2011-5-17 15:11 編輯

回復 9# Hsieh

酷!! 3Q 版大 :'(

不想再多增加版面
在一次3Q各位大大
我終於搞定哩XD
等摸熟再來慢慢試試看自己用寫的方式
:lol

TOP