帖子: 9
主題: 4
精華: 0
積分: 13
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2012-3-14
最後登錄: 2012-5-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-5-2 20:09 | 只看該作者

如何在自定表單中建立二階的下拉式選單

各位高手,
請問如何在自定表單中建立二階的下拉式選單?
假設自定表單中,ComboBox1的資料是A與B
我希望如果ComboBox1選擇A則在ComboBox2會顯示A1,A2,A3的選項
如果ComboBox1選擇B則在ComboBox2會顯示B1,B2,B3的選項
謝謝

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-5-2 21:52 | 只看該作者

回復 1# hbjang

Private Sub UserForm_Initialize()
Ar = Array("A", "B")
For i = 0 To UBound(Ar)
ComboBox1.AddItem Ar(i)
Next i
For i = 1 To 2
Controls("ComboBox" & i) = ""
Next i
End Sub
Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
Select Case ComboBox1
Case "A"
Br = Array("A1", "A2", "A3")
Case "B"
Br = Array("B1", "B2", "B3")
End Select
With Controls("ComboBox2")
.Clear
.Value = ""
End With
For i = 0 To UBound(Br)
ComboBox2.AddItem Br(i)
Next i
End If
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2012-5-2 22:03 | 只看該作者

回復 1# hbjang

Private Sub ComboBox1_Change()
Set d = CreateObject("Scripting.Dictionary")
d(1) = Array("甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸")
d(2) = Array("金", "木", "水", "火", "土")
With ComboBox2
.Clear
s = CInt(ComboBox1)
.List = d(s)
End With
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.List = Array(1, 2)
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

hbjang

小學生 Rank: 1

帖子: 9
主題: 4
精華: 0
積分: 13
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2012-3-14
最後登錄: 2012-5-14

4^#

發表於 2012-5-4 20:28 | 只看該作者

感謝各位大大,問題已經解決
我稍微修改了一下程式,如下:
Private Sub UserForm_Activate()
Dim i%
i = Worksheets("Database").Range("A65536").End(xlUp).Row
UserForm1.ComboBox1.List = Worksheets("Database").Range("A3:A" & i).Value
Worksheets("Sheet1").Select
End Sub

Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
With Controls("ComboBox2")
.Clear
.Value = ""
End With

Select Case ComboBox1
Case "櫻花牌"
j = Worksheets("Database").Range("B65536").End(xlUp).Row
UserForm1.ComboBox2.List = Worksheets("Database").Range("B3:B" & j).Value
Case "林內牌"
k = Worksheets("Database").Range("C65536").End(xlUp).Row
UserForm1.ComboBox2.List = Worksheets("Database").Range("C3:C" & k).Value
End Select
End If
End Sub

TOP