核对公司多个银行余额，找出余额大于1万，小于0的信息

xuewuhen

如题，谢谢

vbee

筛选一下就好了，为啥VBA

xuewuhen

vbee 发表于 2018-6-8 09:57
筛选一下就好了，为啥VBA

多家企业，20多个账户，还有一部分账户不是监控账户

月下当前

看看可否？

月下当前

这个加了排序的！

areshmds

    Columns("A:C").Select
    Range("C1").Activate
    Selection.AutoFilter
    Columns("C:C").Select

    ActiveSheet.Range("$A$1:$C$9999").AutoFilter Field:=3, Criteria1:=">10000", _
        Operator:=xlOr, Criteria2:="<0"



上面是代码
传了附件上来了，直接ctrl+q就行

xuewuhen

月下当前 发表于 2018-6-8 12:08
看看可否？

谢谢，完全满足需要

xuewuhen

areshmds 发表于 2018-6-8 12:26
Columns("A:C").Select
    Range("C1").Activate
    Selection.AutoFilter

谢谢，已经解决，

xuewuhen

月下当前 发表于 2018-6-8 12:12
这个加了排序的！

还有另外一个问题，假设中国农业银行001和002进行监控，003不属于监控账户，那怎么修改代码呢？

xuewuhen

月下当前 发表于 2018-6-8 12:08
看看可否？

Private Sub CommandButton1_Click()
Dim i, Maxrow, a, arr, s
Maxrow = ActiveSheet.[A65536].End(xlUp).Row
arr1 = Range("A2:c" & Maxrow)


a = 2
For i = 2 To UBound(arr1, 1)

If Cells(i, 3) > 100000 Or Cells(i, 3) < 0 And Application.WorksheetFunction.CountIf(Sheet2.Range("a1:a10"), Cells(i, 2)) > 1 Then
Sheets("数据").[m1:O1] = Array("日期", "银行名称", "金额")
Sheets("数据").Cells(a, 13) = Sheets("数据").Cells(i, 1).Text
Sheets("数据").Cells(a, 14) = Sheets("数据").Cells(i, 2)
Sheets("数据").Cells(a, 15) = Sheets("数据").Cells(i, 3).Value
a = a + 1
End If
Next i
End Sub
涂颜色代码，我写的有问题吗？怎么结果全是比10万大的，不出现负数