实例比较ExcelVBA的四种选择结构和函数

程序代码的强大之处在于能够利用电脑运算速度快的特点，通过跳转实现选择和循环的控制结构，从而让程序具有智能、且能按预定的条件让电脑能不知疲倦地工作。在程序中要经常进行各种选择或判断，且通过条件判断后根据不同的情况选择执行不同的代码块。VBA有四种语句可以实现条件选择或判断的功能：if、select结构、iif和choose函数；各有其优势及应用的特定场合，而if结构则是可以完全实现或替代另外其它三种结构或函数的。
1 单条件判断之If与Select CaseSub IF_Then语句() '如果A1的值在36到37.5之间If Range("a1").Value >= 36 And Range("a1").Value  37.5  '如果小于36，或者大于37.5MsgBox "异常"  '提示异常Case Else  '否则MsgBox "正常"  '提示正常End SelectEnd Sub
2 多条件判断之If与Select CaseSub 多条件之IF_Then()If Sheet2.Range("a1").Value  4 ThenMsgBox "允许范围是1到4"  '提示用户超出允许范围，GoTo Star  '然后跳转到标签处继续执行(只要输入非法值就继续执行，直到符合要求为止)Else  '否则 '调用explorer.exe对象，打开指定网站。要注意网址是explorer.exe的参数，所以它们之间有一个空格Shell "explorer.exe " & Choose(URL, "http://www.xxx.com/", "http://www.xxx2.com.hk/", "http://www.xxx3.com/", "http://cn.xx.com/"), vbMaximizedFocusEnd IfEnd Sub '代码思路分析： '首先设置一个标签，当用户录入数值错误时可以返回此标签处继续执行， '当然要实现同样的功能也可以改用循环语句。当学会了下一节的循环语句后，读者可以练习一下改用循环语句实现同等功能。 '然后通过Application.InputBox方法创建一个输入框，让用户输入数值，从而根据数值决定打开哪一个网址。 '接着要判断用户录入的数值是否属于1、2、3、4几个值中的一个，如果不是那么返回标签处继续执行，等待用户重新录入数值。