- ©«¤l
- 57
- ¥DÃD
- 21
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-9-18
- ³Ì«áµn¿ý
- 2022-9-13
|
ºÎ¤F¤@ı¡A¦Û¤v¸Ñ¨M¤F¡A¤À¨Éµ¹¤j®a
Private Sub UserForm_Activate()
ComboBox1.AddItem "¸ê®Æ1"
ComboBox1.AddItem "¸ê®Æ2"
ComboBox1.AddItem "¸ê®Æ3"
Private Sub ComboBox1_Change()
If ComboBox1.Text = "¸ê®Æ1" Then ComboBox2.clear '¿ï©w¸ê®Æ«á²M°£¡AÁקK¿ï¨â¦¸·|õì¥[²M³æ
If ComboBox1.Text = "¸ê®Æ1" Then ComboBox2.AddItem "A"
If ComboBox1.Text = "¸ê®Æ1" Then ComboBox2.AddItem "B"
If ComboBox1.Text = "¸ê®Æ2" Then ComboBox2.clear
If ComboBox1.Text = "¸ê®Æ2" Then ComboBox2.AddItem "C"
If ComboBox1.Text = "¸ê®Æ2" Then ComboBox2.AddItem "D"
If ComboBox1.Text = "¸ê®Æ2" Then ComboBox2.AddItem "E"
If ComboBox1.Text = "¸ê®Æ3" Then ComboBox2.clear
If ComboBox1.Text = "¸ê®Æ3" Then ComboBox2.AddItem "F" |
|