Bấm Esc để hiện Form và ẩn Sheet (1 người xem)

[quoc nhat]

Các anh chị cho em hỏi mình dùng sự kiện gì và code như thế nào trên sheet mà khi bấm phím Esc thì ẩn sheet và hiển thị Form điều khiển.

 

[huuthang_bd]

Các anh chị cho em hỏi mình dùng sự kiện gì và code như thế nào trên sheet mà khi bấm phím Esc thì ẩn sheet và hiển thị Form điều khiển.

Bạn copy đoạn code này vào ThisWorkbook

Private Sub Workbook_Open()
Application.OnKey "{ESC}", "Button1_Click"
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.OnKey "{ESC}", "Button1_Click"
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.OnKey "{ESC}"
End Sub

 

[quoc nhat]

Bạn copy đoạn code này vào ThisWorkbook

Private Sub Workbook_Open()
Application.OnKey "{ESC}", "Button1_Click"
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.OnKey "{ESC}", "Button1_Click"
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.OnKey "{ESC}"
End Sub

Em làm được rồi cảm ơn anh