Kết quả tìm kiếm

Chắc thế này thôi Option Explicit Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant) Dim mTam Dim dk Dim Kq() Dim maxSL Dim i, j, k mTam = Split(chuoiKq, ";") ReDim Kq(UBound(mTam)) For j = 0 To UBound(dlDauvao) Step 2 dk = dlDauvao(j + 1) If dk = "" Or dlDauvao(j) = "" Then...

Thử cái nữa. Thấy kết quả có vẻ khá giống Option Explicit Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant) Dim mTam Dim dk Dim Kq() Dim maxSL Dim i, j, k mTam = Split(chuoiKq, ";") ReDim Kq(UBound(mTam)) For j = 0 To UBound(dlDauvao) Step 2 dk = dlDauvao(j + 1) i = 0 For...

Với nhiều dòng đầu vào: có dòng trả về nhiều kết quả, có dòng trả về ít kết quả. Trong đó có kết quả trùng nhau, kết quả cuối cùng là gì? Thử riêng biệt với dòng 38 & dòng 39 sẽ có 2 nhóm kết quả khác nhau, trong đó có chuỗi trùng --> chốt kết quả yêu cầu khi gộp cả 2 dòng nhé!

@hongphuong1997 test lại lần nữa xem sao Option Explicit Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant) Dim mTam Dim dk Dim Kq() Dim i, j, k mTam = Split(chuoiKq, ";") ReDim Kq(UBound(mTam)) For j = 0 To UBound(dlDauvao) Step 2 dk = dlDauvao(j + 1) i = 0 For Each k In...

@hongphuong1997 Option Explicit Function LocKQ(chuoiKq, chuoiNguon, dk) Dim Tam Dim Kq() Dim i, j, k Tam = Split(chuoiKq, ";") ReDim Kq(UBound(Tam)) For Each k In Split(chuoiNguon, ";") If k = dk Then Kq(j) = Tam(i) j = j + 1 End If i = i + 1 Next k LocKQ =...

Chuỗi mẫu & chuỗi kết quả đều chỉ là 1 dòng à bạn?

Hàm này dùng 1 lần thì set object 1 lần + "xóa" object 1 lần. Nếu dùng cho 1 triệu dòng thì có nặng không vậy

Nếu vậy điều kiện tại R25 và M30 là xung đột nhau, vì đầu vào là như nhau nhưng mỗi cái đề nghị 1 kết quả khác nhau Hay là phải hiểu theo cách nào khác vậy bạn?

Làm rõ thêm: R25: "Cùng Xn-khác row - trả về Bảng 2 kết quả 2" M30: "Lộc Tồn nằm khác hàng, giá trị trả về giá trị =1 " Cái "khác row" & "khác hàng" có ý nghĩa giống nhau hay là không

Bảo dưỡng bao lâu, điền vào chỗ nào?

Theo hướng dẫn: Bước 3-3 tại R25 & ví dụ tại M30 là hoàn toàn chính xác chứ bạn?

Bàng, 2-1-c, thấy có phá quân, đại hao, thiên hình, tuyệt. Trong bảng 1 chỉ có phá quân, 3 sao còn lại không có. Có lẽ bạn cần bổ sung thêm bảng 1 cho số liệu tương đối đầy đủ mới suy luận được

Đưa kết quả mong muốn vào file đính kèm đi bạn, kèm cùng trọng số luôn thể

Trọng số được sử dụng như thế nào trong cách tính vậy bạn?

Nhiều thớt đưa bài lên với mục đích làm ảo số liệu mà vẫn dược giải quyết đấy thôi bạn.

Code dưới đây áp dụng cho số liệu file bài 1. Kết quả điền vào vùng H7:H12 Bạn test lại xem kết quả trả về xem thế nào rồi tính tiếp Option Explicit Sub xxx() Dim Nguon Dim DK Dim KQ Dim mCSD Dim cCSD Dim congSL Dim Tam Dim i, j, k, x, z, t Nguon = Sheet1.Range("C2:S4") DK =...

Chỗ này nghĩa là: Nếu toàn bộ tổ hợp trong 1 dòng bảng 2 xuất hiện trên cùng 1 dòng của bảng 1 thì trả về 1, nếu không thì trả về 2 ?

- - - - -

Chạy thử file dưới đây

Chắc là không vô nghiệm đâu. Bạn chạy mất bao lâu