quickfixer

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