Hình thức vô nghĩa VBA dừng Các phím chức năng

Question

Tôi muốn có tập tin trợ giúp của riêng mình trong chương trình Excel.

Trong

Private Sub Workbook_Open() 

Tôi có

Application.OnKey "{F1}", "Help" 

đó làm việc khi tôi đang trên bảng Excel nhưng ứng dụng của tôi được dựa trên một userform chính toàn màn hình được hiển thị chế độ.

Khi biểu mẫu người dùng hiển thị, nó chặn khóa F1 bằng cách nào đó và macro không kích hoạt.

Tôi nghĩ rằng các biểu mẫu không mod không chặn thực thi mã.

Bất kỳ gợi ý nào tôi có thể thực hiện công việc này?

Answer 1

Bạn cần phải bẫy sự kiện keyDown trên chính UserForm. Khi UserForm đã có tiêu điểm, bất kỳ phím nào bạn nhấn nó sẽ chuyển đến UserForm.

'/UserForm1 is a sample name. 

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
    If KeyCode = 112 Then '/ F1 
     Call Help 
    End If 
End Sub