ªð¦^¦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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD