- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
4#
發表於 2013-3-7 14:55
| 只看該作者
本帖最後由 GBKEE 於 2013-3-7 14:56 編輯
回復 3# Jared
試試看這是否如你所需- 'ListIndex = -1: 所選的不在 List清單內
- Private Sub ComboBox1_Change()
- If ComboBox1.ListIndex > -1 Then
- 餐點
- Else
- ComboBox2 = ""
- End If
- End Sub
- Private Sub ComboBox2_Change()
- TextBox1 = ""
- If ComboBox2.ListIndex > -1 Then TextBox1 = ComboBox2.List(ComboBox2.ListIndex, 1)
- End Sub
- Private Sub CommandButton1_Click()
- Dim A
- If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then MsgBox "餐點內容 需齊全 !!": Exit Sub
- With Sheet10
- .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3).Value = Array(ComboBox1, ComboBox2, TextBox1)
- End With
- End Sub
- Private Sub CommandButton2_Click()
- test4.Hide
- End Sub
- Private Sub CommandButton3_Click()
- Me.ComboBox1 = ""
- Me.ComboBox2 = ""
- Me.TextBox1 = ""
- End Sub
- Private Sub UserForm_Initialize()
- ComboBox1.List = Array("一號餐", "二號餐", "三號餐")
- End Sub
- Private Sub 餐點()
- With ComboBox2
- .Clear
- Select Case ComboBox1.ListIndex
- Case 0 '一號餐
- .AddItem "漢堡、薯條、可樂"
- .List(.ListCount - 1, 1) = 50 'ComboBox2的第2欄 沒顯示出來
- .AddItem "漢堡、薯餅、可樂"
- .List(.ListCount - 1, 1) = 49
- .AddItem "漢堡、薯餅、紅茶"
- .List(.ListCount - 1, 1) = 48
- Case 1 '二號餐
- .AddItem "雞塊、薯條、可樂"
- .List(.ListCount - 1, 1) = 47 'ComboBox2的第2欄 沒顯示出來
- .AddItem "雞塊、薯餅、可樂"
- .List(.ListCount - 1, 1) = 46
- .AddItem "雞塊、薯餅、紅茶"
- .List(.ListCount - 1, 1) = 45
- Case 2 '三號餐
- .AddItem "厚土司、薯條、可樂"
- .List(.ListCount - 1, 1) = 44 'ComboBox2的第2欄 沒顯示出來
- .AddItem "厚土司、薯餅、可樂"
- .List(.ListCount - 1, 1) = 43
- .AddItem "厚土司、薯餅、紅茶"
- .List(.ListCount - 1, 1) = 42
- End Select
- End With
- TextBox1 = ""
- End Sub
|
|
發表於 2013-3-7 15:08
| 
