gọi form bằng doubleclick

[mtrgnuce]

các bác xem giúp em đoạn này, em mới vọc vạch dùng vba nên ko biết xử trí sao

"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim er As Long
er = Sheets("DATA").Range("F10:F9999")
Cancel = True
With Target
If Cells.Activate = er Then
FrmTCNT.Show
End If
End With
Cancel = False
End Sub"
mục tiêu của em: tích đúp ô nằm trong vùng [F10:Fn] thì show form TCNT

 

[Nguyễn Hồng Quang]

các bác xem giúp em đoạn này, em mới vọc vạch dùng vba nên ko biết xử trí sao

"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim er As Long
er = Sheets("DATA").Range("F10:F9999")
Cancel = True
With Target
If Cells.Activate = er Then
FrmTCNT.Show
End If
End With
Cancel = False
End Sub"
mục tiêu của em: tích đúp ô nằm trong vùng [F10:Fn] thì show form TCNT

đổi sang dùng sự kiện worksheet _ selection change là được bạn nhé

 

[leonguyenz]

các bác xem giúp em đoạn này, em mới vọc vạch dùng vba nên ko biết xử trí sao

"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim er As Long
er = Sheets("DATA").Range("F10:F9999")
Cancel = True
With Target
If Cells.Activate = er Then
FrmTCNT.Show
End If
End With
Cancel = False
End Sub"
mục tiêu của em: tích đúp ô nằm trong vùng [F10:Fn] thì show form TCNT

Tham khảo đoạn code sau:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F10:F25")) Is Nothing Then
    If Target.Count = 1 Then
        MsgBox "Open UserForm cua ban"
    End If
End If
End Sub