Cách của Ngô Minh Toàn bị 1 hạn chế khi dùng sub nó khóa cứng vùng dữ liệu và vùng data output. Phạm Minh Tùng đã giải quyết hạn chế đó nhưng bị 1 cái là tùy biến theo nhu cầu hơi khó. Vì ở đây người ta đã muốn tìm theo khách rồi. Bảng xuất ra chưa thể hiện được. Giải pháp của mình là function để có thể đưa range vào. Ở ô cần tìm chỉ cần điền công thức = monan(ô chứa tên khách, vùng chứa tên khách đặt món, vùng chứa tên món, tìm món thứ mấy do khách yêu cầu)
Function MonAn(TenKhach As range, DataKhach As range, DataMon As range, num As Integer) As String
For Each cll In DataKhach
If cll.Value = TenKhach.Value Then
Count = Count + 1
End If
If Count = num Then
MonAn = Cells(DataMon.Row, cll.Column).Value
Exit For
End If
Next
If Count <> num Then MonAn = "no thing"
End Function
