恳请大神们帮忙看下这个找出不符合要求的难题

qiongmei6

我希望求得一个代码，就是当他执行的时候他会找出az列不大于0的那行，然后把ah列和ak列对应的数据列出来，例如az3和az4一个负数，一个是0，那么他就会弹出提示：
                 以下人工资错误

                     上海  张3
                     北京  张4
谢谢各位大神的帮忙。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("工资汇总")
   
5.         r = .Cells(.Rows.Count, "ah").End(xlUp).Row
   
6.         arr = .Range("ah3:az" & r)
   
7.         ss = Empty
   
8.         For i = 1 To UBound(arr)
   
9.             If arr(i, 19) <= 0 Then
   
10.                 ss = ss & vbLf & arr(i, 1) & "," & arr(i, 4)
    
11.             End If
    
12.         Next
    
13.     End With
    
14.     If ss <> Empty Then
    
15.         MsgBox Mid(ss, 2)
    
16.     End If
    
17. End Sub
    

复制代码

chxw68

详见附件。

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, r&
   
    r = Cells(Rows.Count, "AH").End(xlUp).Row
    With Range("AH1:AZ" & r)
        ar = .Value
        For i = 3 To UBound(ar)
            If ar(i, 19) <= 0 Then
                 With .Rows(i)
                     .EntireRow.Interior.Color = vbRed
                     MsgBox ar(i, 1) & "," & ar(i, 4)
                     .EntireRow.Interior.Color = xlNone
                 End With
            End If
        Next i
    End With

    Beep
End Sub

gwjkkkkk

参与一下。。。