求助: 两工作表对比,金额相同标红色

leeson0219

用条件格式：=ROUND(SUMIF($G$6:$G$32,$G6,$J$6:$J$32)-SUMIF(纸板出入库列表2!$G$3:$G$11,$G6,纸板出入库列表2!$J$3:$J$11),2)=0

38180203

leeson0219 发表于 2024-11-15 21:41
用条件格式：=ROUND(SUMIF($G$6:$G$32,$G6,$J$6:$J$32)-SUMIF(纸板出入库列表2!$G$3:$G$11,$G6,纸板出入库 ...

老师要两个表都同时标红

leeson0219

38180203 发表于 2024-11-16 08:01
老师要两个表都同时标红

另一张表你照葫芦画瓢啊

38180203

蓝桥玄霜 发表于 2024-11-15 17:03
明细的例子：

老师,提示下标越界,请教

蓝桥玄霜

是aa(j) 不是aa(i)

xdychina1

条件格式不是更好吗

38180203

yanglinzi 发表于 2024-11-15 16:44

老师您好,,,如果金额误差0.05以上会被视为不一样,,,我想小数点后一位相同即视为一样....应怎么修改,,谢了

翁知江安

Sub 对账()
Dim i, j, k, m, n, irow, irow1
Dim arr, brr
Dim d1 As Object
Dim d2 As Object
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
irow = Sheets("纸板出入库列表1").[J65536].End(xlUp).Row
arr = Sheets("纸板出入库列表1").Range("a1:j" & irow)
For i = 6 To UBound(arr)
  If arr(i, 7) <> "" Then
  d1(arr(i, 7)) = d1(arr(i, 7)) + arr(i, 10)
   End If
Next

irow1 = Sheets("纸板出入库列表2").[J65536].End(xlUp).Row
brr = Sheets("纸板出入库列表2").Range("a1:j" & irow1)
For j = 3 To UBound(brr)
  If brr(j, 7) <> "" Then
   d2(brr(j, 7)) = d2(brr(j, 7)) + brr(j, 10)
   End If
Next
For Each k In d1.keys
  d1(k) = WorksheetFunction.Round(d1(k), 1)
  d2(k) = WorksheetFunction.Round(d2(k), 1)
  If d1(k) = d2(k) Then
   For m = 6 To UBound(arr)
      If arr(m, 7) = k Then
      Sheets("纸板出入库列表1").Cells(m, 7).Font.Color = vbRed
      Sheets("纸板出入库列表1").Cells(m, 10).Font.Color = vbRed
      End If
    Next
    For n = 3 To UBound(brr)
      If brr(n, 7) = k Then
      Sheets("纸板出入库列表2").Cells(n, 7).Font.Color = vbRed
      Sheets("纸板出入库列表2").Cells(n, 10).Font.Color = vbRed
      End If
    Next
    End If
Next
MsgBox "ok"
End Sub

翁知江安

供参考。欢迎批评指正。

yanglinzi

38180203 发表于 2024-11-16 14:00
老师您好,,,如果金额误差0.05以上会被视为不一样,,,我想小数点后一位相同即视为一样....应怎么修改,,谢了

小数点位数保留2位，然后加个相差0.05的判断。