- 帖子
- 103
- 主題
- 30
- 精華
- 0
- 積分
- 139
- 點名
- 0
- 作業系統
- wondows XP
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 彰化
- 註冊時間
- 2013-2-21
- 最後登錄
- 2015-6-26
|
回復 2# GBKEE
抱歉！先上傳目前我的檔案在附檔
只能一個個點選下拉式清單
希望能夠點選一號餐後
隨即就能把餐點內容和價格帶出來
記錄在Sheets欄位裡頭
如果三個欄位有一個沒填上
就會出現警告視窗!
 測試檔3.zip (27.49 KB)
程式如下
==================================================
Private Sub CommandButton1_Click()
Dim A As Range
If Application.CountBlank(Sheet10.Range("A2:A99")) = 0 Then '點選餐號
Sheet10.[A100] = ComboBox1.Value
Else
Set A = [a1]
Do Until A = ""
Set A = A.Offset(1, 0)
Loop
A.Value = ComboBox1.Value
End If
If ComboBox1.Value = "" Then
MsgBox "您先選擇幾號餐！"
Exit Sub
End If
If Application.CountBlank(Sheet10.Range("B2:B99")) = 0 Then '餐點內容
Sheet10.[B100] = ComboBox2.Value
Else
Set A = [b2]
Do Until A = ""
Set A = A.Offset(1, 0)
Loop
A.Value = ComboBox2.Value
End If
gg = test4.TextBox1.Value '價錢
If Application.CountBlank([C2:C99]) = 0 Then Range("C100") = gg: Exit Sub
For Each A In [C2:C99]
If A = "" Then
A.Value = gg
Exit For
End If
Next
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.AddItem "一號餐"
ComboBox1.AddItem "二號餐"
ComboBox1.AddItem "三號餐"
ComboBox2.AddItem "漢堡、薯條、可樂"
ComboBox2.AddItem "雞塊、薯餅、紅茶"
ComboBox2.AddItem "薯餅、薯條、冰淇淋"
End Sub |
|
發表於 2013-3-7 11:28
| 
