thuyloitienlu
Thành viên chính thức
- Tham gia
- 17/4/08
- Bài viết
- 58
- Được thích
- 0
Tôi có tìm trên diễn đàn đoạn code dùng hàm match để so sánh các biến là chuỗi kí tự ở 1 cột với 1 hàng các chuỗi kí tự cho trước trong bảng dữ liệu. nhưng kết quả báo sai.
ví dụ trong range("D4")="KHN" và trong Range(3,15)="KHN" nhưng kết quả báo là: không có chuỗi "KHN" trong cột D. Các bạn xem và chỉnh giúp tôi nhé.
ví dụ trong range("D4")="KHN" và trong Range(3,15)="KHN" nhưng kết quả báo là: không có chuỗi "KHN" trong cột D. Các bạn xem và chỉnh giúp tôi nhé.
Mã:
rc = Cells(3, 1).End(xlDown).Row
cc = Cells(3, 9).End(xlToRight).Column
Range(Cells(4, 6), Cells(65536, cc)).Clear
Set myrange = Range(Cells(3, 9), Cells(3, cc))
bandomax = Application.WorksheetFunction.Max(Range(Cells(2, 1), Cells(rc, 1)))
On Error Resume Next
For r = 1 To bandomax
Cells(r + 3, 6) = r
Next
For r = 2 To rc
bando = Cells(r, 1)
loai = Cells(r, 4)
Cells(3 + bando, 7) = Cells(3 + bando, 7) + Cells(r, 3)
Cells(3 + bando, 8) = Cells(3 + bando, 8) + Cells(r, 2).Rows.count
sttloai = Application.WorksheetFunction.Match(loai, myrange, 0)
If Err.Number > 0 Then
MsgBox "Khong co ma hang nay" & loai, , "sory"
ActiveWorkbook.Close False
Exit Sub
Else
Cells(3 + bando, 8 + sttloai) = Cells(3 + bando, 8 + sttloai) + Cells(r, 3)
End If
