Một vài vấn đề trước đây, một mẹo đã xuất hiện về cách hiển thị hộp Tìm và Thay thế và đặt danh sách thả xuống Bên trong thành Trang tính. Vào thời điểm đó, tôi đã báo cáo rằng tôi không tìm ra cách nào để thực sự thực hiện điều này, vì VBA không cung cấp cách hiển thị cùng một hộp thoại Tìm và Thay thế xuất hiện khi bạn nhấn Ctrl + F.

Tuần trước, tôi đã tìm ra cách để làm điều này, nhờ sự đóng góp của một người đăng ký ExcelTips hào phóng. Macro sau cho biết cách hoàn thành tác vụ:

Sub DoBox()

ActiveSheet.Cells.Find What:="", LookAt:=xlWhole     Application.CommandBars("Worksheet Menu Bar").FindControl( _       ID:=1849, recursive:=True).Execute End Sub

Phương thức Tìm cho phép bạn thiết lập các tham số khác nhau trong hộp thoại Tìm và Thay thế, sau đó đối tượng CommandBars được truy cập để thực sự hiển thị hộp thoại.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2486) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.