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

ComboBox5°j°é¨Ï¥Î

ComboBox5°j°é¨Ï¥Î

ComboBox5 ¿¤¥«
ComboBox1°Ï°ì§O

¥ý¿ïComboBox5¿ï¾Ü¿¤¥«==>ComboBox1¿ï°Ï°ì§O===>²Ä¤@¦¸¿ïOK¥¿½T
¦b¤£Â÷¶}userform,¦b¿ï²Ä¤GºØComboBox5¿ï¾Ü¿¤¥«==>ComboBox1¿ï°Ï°ì§O(´Nµo¥Í¿ù»~)
·Q½Ð°Ý¤@¤U­n¦p¦ó­×¥¿

TEST.rar (11.42 KB)

Private Sub ComboBox5_Change()
  ComboBox1.Clear
  Select Case ComboBox1.ListIndex
    Case 0:
      ...
    Case 1:
      ...
    Case 3:
      ...
  End Select
End Sub
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

  1. Private Sub ComboBox5_Change()
  2. Select Case ComboBox5
  3. Case "·s¥_¥«"

  4. ComboBox1.List = Array("²H¤ô°Ï", "¤TªÛ°Ï", "¥Ûªù°Ï", "¤K¨½°Ï", "¸U¨½°Ï", "ª÷¤s°Ï", _
  5. "ªO¾ô°Ï", "¦Á¤î°Ï", "²`§|°Ï", "¥ÛÞä°Ï", "·çªÚ°Ï", "¥­·Ë°Ï", "Âù·Ë°Ï", _
  6. "°^¼d°Ï", "·s©±°Ï", "©WªL°Ï", "¯Q¨Ó°Ï", "¥Ã©M°Ï", "¤¤©M°Ï", "¤g«°°Ï", "¤T®l°Ï", "¾ðªL°Ï", _
  7. "Åaºq°Ï", "¤T­«°Ï", "·s²ø°Ï", "®õ¤s°Ï", "ªL¤f°Ï", "Ī¬w°Ï", "¤­ªÑ°Ï")


  8. Case "¥x¥_¥«"
  9. ComboBox1.List = Array("¤¤¥¿°Ï", "¤j¦P°Ï", "¤¤¤s°Ï", "ªQ¤s°Ï", "¤j¦w°Ï", "¸UµØ°Ï", "«H¸q°Ï", "¤hªL°Ï", "¥_§ë°Ï", "¤º´ò°Ï", "«n´ä°Ï", "¤å¤s°Ï")

  10. Case "°ò¶©¥«"
  11. ComboBox1.List = Array("¤¯·R°Ï", "«H¸q°Ï", "¤¤¥¿°Ï", "¤¤¤s°Ï", "¦w¼Ö°Ï", "·x·x°Ï", "¤C°ô°Ï")
  12. '¥H¦¹Ãþ±À¥[¤J¨ä¥L¿¤¥«ªº°Ï¦W
  13. End Select

  14. End Sub

  15. Private Sub UserForm_Initialize()


  16.   With ComboBox5 '¿¤¥«§O

  17. .AddItem "·s¥_¥«"
  18. .AddItem "¥x¥_¥«"
  19. .AddItem "®ç¶é¥«"
  20. .AddItem "°ò¶©¥«"
  21. .AddItem "®ç¶é¥«"
  22. .AddItem "¥x¤¤¥«"

  23. .AddItem ""
  24. End With
  25. End Sub
½Æ»s¥N½X
¦^´_ 1# sillykin
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD