nào Window đang hoạt động

Question

Tôi có một vĩ mô ngắn mà đặt một ô trong chế độ chỉnh sửa bằng cách sử dụng lệnh:

Application.SendKeys "{F2}" 

Các dòng mã chạy đúng nếu vĩ mô đang chạy từ bảng tính sử dụng, ví dụ, bình thường Ribbon giao diện (có nghĩa là vì F2 đặt ô hiện hành vào Edit Mode)

Nếu tôi chạy macro từ cửa sổ VBE, macro thất bại vì VBE giải thích s F2 là lệnh để hiển thị Trình duyệt đối tượng.

tôi muốn bao gồm một thử nghiệm trong vĩ mô để kiểm tra này:

Nếu tính được gọi là cửa sổ hoạt động, tiến hành chạy.
Nếu VBE là cửa sổ hoạt động, sau đó phát hành cảnh báo MsgBox và hủy bỏ.

Tôi không biết cách xác định cửa sổ nào đang hoạt động. ActiveWindow.Caption luôn hiển thị nội dung nào đó như:

Book1.xlsm 

Answer 1

Tôi nghĩ bạn gặp phải sự cố VBE. Nếu giải pháp là để tránh mắc lỗi trong khi mã hóa, điều này có phù hợp với bạn không? Nó không xuất hiện rằng có một cách để xem nếu activewindow là VBE mà tôi có thể tìm thấy. Nếu giải pháp này không đáp ứng nhu cầu của bạn, Using VBS in WHS có thể hoạt động cho bạn hoặc gọi một chương trình bên ngoài như tự động.

Lưu ý rằng nó sẽ không hoạt động nếu bạn đang bước qua mã nhưng tôi cho rằng bạn thực sự quan tâm đến việc nhấn nút chạy từ bên trong cửa sổ VBE và nó sẽ làm việc cho điều đó. Đặt dòng đầu tiên ở trên cùng của mã của bạn hoặc ngay trước phần có sendkeys hoặc whatnot.

ThisWorkbook.VBProject.VBE.MainWindow.Visible = False 
If ActiveWindow.Caption <> "Book1.xlsm" Then MsgBox ("Test") Else MsgBox ("testelse") 

Bạn sẽ không thể alt-tab trở lại, phải nhấn Alt-F11