Các cao thủ giúp em tạo addin này có VBA lọc có điều kiện (1 người xem)

[fanyuhuan]

Em có 1 bảng tính có 2 cột bôi đỏ là cái dữ liệu cần dùng
Điều kiện đưa ra là nếu giá trị ở cột F mà nhỏ hơn hoặc bằng 50.000.000 thì sẽ cho vào cột cho vay không bảo đảm: và tính tổng lãi của những món vừa lọc ở cột K, và những món lớn hơn 50.000.000 thì sẽ cho vào dòng có đảm bảo và cũng tính tổng lãi của những món vừa lọc ở cột K
Các bác viết giúp em cái addin này được không al

 

[langtuchungtinh360]

Em có 1 bảng tính có 2 cột bôi đỏ là cái dữ liệu cần dùng
Điều kiện đưa ra là nếu giá trị ở cột F mà nhỏ hơn hoặc bằng 50.000.000 thì sẽ cho vào cột cho vay không bảo đảm: và tính tổng lãi của những món vừa lọc ở cột K, và những món lớn hơn 50.000.000 thì sẽ cho vào dòng có đảm bảo và cũng tính tổng lãi của những món vừa lọc ở cột K
Các bác viết giúp em cái addin này được không al

cái này thì cần gì code bạn. if thôi cũng được mà. nhưng mà không biết cách tính mà bạn nói nên không giúp được rồi.

 

[doatmenhhon]

cái này thì cần gì code bạn. if thôi cũng được mà. nhưng mà không biết cách tính mà bạn nói nên không giúp được rồi.

Bác đã quay trở lại và lợi hại hơn xưa ^^

 

[langtuchungtinh360]

Bác đã quay trở lại và lợi hại hơn xưa ^^

không giúp được mà lợi hại gì bác.

 

[phulien1902]

Em có 1 bảng tính có 2 cột bôi đỏ là cái dữ liệu cần dùng
Điều kiện đưa ra là nếu giá trị ở cột F mà nhỏ hơn hoặc bằng 50.000.000 thì sẽ cho vào cột cho vay không bảo đảm: và tính tổng lãi của những món vừa lọc ở cột K, và những món lớn hơn 50.000.000 thì sẽ cho vào dòng có đảm bảo và cũng tính tổng lãi của những món vừa lọc ở cột K
Các bác viết giúp em cái addin này được không al

Tôi gán "Vay không đảm bảo" vào cột P, và " vay đảm bảo" vào cột Q.
Sau đó tôi tính tổng vay đảm bảo và không đảm bảo theo cột K.
Bạn tham khảo:

Sub ABC()
    Dim i As Long, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 2 Step -1
        If Range("F" & i).Value <= 50000000 Then
            Range("p" & i) = "Khong Dam Bao"
        Else
            Range("p" & i).Offset(, 1) = "Dam Bao"
        End If
    Next i
    If Range("K" & i) <> Empty And Range("P" & i) <> Empty Then
        Range("p" & LR + 1) = "=SUMIF(R2C16:R37C16,""Khong Dam Bao"",R2C11:R37C11)"
        Range("p" & LR + 1).Value = Range("p" & LR + 1).Value
        Range("Q" & LR + 1) = "=SUMIF(R2C17:R37C17,""Dam Bao"",R2C11:R37C11)"
        Range("Q" & LR + 1).Value = Range("Q" & LR + 1).Value
    End If
End Sub

Bạn kiểm tra lại kết quả nhé

 

[phulien1902]

Bài #5 thừa 2 dòng dưới, bạn bỏ đi nhé

    If Range("K" & i) <> Empty And Range("P" & i) <> Empty Then
        '.....................
    End If