求助：请看代码！菜鸟学vba，是select case 条件错了吗？请指教

yeminqiang

看了别怕该书，现正在学习，想用selec case 语句写出if语句同样的效果，请看下面代码！是否case后面的条件错了，应该如何修改？谢谢！
Sub test()
If [a1] = "" Then
MsgBox "a1单元格没有输入数字"
ElseIf [a1] Mod 2 = 0 Then
MsgBox "a1单元格能被2整除！"
ElseIf [a1] Mod 3 = 0 Then
MsgBox "a1单元格能被3整除！"
ElseIf [a1] Mod 5 = 0 Then
MsgBox "a1单元格能被5整除！"
Else
MsgBox "a1单元格不能被2、 3、 5其中之一整除！"
End If
End Sub



Sub test1()
If [a1].Value = "" Then
MsgBox "a1单元格没有输入数字"
Exit Sub
End If
Select Case [a1].Value
Case [a1].Value Mod 2 = 0
MsgBox "a1能被2整除"
Case [a1].Value Mod 3 = 0
MsgBox "a1能被3整除"
Case [a1].Value Mod 5 = 0
MsgBox "a1能被5整除"
Case Else
MsgBox "a1不能被2、3、5之一整除"
End Select
End Sub

wajour

你的case判断用余数与被除数没有直接的可比性建议你这样

1. Sub test1()
   
2. If [A1].Value = "" Then
   
3. MsgBox "a1单元格没有输入数字"
   
4. Exit Sub
   
5. End If
   
6. Select Case [A1]
   
7. Case Int([A1] / 2) * 2
   
8. MsgBox "a1能被2整除"
   
9. Case Int([A1] / 3) * 3
   
10. MsgBox "a1能被3整除"
    
11. Case Int([A1] / 5) * 5
    
12. MsgBox "a1能被5整除"
    
13. Case Else
    
14. MsgBox "a1不能被2、3、5之一整除"
    
15. End Select
    
16. End Sub
    

复制代码

yeminqiang

谢谢wajour ，又知道多一点了，感谢！{:soso_e163:}