[µo°Ý] ¿ï³æ§PÂ_

mark761222

³z¹L¤U­±»yªk«Ø¥ß¿ï³æ
Private Sub UserForm_Activate()
ComboBox1.AddItem "¸ê®Æ1"
ComboBox1.AddItem "¸ê®Æ2"
ComboBox1.AddItem "¸ê®Æ3"

ComboBox2.AddItem "A"
ComboBox2.AddItem "B"
ComboBox2.AddItem "C"
ComboBox2.AddItem "D"
ComboBox2.AddItem "E"
ComboBox2.AddItem "F"

¦p¦ó§PÂ_ ·í§Ú¿ï¸ê®Æ1ªº®É­ÔComboBox2.AddItem ¥uÅã¥ÜAB
·í§Ú¿ï¸ê®Æ2ªº®É­ÔComboBox2.AddItem ¥uÅã¥ÜCDE
·í§Ú¿ï¸ê®Æ3ªº®É­ÔComboBox2.AddItem ¥uÅã¥ÜF

IF ComboBox1.Text = "¸ê®Æ1" Then           «á­±´N¤£·|¼g¤F

¦³¤j¤j¥i¥H¸Ñµª¶Ü?«ô°U¤F

mark761222

ºÎ¤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"

GBKEE

¦^´_ 2# mark761222
¥i²¼ä¤@¤U,¸Õ¸Õ¬Ý

1. Private Sub ComboBox1_Change()
   
2.     With ComboBox2
   
3.         .Clear
   
4.         If ComboBox1.Text = "¸ê®Æ1" Then .List = Array("A", "B")
   
5.         If ComboBox1.Text = "¸ê®Æ2" Then .List = Array("C", "D", "E")
   
6.         If ComboBox1.Text = "¸ê®Æ3" Then .List = Array("F")
   
7.     End With
   
8. End Sub

½Æ»s¥N½X