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

weisilisid

xuewuhen 发表于 2018-6-8 13:04
还有另外一个问题，假设中国农业银行001和002进行监控，003不属于监控账户，那怎么修改代码呢？

多加了个条件 Cells(i, 2).Value <> "中国农业银行002"

把代码换成下面的就可以了
'------------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
ActiveSheet.Columns("M:o").Clear
Dim i, Maxrow, a
Maxrow = ActiveSheet.[A65536].End(xlUp).Row
arr1 = Range("A2:c" & Maxrow)
a = 2
For i = 2 To UBound(arr1, 1)
If (Cells(i, 3).Value >= 10000 Or Cells(i, 3).Value < 0) And Cells(i, 2).Value <> "中国农业银行002" 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
[M1].CurrentRegion.Sort Key1:=Range("M2"), Order1:=xlAscending, Header:=xlGuess
    [N1].CurrentRegion.Sort Key1:=Range("N2"), Order2:=xlAscending, Header:=xlGuess
End Sub

xuewuhen

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

If (Application.WorksheetFunction.CountIf(Sheet2.Range("a1:a10"), Cells(i, 2)) > 1) And (Cells(i, 3) > 100000) Or (Cells(i, 3) < 0) Then   我改成这样，可以了，非常感谢你

xuewuhen

weisilisid 发表于 2018-6-8 14:09
多加了个条件 Cells(i, 2).Value  "中国农业银行002"

把代码换成下面的就可以了

谢谢，已经修改好了，呵呵

chuchenglai

Sub a()
r = Sheet1.Range("A65535").End(xlUp).Row
For i = 2 To r
If Sheet1.Range("C" & i).Value > 10000 Then
Sheet1.Range("D" & i).Value = "????1??"
Else
If Sheet1.Range("C" & i).Value < 0 Then
Sheet1.Range("D" & i).Value = "С??0"
End If
End If
Next
End Sub
'跑好这段后再筛选D列

bet007

Sub aa()
Sheet1.Range("i2:k100").ClearContents
   Dim i&, j&, k&, arr, brr
    With Sheet1
        arr = .Range("a2:c" & .[a65536].End(xlUp).Row)
    End With
    ReDim brr(1 To UBound(arr), 1 To 3)
    k = 1
    For i = 1 To UBound(arr)
        If arr(i, 3) >= 10000 Or arr(i, 3) < 0 Then
            For j = 1 To 3
                brr(k, j) = arr(i, j)
            Next j
            k = k + 1
        End If
    Next i
    [i2].Resize(UBound(brr), 3) = brr
End Sub

我也尝试做了一下。看看吧！

月下当前

xuewuhen 发表于 2018-6-8 14:03
Private Sub CommandButton1_Click()
Dim i, Maxrow, a, arr, s
Maxrow = ActiveSheet.[A65536].End(xl ...

你大于10万了，第二，需要分清楚or 和  and  先后之分，区分先后可以用括号区分，像乘法规则那样，有括号的先计算，再算没括号的。and  是并列关系

xuewuhen

月下当前 发表于 2018-6-8 17:31
你大于10万了，第二，需要分清楚or 和  and  先后之分，区分先后可以用括号区分，像乘法规则那样，有括号 ...

谢谢，思路没问题，条件写错了，应该是大于等于1.