- ©«¤l
- 151
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 14
- §@·~¨t²Î
- windwos 7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-5-29
- ³Ì«áµn¿ý
- 2024-4-18
|
activex ªº combobox ¤£´N¤º«Ø change °Æµ{¦¡¶Ü?
¦b¤u§@ªí1´¡¤J¤@Óactivex combobox
§âµ{¦¡½X©ñ¦b¤u§@ªí1¡A¥ýrun¤@¦¸test¥[¤J´ú¸Õ¥Î¸ê®Æ
Sub test()
'¥[¤J´ú¸Õ¥Î¸ê®Æ
ComboBox1.List = Array("1", "2", "3")
'¹w³]È
ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case Is = 1
test1
Case Is = 2
test2
Case Is = 3
test3
End Select
End Sub
Sub test1()
Range("a1") = "a"
End Sub
Sub test2()
Range("a1") = "b"
End Sub
Sub test3()
Range("a1") = "c"
End Sub |
|