Làm sao để mở các hộp thoại mà không dùng SendKeys?

[Đào Việt Cường]

Dear all,
--------

Em có một thắc mắc này muốn nhờ anh chị chỉ giúp:

Thường ta dùng phương thức Add của Names để định nghĩa một name, giống như chức năng Inset/Name/Define (Ctrl+F3). Nay em muốn dùng lệnh VBA để mở ra hộp thoại Define Name mà không dùng SendKeys? Vì nếu dùng Sendkeys để mở hộp thoại này thì các dòng lệnh bên dưới vẫn được thi hành trong khi hộp thoại này chưa đóng. (Theo em hiểu các hộp thoại mở ở chế độ Modal phải đóng thì mới thi hành tiếp các dòng lệnh bên dưới).

Tương tự, làm thế nào để được các hộp thoại như Tools/Option, Edit Find... mà không dùng SendKeys?

 

[rollover79]

Bạn có thể dùng câu lệnh này

Application.Dialogs(xlDialogDefineName).Show

Các tùy chọn và các hộp thoại khác bạn tự tìm hiểu cái Dialogs nhé.

 

[Nguyễn Duy Tuân]

Em xem vídụ anh viết dưới đây nhé

Sub SendKeysAndWait()
    SendKeys "^{F3}", [COLOR="Red"]True[/COLOR]
    MsgBox "Ban vaa thuc hien Define Name"
End Sub