作业帮VBA代码判断两数各除10余数相等,或一数加5除10余数相等如两数分别是：9和24,各除10余数是9和4不相等,或一数加5除10余数相等,9加5等14,14和24各除10余数是4和4相等如下是函数判断,现要求编写VBA
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/01 05:56:00
VBA代码判断两数各除10余数相等,或一数加5除10余数相等如两数分别是：9和24,各除10余数是9和4不相等,或一数加5除10余数相等,9加5等14,14和24各除10余数是4和4相等如下是函数判断,现要求编写VBA
VBA代码判断两数各除10余数相等,或一数加5除10余数相等
如两数分别是：9和24,各除10余数是9和4不相等,
或一数加5除10余数相等,9加5等14,14和24各除10余数是4和4相等
如下是函数判断,现要求编写VBA代码.
=IF(OR(MOD(A1,10)=MOD(B1,10),MOD(A1+5,10)=MOD(B1,10)),"真","假")
VBA代码判断两数各除10余数相等,或一数加5除10余数相等如两数分别是：9和24,各除10余数是9和4不相等,或一数加5除10余数相等,9加5等14,14和24各除10余数是4和4相等如下是函数判断,现要求编写VBA
写了两个方法,第一个方法取巧了
Public Sub 痒痒养羊1()
Cells(1,3) = "=IF(OR(MOD(A1,10)=MOD(B1,10),MOD(A1+5,10)=MOD(B1,10))," & Chr(34) & "真" & Chr(34) & "," & Chr(34) & "假" & Chr(34) & ")"
End Sub
Public Sub 痒痒养羊2()
If (Cells(1,1) Mod 10) = (Cells(1,2) Mod 10) Or ((Cells(1,1) + 5) Mod 10) = (Cells(1,2) Mod 10) Then
Cells(1,3) = "真"
Else
Cells(1,3) = "假"
End If
End Sub
假设2个数为a和b，输出自己设置，我用弹出对话框的方式进行显示。
If a Mod 10 = b Mod 10 Or (a + 5) Mod 10 = b Mod 10 Then
MsgBox "True"
Else
MsgBox "False"
End If