Question

EXCEL函数判断A1:H1区域，任意四位数除10余数=另外四位数除10余数为真。如图：

EXCEL函数判断A1:H1区域，任意四位数除10余数=另外四位数除10余数为真。如图：

Answer 1

楼主选出1、2、3、7是指把这四个数字组成一千二百三十七吗？然后让1237和4568除以10的余数进行比较是否相等？

追问

1+2+3+7和除以10的余数与4+5+6+8和除以10的余数比较是否相等，上例是3=3为真。谢谢！

追答

这个用函数可能很复杂，感觉写不出来。VBA能不能接受？可以的话，今天晚些时候写给你。

追问

可以，先谢谢

追答

Sub test()
Dim n As Integer, i As Integer, arr(7), sum1 As Integer, sum2 As Integer
n1 = Application.WorksheetFunction.RandBetween(1, 8)
Do
    n2 = Application.WorksheetFunction.RandBetween(1, 8)
Loop While n2 = n1
Do
    n3 = Application.WorksheetFunction.RandBetween(1, 8)
Loop While n3 = n2 Or n3 = n1
Do
    n4 = Application.WorksheetFunction.RandBetween(1, 8)
Loop While n4 = n3 Or n4 = n2 Or n4 = n1
sum1 = Cells(1, n1) + Cells(1, n2) + Cells(1, n3) + Cells(1, n4)
sum2 = Application.WorksheetFunction.Sum(Range("a1:h1")) - sum1
Range("a1:h1").Interior.ColorIndex = 2
Cells(1, n1).Interior.ColorIndex = 43
Cells(1, n2).Interior.ColorIndex = 43
Cells(1, n3).Interior.ColorIndex = 43
Cells(1, n4).Interior.ColorIndex = 43
mod1 = sum1 Mod 10
MsgBox "mod1=" & mod1
mod2 = sum2 Mod 10
MsgBox "mod2=" & mod2
If mod1 = mod2 Then
    Range("i1").Value = "TRUE"
Else
    Range("i1") = "FALSE"
End If
MsgBox "余数相等事件为：" & Range("i1").Value
End Sub

若把代码中msgbox开头的行删除可去除弹出窗口，把=43的那4行删除可去除背景颜色突出。

初学VBA，写得很不规范，还请各位知友批评指正！楼主还有什么不明白的，亦可追问。

追问

老师！提示对象不支持

追答

这个文件我这边两台电脑上跑都是没问题的呀，你是自己改过代码吗？选调试，看一下黄色警告部分是什么

追问

第一句，n1=那行
我是2003版

追答

Sub test()
Dim n As Integer, i As Integer, arr(7), sum1 As Integer, sum2 As Integer, n1 As Integer
n1 = Int(8 * Rnd() + 1)
Do
    n2 = Int(8 * Rnd() + 1)
Loop While n2 = n1
Do
    n3 = Int(8 * Rnd() + 1)
Loop While n3 = n2 Or n3 = n1
Do
    n4 = Int(8 * Rnd() + 1)
Loop While n4 = n3 Or n4 = n2 Or n4 = n1
sum1 = Cells(1, n1) + Cells(1, n2) + Cells(1, n3) + Cells(1, n4)
sum2 = Application.WorksheetFunction.Sum(Range("a1:h1")) - sum1
Range("a1:h1").Interior.ColorIndex = 2
Cells(1, n1).Interior.ColorIndex = 43
Cells(1, n2).Interior.ColorIndex = 43
Cells(1, n3).Interior.ColorIndex = 43
Cells(1, n4).Interior.ColorIndex = 43
mod1 = sum1 Mod 10
MsgBox "mod1=" & mod1
mod2 = sum2 Mod 10
MsgBox "mod2=" & mod2
If mod1 = mod2 Then
    Range("i1").Value = "TRUE"
Else
    Range("i1") = "FALSE"
End If
MsgBox "余数相等事件为：" & Range("i1").Value
End Sub

故障原因在于03版Excel不支持randbetween函数，怪我太年轻，直接使用内置的rnd函数就好了哈哈。建议以后用10版的Excel，兼容性强。

追问

老师！你不简单，一下子就找出原因，谢谢老师！