ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

³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

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

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD