Nhờ viết giúp code "Tìm 1 số nhập vào 1 ô, so sánh ở ơ sheet dữ liệu, trả về kết quả" (1 người xem)

[totoha]

Nhờ mọi người giúp viết code bài với
Ở TRONG FILE ĐÍNH KÈM E CÓ NÊU RÕ Ở TRONG ĐÓ
Nhập số cần tìm vào 1 ô (K1) Ở SHEET bang tinh
Số cần tìm là các số(00**-99**)
Tìm trong dữ liệu ở sheet khác có tên là data
với điều kiện tìm là:
Nếu ở hàng nào ở sheet "DATA" có số cần tìm ở ổ K1 thì trả về dữ liệu những ngày có dữ kiện ở ô K1 ở hàng thứ 8 ở sheet này và chỉ trả về cột ngày tháng và cột từ AD đến BD
Chỉ so sánh giá trị ô K1 với từng hàng 1 ở sheet data từ cột BE trở đi
ĐÂY LÀ Ý TƯỞNG CỦA EM

EM nêu ý tưởng của em như vậy
Ta có điều kiện so sánh tại Ô K1
Tạo vòng lặp for( I chạy theo số hàng luôn)
Khi i=1 bắt đầu so sánh ô K2 với MẢNG
Mảng này được tạo ra chạy cùng với biến i mảng bao gồm từ cột BE(i) đến BL(i)
Bắt đầu so sánh
 Nếu K1 thuộc mảng trả về Ô ngày chạy theo (i) dữ liệu data theo (i) và số trong ô k1( trả kết quả vào sheet “Bang tinh”)
Tiếp theo chạy i=i+1
      Nếu K1 không thuộc mảng 
            Chạy i=i+1
Em chỉ biết nói vậy chứ không biết viết chương trình vì chưa ngâm cứu nhiều

 

[Ba Tê]

Nhờ mọi người giúp viết code bài với
Ở TRONG FILE ĐÍNH KÈM E CÓ NÊU RÕ Ở TRONG ĐÓ
Nhập số cần tìm vào 1 ô (K1) Ở SHEET bang tinh
Số cần tìm là các số(00**-99**)
Tìm trong dữ liệu ở sheet khác có tên là data
với điều kiện tìm là:
Nếu ở hàng nào ở sheet "DATA" có số cần tìm ở ổ K1 thì trả về dữ liệu những ngày có dữ kiện ở ô K1 ở hàng thứ 8 ở sheet này và chỉ trả về cột ngày tháng và cột từ AD đến BD
Chỉ so sánh giá trị ô K1 với từng hàng 1 ở sheet data từ cột BE trở đi

Thấy trong File có cái QuaiQuai, xài thử Cái HicHic này nữa xem sao.
Format cột B:AB dạng Text trước khi chạy code nhé.

 

[totoha]

Thấy trong File có cái QuaiQuai, xài thử Cái HicHic này nữa xem sao.
Format cột B:AB dạng Text trước khi chạy code nhé.

Public Sub HicHic()
Dim Ngay(), Data(), sArr(), dArr(), I As Long, J As Long, K As Long, DK As String, Tem As String, TF As Boolean
With Sheets("DATA")
    Ngay = .Range(.[A1], .[A1].End(xlDown)).Value
    Data = .Range(.[AD1], .[BD1].End(xlDown)).Value
    sArr = .Range(.[BE1], .[BE1048576].End(xlUp)).Resize(, 15).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To UBound(Data, 2) + 1)
DK = Sheets("Bang Tinh").[K1].Value
For I = 1 To UBound(sArr, 1)
    TF = False
    For J = 1 To UBound(sArr, 2)
        If sArr(I, J) = DK Then TF = True
        Exit For
    Next J
    If TF = True Then
        K = K + 1: dArr(K, 1) = Ngay(I, 1)
        Tem = Left(DK, 2)
        For J = 1 To UBound(Data, 2)
            If Data(I, J) = Tem Then dArr(K, J + 1) = Data(I, J)
        Next J
    End If
Next I
With Sheets("Bang Tinh")
    .[A8:AB100].ClearContents
    If K Then .[A8].Resize(K, UBound(Data, 2) + 1) = dArr
End With
End Sub

Bác cho em hỏi tí
Code của bác vẫn thiếu bác ah
Nó vẫn cần phải lọc ở các cột khác nữa không chỉ mỗi cột BE mà các cột BE đến BL bác ah
Với bác cho em hỏi
EM muốn hỏi điều kiện so sánh của bác thế nào em không hiểu cho lắm
Muốn biết để còn giải trình nữa
Mong bác giúp

 

[Ba Tê]

Bác cho em hỏi tí
Code của bác vẫn thiếu bác ah
Nó vẫn cần phải lọc ở các cột khác nữa không chỉ mỗi cột BE mà các cột BE đến BL bác ah
Với bác cho em hỏi
EM muốn hỏi điều kiện so sánh của bác thế nào em không hiểu cho lắm
Muốn biết để còn giải trình nữa
Mong bác giúp

Xem lại File này coi sao.
------------------------------------
Hoá ra đây là chuyện lọc số lô đề.
Mình xoá các bài "lỡ" tham gia.