以下是一个比较两个数字的VBA代码示例:
Sub CompareNumbers()
Dim num1 As Integer
Dim num2 As Integer
' 获取用户输入的两个数字
num1 = InputBox("请输入第一个数字:")
num2 = InputBox("请输入第二个数字:")
' 比较两个数字
If num1 > num2 Then
MsgBox "第一个数字大于第二个数字"
ElseIf num1 < num2 Then
MsgBox "第一个数字小于第二个数字"
Else
MsgBox "两个数字相等"
End If
End Sub
使用上面的代码示例,你可以创建一个VBA宏来比较两个数字。该宏首先使用InputBox
函数获取用户输入的两个数字,然后使用If...ElseIf...Else
语句来比较这两个数字,并在消息框中显示比较结果。
你可以将上述代码复制粘贴到VBA编辑器中的一个模块中,然后运行宏来测试它。
上一篇:比较两个数值字符串的更好的方法
下一篇:比较两个数字和当前的日期月份