- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 256
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-26
|
- Private Sub ComboBox5_Change()
- Select Case ComboBox5
- Case "·s¥_¥«"
- ComboBox1.List = Array("²H¤ô°Ï", "¤TªÛ°Ï", "¥Ûªù°Ï", "¤K¨½°Ï", "¸U¨½°Ï", "ª÷¤s°Ï", _
- "ªO¾ô°Ï", "¦Á¤î°Ï", "²`§|°Ï", "¥ÛÞä°Ï", "·çªÚ°Ï", "¥·Ë°Ï", "Âù·Ë°Ï", _
- "°^¼d°Ï", "·s©±°Ï", "©WªL°Ï", "¯Q¨Ó°Ï", "¥Ã©M°Ï", "¤¤©M°Ï", "¤g«°°Ï", "¤T®l°Ï", "¾ðªL°Ï", _
- "Åaºq°Ï", "¤T«°Ï", "·s²ø°Ï", "®õ¤s°Ï", "ªL¤f°Ï", "Ī¬w°Ï", "¤ªÑ°Ï")
- Case "¥x¥_¥«"
- ComboBox1.List = Array("¤¤¥¿°Ï", "¤j¦P°Ï", "¤¤¤s°Ï", "ªQ¤s°Ï", "¤j¦w°Ï", "¸UµØ°Ï", "«H¸q°Ï", "¤hªL°Ï", "¥_§ë°Ï", "¤º´ò°Ï", "«n´ä°Ï", "¤å¤s°Ï")
- Case "°ò¶©¥«"
- ComboBox1.List = Array("¤¯·R°Ï", "«H¸q°Ï", "¤¤¥¿°Ï", "¤¤¤s°Ï", "¦w¼Ö°Ï", "·x·x°Ï", "¤C°ô°Ï")
- '¥H¦¹Ãþ±À¥[¤J¨ä¥L¿¤¥«ªº°Ï¦W
- End Select
- End Sub
- Private Sub UserForm_Initialize()
- With ComboBox5 '¿¤¥«§O
- .AddItem "·s¥_¥«"
- .AddItem "¥x¥_¥«"
- .AddItem "®ç¶é¥«"
- .AddItem "°ò¶©¥«"
- .AddItem "®ç¶é¥«"
- .AddItem "¥x¤¤¥«"
- .AddItem ""
- End With
- End Sub
½Æ»s¥N½X ¦^´_ 1# sillykin |
|