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

songjixing99870

写得真好！特别适合懂基础英语的新手阅读！
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶！

党的政策好

对我来说是有用的，所以回帖来感谢下

Rita_H

努力学习努力学习

阿龙168

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


以上代码，当A1单元格有输入内容时直接返回---"A1单元格已输入内容！"----这样算是正确的，
但是当A1单元格为空时先返回--- "A1单元格没有输入任何内容！"，然后再返回"A1单元格已输入内容！"
这令我百思不得其解，A1单元格为空，条件为真啊，可是为什么还执行End If后面的语句块呢？？？
解释：如果逻辑表达式的结果为true，则执行语句块里的所有语句，否则执行end if后面的语句。语句块可以是一句指令或多条指令，也可以调用一个或多个过程，当然，也可以为空，就是没有语句。
-------这是楼主对if---then语句解释。

请赐教！

[ 本帖最后由 阿龙168 于 2010-1-16 16:44 编辑 ]

xuyijia1118

比书上的易懂多了，真的非常感谢

阿龙168

我的贴哪去了？

阿龙168

上午又接着1147楼发一求助贴，又看到发贴成功了的。
怎么现在没了？
怎么回事啊楼主？
难道有人删了我的贴吗？



不好意思，找到了，原来回错贴了，问题下见楼下

[ 本帖最后由 阿龙168 于 2010-1-17 13:51 编辑 ]

阿龙168

Private Sub Workbook_Open()
Application.Visible = False '关闭EXCEL程序
我的商体.Show 0
End Sub
Private Sub 确定_Click()
If 密码区.Value = "123" Then
Application.Visible = True '打开EXCEL程序
我的商体.Hide
Else: MsgBox ("密码错误，请重新输入")
End If
End Sub

我的本意是，当打开工作薄“我的窗体-2”时弹出输入密码窗体，
当密码正解时打开工作薄（密码123），这个结果没问题。
当密码不正确时提示“密码错误，请重新输入”这个也没问题
但是，当因为不知道密码而进不时就理会它了，然后再去打开其他工作薄时却看到“我的商体-2”这个工作薄也跟着打开了，更郁闷的时只有打开已经保存过的工作薄时“我的窗体-2”这个工作薄才会跟着打开，而新建一个工作薄时“我的窗体-2”不会跟着打开。
具体问题可试一下附档文件。

不明白这是为什么？？？
教师解释解释。


不好意思，找到了，原来回错贴了。

haidenver

刚来的，很想学习。

hgdwuli

强烈建议加精