Code trả kết quả là điều kiện

[hieuvietmy2020]

Em kính chào Quý Anh Chị trong diễn đàn,

Em xin gửi lời chúc sức khỏe đến Anh Chị, em có code 1 đoạn để lấy kết quả là điều kiện cho trước nếu Cột Nợ hoặc Có thỏa mãn 1 điều kiện cho trước (Cột Nợ/Có, trong 1 số trường hợp chỉ sẽ có số dư bên Nợ hoặc Có, nên sẽ bị trống ở cột còn lại)

Em chưa rõ bị thiếu sót ở đâu mà code vẫn chưa hoạt động, kính nhờ Quý Anh Chị xem giúp và hướng dẫn thêm giúp em ạ!

Em chân thành cảm ơn!

 

[Hoàng Tuấn 868]

Em kính chào Quý Anh Chị trong diễn đàn,
Em xin gửi lời chúc sức khỏe đến Anh Chị, em có code 1 đoạn để lấy kết quả là điều kiện cho trước nếu Cột Nợ hoặc Có thỏa mãn 1 điều kiện cho trước (Cột Nợ/Có, trong 1 số trường hợp chỉ sẽ có số dư bên Nợ hoặc Có, nên sẽ bị trống ở cột còn lại)
Em chưa rõ bị thiếu sót ở đâu mà code vẫn chưa hoạt động, kính nhờ Quý Anh Chị xem giúp và hướng dẫn thêm giúp em ạ!
Em chân thành cảm ơn!

Bạn nên nêu rõ các điều kiện cụ thể thế nào, kết quả nếu đúng thì sẽ ra sao. chứ nhìn code của bạn mình chưa đoán được ý bạn định làm gì.

 

[HUONGHCKT]

Em kính chào Quý Anh Chị trong diễn đàn,

Em xin gửi lời chúc sức khỏe đến Anh Chị, em có code 1 đoạn để lấy kết quả là điều kiện cho trước nếu Cột Nợ hoặc Có thỏa mãn 1 điều kiện cho trước (Cột Nợ/Có, trong 1 số trường hợp chỉ sẽ có số dư bên Nợ hoặc Có, nên sẽ bị trống ở cột còn lại)

Em chưa rõ bị thiếu sót ở đâu mà code vẫn chưa hoạt động, kính nhờ Quý Anh Chị xem giúp và hướng dẫn thêm giúp em ạ!

Em chân thành cảm ơn!

Tham khảo code sau (nếu bài toán chỉ là như ý định trong code của tác giả thì không cần dùng tới dic)

Option Explicit
Sub NKC0()
Dim DL, kq, dk, lr&, i&, j&
With Sheets("NKC")
lr = .Cells(Rows.Count, "F").End(3).Row:
dk = .Range("H3").Value
DL = .Range(.Cells(4, 6), .Cells(lr, 7)).Value:
ReDim kq(1 To UBound(DL), 1 To 1)
For i = 1 To UBound(DL)
    For j = 1 To UBound(DL, 2)
        If DL(i, j) Like dk Then
            kq(i, 1) = dk
        End If
    Next j
Next i
.Range("H4" & lr).ClearContents
.Range("H4").Resize(UBound(DL)) = kq
End With
End Sub

Vẫn là code cũ. tôi lược bỏ dic.
Hy vọng đúng ý.

 

[SA_DQ]

Mình nghĩ rằng chủ bài đăng chỉ cần chuyển từ ngôn ngữ VBA sang ngôn ngữ tiếng Việt suông sẽ OK ngay thôi;

@Chủ bài đăng thử xem sao!?

 

[hieuvietmy2020]

Em cảm ơn anh @HUONGHCKT ,
Code của anh đúng kết quả như em mong muốn rồi ạ,
Em đồng cảm ơn Quý anh @Hoàng Tuấn 868 và anh @SA_DQ đã quan tâm đến bài viết ạ!