Hiển thị form bằng phím tắt như nào? (1 người xem)

[Tường_Vi]

Ví dụ nếu Active cell
- Là cột D (cột 4)
- Dòng lớn hơn 2 (>=3)
- Nhấn Ctrl + m (hoặc F5)
- Userform1.show

Thưa các Huynh, quá trình trên được viết trên code như nào ạh? Chỉ giúp em với

Tường Vi Cám ơn

 

[ndu96081631]

Ví dụ nếu Active cell
- Là cột D (cột 4)
- Dòng lớn hơn 2 (>=3)
- Nhấn Ctrl + m (hoặc F5)
- Userform1.show

Thưa các Huynh, quá trình trên được viết trên code như nào ạh? Chỉ giúp em với

Tường Vi Cám ơn

Chèn 1 Module, tạo 1 sub thế này:

Sub ShowForm()
  With ActiveCell
    If .Column = 4 And .Row > 2 Then
      If UserForm1.Visible = False Then UserForm1.Show
    End If
  End With
End Sub

Gán phím tắt Ctrl + M cho sub này chắc bạn thừa biết, đúng không?

 

[sealand]

Ban viết Sub mở form ở Module như sau:

Sub MoForm()
If ActiveCell.Column = 4 And ActiveCell.Row > 2 Then
MsgBox "Dong y mo Form" [I]'Không có Form tạm thay bằng thông báo[/I]
End If
End Sub

Nếu dùng Ctrl+m:
Menu Tools--Macro--Macros...Chọn dòng Macro MoForm---Options--Shortcut_key: gõ chữ m

Nếu dùng F5:
Trong code của ThisWorkbook, bạn thêm:

Private Sub Workbook_Open()
Application.OnKey "{F5}", "MoForm"
End Sub

 

[Tường_Vi]

Em cám ơn các Huynh nhiều

 

[trunggom]

còn nếu mình sử dụng phia "tap" để mở form thì code viết sao anh. Xin cam ơn