可能是select case语法用错,select case语法实例如下:
Sub selectcase()
select case a
意思就是判断a是什么内容。然后根据不同内容执行不同的代码。
如:
select case a
case "李" '注:当a="李"时,执行下面这句:
msgbox "他是姓李的"
case "543" '注:当a="543"时,执行下面这句:
msgbox "哈哈,a的内容是543"
case else 'a为其它内容时,执行下面这句:
msgbox "a是什么东东哦~"
end select '结束判断
End Sub