vba很简单一书的if then 语句学习

iaskmore

刚刚学习本书。
通过书中的例子自己演绎的代码。呵呵
现在有3个问题想问问各位专家：
1.有没有比这个代码还要简洁的代码？
2.为什么如果a1和b1单元格内都没有值，但代码的结果还是b大于a？
3.如果想添加：a1和b1单元格值相等是，在a2单元格显示a=b怎么办？

Private Sub CommandButton1_Click()
   Dim a As Integer
   Dim b As Integer
   a = Range("a1").Value
   b = Range("b1").Value
   If a > b Then Range("a2").Value = "a大于b" Else Range("a2").Value = "b大于a"
End Sub

香川群子

用函数：
A2单元格中输入 =TEXT(A1-B1,">;<;=")

香川群子

用代码：
在A2单元格中输入公式:

Sub Macro1()
    Range("A2").FormulaR1C1 = "=TEXT(R[-1]C-R[-1]C[1],"">;<;="")"
End Sub

yqdaqinqin

我给你解释一下第二条：0>0么？显然这个命题为假！那么逻辑值为假的时候，程序肯定不执行then后面的语句，而是执行else语句，所以这个大小不是计算机判断的，是人为给定的！

香川群子

代码方法2：

Sub Macro2()
    Range("A2") = IIf(Range("A1") > Range("B1"), ">", IIf(Range("A1") < Range("B1"), "<", "="))
End Sub

香川群子

代码方法3：

Sub Macro3()
    If Range("A1") > Range("B1") Then
        Range("A2") = ">"
    ElseIf Range("A1") < Range("B1") Then
        Range("A2") = "<"
    ElseIf Range("A1") = Range("B1") Then
        Range("A2") = "="
    End If
End Sub

也可省略为：
Sub Macro3()
    If Range("A1") > Range("B1") Then
        Range("A2") = ">"
    ElseIf Range("A1") < Range("B1") Then
        Range("A2") = "<"
    Else '此处条件可以省略了。
        Range("A2") = "="
    End If
End Sub

香川群子

代码方法4：

Sub Macro4()
    t = Range("A1") - Range("B1")
    Select Case t
        Case Is > 0
            Range("A2") = ">"
        Case Is < 0
            Range("A2") = "<"
        Case Is = 0
            Range("A2") = "="
    End Select
End Sub


或者:
Sub Macro4()
    t = Range("A1") - Range("B1")
    Select Case t
        Case Is > 0
            Range("A2") = ">"
        Case Is < 0
            Range("A2") = "<"
        Case Else
            Range("A2") = "="
    End Select
End Sub

香川群子

楼主晕没晕？ 还要继续么？

代码方法5：
If 语句的 单语句 并行检查方式：

Sub Macro5()
    If Range("A1") > Range("B1") Then Range("A2") = ">"
    If Range("A1") < Range("B1") Then Range("A2") = "<"
    If Range("A1") = Range("B1") Then Range("A2") = "="
End Sub

香川群子

代码方法6：
If ……Else…… 语句的串联检查方法：

Sub Macro6()
    If Range("A1") > Range("B1") Then Range("A2") = ">" Else If Range("A1") < Range("B1") Then Range("A2") = "<" Else Range("A2") = "="
End Sub

这个和代码方法2本质是一样的。
区别就是 IIf()的用法。

香川群子

Dim a As Integer
   Dim b As Integer

不建议你这样的初学者模仿Dim a As ……去定义变量类型。


因为定义变量类型以后就限制了变量的使用范围。
比如你现在Dim a As Integer 以后，a就只能存放-32768 to 32,767范围的整数。

那么如果你在A1、B1单元格中出现小数数值时，代码运行结果就很可能是错误的。

实际上这样就认为造成了bug。


…………
VBA本身能够自动适应数据类型，所以请初学者放心大胆地使用变量，
而不需要去定义变量，以及定义变量类型。

…………
学习了一定时间以后，你自然会掌握的。
不用现在就去搞这种Dim