Tôi nghĩ rằng Immediate có rất nhiều ứng dụng trong viết Code, tuy nhiên để sử dụng thành thạo nó có lẽ phải giành cho người viết Code nhiều. Tôi cũng có đọc 1 số bài viết về vấn đề này, nhưng vẫn chưa biết dùng nó 1 cách linh hoạt.Chẳng khác nào học chữ A là biết chữ A, học chữ B biết chữ B.....
Đó, đó, em thích cái kiểu làm của bác đấy.
Option Explicit
Function TimTen(Ma As String, Vùng As Range)
Dim sRng As Range, MyAdd As String
Set sRng = Vùng.Find([E1].Value, , xlFormulas, xlPart)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
TimTen = sRng.Offset(, 1)
Set sRng = Vùng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
End Function
,,,,
Tôi có 1 bảng danh sách, như trong hình đính kèm
Ở cột [B:B] ghi mã nhân viên & cột [C:C] ghi họ tên của người đó;
Tôi viết hàm người dùng có nội dung như sau:
PHP:Option Explicit Function TimTen(Ma As String, Vùng As Range) Dim sRng As Range, MyAdd As String Set sRng = Vùng.Find([E1].Value, , xlFormulas, xlPart) If Not sRng Is Nothing Then MyAdd = sRng.Address Do TimTen = sRng.Offset(, 1) Set sRng = Vùng.FindNext(sRng) Loop While Not sRng Is Nothing And sRng.Address <> MyAdd End If End Function
Sau đó tôi nhập cú fáp hàm vô ô [E4] trên trang tính như sau: =TimTen(E1, B1:B30)
Sau khi nhấn {ENTER} thì excel báo lỗi (như các bạn thấy trong hình)
Nhưng 1 điều kì diệu trong cửa sổ Immediate, nếu ta nhập cú fáp
?TimTen(Range("E1").Value, Columns("B:B")) & nhấn {ENTER}
Thì chàng ta cho kết quả:
Nông Võ Hoàn (Mang mã NV NVH10)
Nếu chỉ đi sâu chuyện này e rằng lạc đề của chủ đề tài (CĐT).
Đối với cửa sổ immediate thì nó chỉ có chức năng test thui ah, thế mà em cứ nghĩ là nó có chức năng fix code để từ đó sửa lại code chứ.
OH, để tìm được lời giải của Bác ở bên ví dụ trên mà em mò lên mò xuống
