菜鸟谈VBA最最基础入门《原创》

口是心非 · 发表于 2010-1-17 20:49

Sub test()
  If [a1].Value = "" Then
   MsgBox "A1单元格没有输入数字。"
   Exit Sub '    退出程序
  End If
  Select Case [a1].Value
   Case 0 To 29
      MsgBox "差"
   Case 30 To 59
      MsgBox "不及格"
   Case 60 To 79
      MsgBox "及格"
   Case 80 To 89
      MsgBox "良好"
   Case Else
      MsgBox "优秀"
  End Select
End Sub
为何上面代码case后没有is，而下面代码case后有is呢、
Sub Test()
  If [a1].Value = "" Then
   MsgBox "A1单元格没有输入数字。"
   Exit Sub '    退出程序
  End If
  Select Case [a1].Value
   Case Is < 30
      MsgBox "差"
   Case Is < 60
      MsgBox "不及格"
   Case Is < 80
      MsgBox "及格"
   Case Is < 90
      MsgBox "良好"
   Case Else
      MsgBox "优秀"
  End Select
End Sub

[ 本帖最后由口是心非于 2010-1-17 20:51 编辑 ]

zhishengyang · 发表于 2010-1-17 22:53

为什么我打开一个新表，建一个窗体，只做了一半，保存退出后，再次打开就没有了！！！

myd00001 · 发表于 2010-1-18 09:48

我来到论坛第一个看的就是这个帖子，扫盲了谢谢

听风看雪 · 发表于 2010-1-18 10:31

怎么才能把教程全下载下来呢

ggsmart · 发表于 2010-1-18 11:00

Sub test1()
If [a1] = "" Then
MsgBox "A1单元格没有输入任何内容！"
Else
MsgBox "A1单元格已输入内容！"
End If
End Sub

复制代码

但是当A1单元格为空时先返回--- "A1单元格没有输入任何内容！"，然后再返回"A1单元格已输入内容！"
这令我百思不得其解，A1单元格为空，条件为真啊，可是为什么还执行End If后面的语句块呢？？？

回复：
事实上是，End If后面的语句不管条件为真还是假，都要执行（除非在前面使用了exit sub等退出程序的语句）。对于上面的代码例子，当A1值为空，即条件为真时，执行If和End If之间的语句，然后再执行End If后面的语句。如果条件为假，则不执行If 与End If之间的语句，直接执行End If后面的语句。如果要实现你的要求，代码可改为：

Sub test1()
If [a1] = "" Then
MsgBox "A1单元格没有输入任何内容！"
Else
MsgBox "A1单元格已输入内容！"
End If
End Sub

复制代码

[ 本帖最后由 ggsmart 于 2010-1-18 11:05 编辑 ]

ggsmart · 发表于 2010-1-18 11:32

这个问题看一下select case语句的相关说明就知道了。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

语法：

Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Select Case 语句的语法具有以下几个部分：

部分	描述
testexpression	必要参数。任何数值表达式或字符串表达式。
expressionlist-n	如果有 Case 出现，则为必要参数。其形式为 expression，expression To expression，Is comparisonoperator expression的一个或多个组成的分界列表。To 关键字可用来指定一个数值范围。如果使用 To 关键字，则较小的数值要出现在 To 之前。使用 Is 关键字时，则可以配合比较运算符（除 Is 和 Like 之外）来指定一个数值范围。如果没有提供，则 Is 关键字会被自动插入。
statements-n	可选参数。一条或多条语句，当 testexpression 匹配expressionlist-n中的任何部分时执行。
elsestatements	可选参数。一条或多条语句，当 testexpression 不匹配 Case 子句的任何部分时执行。

[ 本帖最后由 ggsmart 于 2010-1-18 11:36 编辑 ]

ggsmart · 发表于 2010-1-18 11:41

前面的楼层里有一个很简单的登录窗体的例子，你可以去看一看。

http://club.excelhome.net/viewth ... ;page=47#pid3162112

hanter007 · 发表于 2010-1-18 12:58

好好学习,慢慢消化

阿龙168 · 发表于 2010-1-18 13:42

严重支持楼主这种提问必回贴的精神

chcon01 · 发表于 2010-1-18 14:35

作为新人，十分的感谢！

		自动登录	找回密码
密码			免费注册

菜鸟谈VBA最最基础入门《原创》

窗体问题

回复 1147楼阿龙168 的帖子

回复 1153楼口是心非的帖子

回复 1150楼阿龙168 的帖子

菜鸟谈VBA最最基础入门《原创》

窗体问题

回复 1147楼 阿龙168 的帖子

回复 1153楼 口是心非 的帖子

回复 1150楼 阿龙168 的帖子

回复 1147楼阿龙168 的帖子

回复 1153楼口是心非的帖子

回复 1150楼阿龙168 的帖子