Code click đúp chuột vào bất cứ dòng nào trong Listbox hiện cửa sổ mới (2 người xem)

[bebeen]

Em có ví dụ này nhờ mọi người giúp em nhé! Em tạo một Form có chứa 1 Listbox. Em muốn click đúp chuột vào bất cứ dòng nào trên đó nó sẽ hiện ra cho em cửa số mới để sửa?
Cám ơn mọi người nhiều!

 

[dhn46]

Gọi Form thì bạn dùng Code sau tại Code sheet S1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [G6:G20]) Is Nothing Then
    uFQuanlyTen.Show
End If
End Sub

 

[bebeen]

Gọi Form thì bạn dùng Code sau tại Code sheet S1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [G6:G20]) Is Nothing Then
    uFQuanlyTen.Show
End If
End Sub

Em thấy cách này cũng được nhỉ:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, [G6:G20]) Is Nothing Then
        uFQuanlyTen.Show
    End If
End Sub

Cám ơn anh nhiều!