Gọi userform từ phím tắt trong vùng quy định? (2 người xem)

[Hamedanger]

E có sub (đc gán phím Ctrl Q) như sau , mục đích là trong vùng [A2:A10] khi ta chọn 1 ô và nhấn phím Cltr Q thì gọi userform1 ra , ngoài vùng đó thì không làm gì cả.

[FONT=Verdana]Sub Macro1()[/FONT]
[FONT=Verdana]       If ActiveSheet.Name =

 

[Quang_Hải]

E có sub (đc gán phím Ctrl Q) như sau , mục đích là trong vùng [A2:A10] khi ta chọn 1 ô và nhấn phím Cltr Q thì gọi userform1 ra , ngoài vùng đó thì không làm gì cả.

[FONT=Verdana]Sub Macro1()[/FONT]
[FONT=Verdana]       If ActiveSheet.Name = "Sheet1" Then[/FONT]
[FONT=Verdana]              With ActiveCell[/FONT]
[FONT=Verdana]                    If .Count = 1 And .Row > 1 And .Row < 11 And .Column = 1 Then[/FONT]
[FONT=Verdana]                          UserForm1.Show[/FONT]
[FONT=Verdana]                    Else: Exit Sub[/FONT]
[FONT=Verdana]                    End If[/FONT]
[FONT=Verdana]             End With[/FONT]
[FONT=Verdana]     End If[/FONT]
[FONT=Verdana]End Sub
[/FONT]

Còn 1 vấn đề nữa là e chỉ muốn chọn 1 ô trong vùng đó thôi thì form mới hiện, như sub trên thì chọn khối ô ví dụ [A2:A5] form cũng lên

Mong đc trợ giúp

Thử thế này. Chưa test code nha

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not intersect(Target, [A1:A10]) Is Nothing Then
   If Target.Count > 1 Then End
   Userform1.Show
End If
End Sub

 

[Hamedanger]

Thử thế này. Chưa test code nha

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not interset(Target, [A1:A10]) Is Nothing Then
   If Target.Count

 

[Quang_Hải]

khi chỏ chuột vào là nó hiện form luôn Anh ạ, cái phím tắt trở nên vô nghĩa mất rồi

Thì bạn phải biết lấy ruột code ra và làm cho nó theo ý mình chứ.

 

[Hamedanger]

Sub Macro1()If ActiveSheet.Name =

 

[Quang_Hải]

Sub Macro1()If ActiveSheet.Name = "Sheet1" Then
   With ActiveCell
     If Not Intersect(ActiveCell, [A1:A10]) Is Nothing Then
        If .Count > 1 Then End
        UserForm1.Show
     End If
   End With
End If
End Sub

E có chỉnh lại như vậy nhưng chọn khối ô thì ấn phím tắt vẫn hiện hic hic

Thay Sub này vào

Sub MoForm()
If ActiveSheet.Name = "Sheet1" Then
   With Selection
        If .Count = 1 Then
            If .Row < 11 Then
               If .Column = 1 Then
                  UserForm1.Show
               End If
            End If
        End If
   End With
End If
End Sub

 

[Hamedanger]

Được rồi anh à hì hì. Cảm ơn Anh.
Hoá ra activecell na ná selection thôi chứ nó chả giống nhau

 

[Hau151978]

Được rồi anh à hì hì. Cảm ơn Anh.
Hoá ra activecell na ná selection thôi chứ nó chả giống nhau

Selection là vùng chọn, có thể gồm nhiều ô. Activecell là ô nằm ở 1 trong 4 góc của selection, có màu khác các ô khác trong Selection.