下拉式要如何選擇後會自動帶出其他表單訊息

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

11^# 跳轉到 »

發表於 2013-3-8 15:28 | 只看該作者

回復 mark15jill

感謝大大的協助
已經有找到我想要的寫法了(^口^)
Jared 發表於 2013-3-8 15:04

小弟僅提示而已.. GBKEE大大才是高手

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2013-3-8 17:10 | 只看該作者

回復 8# Jared

第一種寫法目前就是選擇完第一個ComboBox1
第二個選項會先呼應空白
只是想要讓他提前先顯示出來第一項

是這樣嗎? 1#表單的程式碼

'ListIndex = -1: 所選的不在 List清單內
Dim 價格
Private Sub ComboBox1_Change()
ComboBox2 = ""
TextBox1 = ""
If ComboBox1.ListIndex > -1 Then
ComboBox2 = ComboBox2.List(ComboBox1.ListIndex)
TextBox1 = 價格(ComboBox1.ListIndex)
End If
End Sub
' Private Sub ComboBox2_Change()
' TextBox1 = ""
' If ComboBox2.ListIndex > -1 Then TextBox1 = 價格(ComboBox1.ListIndex)
' End Sub
'****************************************************
Private Sub CommandButton1_Click()
If ComboBox1.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()
ComboBox1 = ""
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.Font.Size = 12
.TextAlign = fmTextAlignCenter '文字置中
.List = Array("一號餐", "二號餐", "三號餐")
End With
With ComboBox2
.Font.Size = 12
.TextAlign = fmTextAlignCenter '文字置中
.List = Array("漢堡、薯條、可樂", "雞塊、薯餅、紅茶", "薯餅、薯條、冰淇淋")
.Locked = True '禁止編輯
End With
With TextBox1
.Locked = True '禁止編輯
.Font.Size = 12
.TextAlign = fmTextAlignCenter '文字置中
End With
價格 = Array(50, 60, 70)
End Sub