AltF11，然后AltIM，在弹出窗口粘帖下面内容：
FunctionchooseTest(myDayAsInteger)AsString
chooseTest=Choose(myDay,\"Monday\",\"Tuesday\",\"Wednesday\",\"Thursday\",\"Friday\",\"Sateday\",\"Sunday\")
chooseTest=\"Choose结果：\"chooseTest
EndFunction
FunctionSelectTest(myDayAsInteger)AsString
SelectCasemyDay
Case1
SelectTest=\"Monday\"
Case2
SelectTest=\"Tuesday\"
Case3
SelectTest=\"Wednesday\"
Case4
SelectTest=\"Thursday\"
Case5
SelectTest=\"Friday\"
Case6
SelectTest=\"Sateday\"
Case7
SelectTest=\"Sunday\"
EndSelect
SelectTest=\"Select结果：\"SelectTest
EndFunction
然后回到excel，在A1填4,A2填=chooseTest(A1)，A3填=selectTest(A1)可看到效果 |
