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

micch

看《别怕》觉得非常好，感觉很适合我这种初学者，之前完全不懂，才看了个开头觉得自己好像开窍了

3109008289

谢谢楼主，很好的东西

meishishen

非常非常好快谢谢

scwsflzxagx

谢谢分享，楼主辛苦了。

yhnnc

ggsmart 发表于 2009-8-12 21:35
控制程序的流程，有判断、分支和循环三种语句。
接下来我们将一样一样地进行讲解。
＝＝＝＝＝＝＝＝＝＝ ...

01.

02.Sub test3()

03.   If [a1] = "" Then

04.       MsgBox "A1单元格没有输入任何内容！"

05.   ElseIf [a1] Mod 2 = 0 Then

06.       MsgBox "A1单元格的数能被2整除！"

07.   ElseIf [a1] Mod 3 = 0 Then

08.       MsgBox "A1单元格的数能被3整除！"

09.   ElseIf [a1] Mod 5 = 0 Then

10.       MsgBox "A1单元格的数能被5整除！"

11.   Else

12.       MsgBox "A1单元格的数不能被2、3、5其中之一整除！"

13.   End If

14.End Sub

这段代码改下
这样比如6、10等能被2个数整除的就都有提示

Sub test3()
   If [a1] = "" Then
       MsgBox "A1单元格没有输入任何内容！"
   End If
   If [a1] Mod 2 = 0 Then
       MsgBox "A1单元格的数能被2整除！"
   End If
   If [a1] Mod 3 = 0 Then
       MsgBox "A1单元格的数能被3整除！"
   End If
   If [a1] Mod 5 = 0 Then
       MsgBox "A1单元格的数能被5整除！"
   End If

   If [a1] = "" Then
   ElseIf [a1] Mod 2 = 0 Then
   ElseIf [a1] Mod 3 = 0 Then
   ElseIf [a1] Mod 5 = 0 Then
   Else
       MsgBox "A1单元格的数不能被2、3、5其中之一整除！"
   End If
End Sub

AnjinYim

学习了，多谢分享。。

林冲哥哥

这个好呀，谢谢啦

553597712

看过留名，有时间慢慢学

马赛克学表格

学习了，露个脸

马赛克学表格

像大神学习