12
返回列表 上一主題 發帖

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

arcticfox

帖子
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

arcticfox

帖子
15 
主題
3 
精華
0 
積分
23 
點名
0  
作業系統
Win7 
軟體版本
SP1 
閱讀權限
10 
註冊時間
2011-4-7 
最後登錄
2011-5-23 
7#
發表於 2011-5-17 11:36 | 只看該作者
哇咧~~怎麼和我想的完全不一樣=.=
我先試試看
果然用想的都比實際下去弄還簡單
電腦太笨  還是我太笨XD

3Q各位大大

TOP

chin15

帖子
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

帖子
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

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-5-16 23:52 | 只看該作者
將A欄資料定義動態範圍的名稱
ComboBox的RowSource屬性設為該名稱
學海無涯_不恥下問

TOP

arcticfox

帖子
15 
主題
3 
精華
0 
積分
23 
點名
0  
作業系統
Win7 
軟體版本
SP1 
閱讀權限
10 
註冊時間
2011-4-7 
最後登錄
2011-5-23 
3#
發表於 2011-5-16 23:50 | 只看該作者
好, 謝謝大大
我先試試看^^

TOP

luhpro

帖子
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

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
12
返回列表 上一主題