Click đúp vào 1 ô cells trên excel sẽ hiển thị Ô ghi chú tại cells đó

hic1802

Thành viên tiêu biểu
Tham gia ngày
16 Tháng hai 2013
Bài viết
476
Được thích
33
Điểm
385
Nhờ mọi người giúp e cách để giải quyết vấn đề : Click đúp vào 1 ô cells trên excel sẽ hiển thị Ô ghi chú tại cells đó để có thể nhập ghi chú ô (chuột sẽ trỏ ở trong phần nhập nội dung ghi chú)
Em có tìm kiếm trên mạng và chỉnh sửa nhưng chưa đúng, tức là khi click đúp chuột vào 1 ô nó có hiển thị Comments nhưng chuột không trỏ vào bên trong ô comments mà vẫn ở ô cells.
Mã:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("K5:AO99999")) Is Nothing Then
    Target.ClearComments
    If Target.Column >= 11 And Target.Column <= 42 Then
    Target.AddComment
    Target.Comment.Visible = True
End If
End Sub
 

hml89

Thành viên học dốt
Tham gia ngày
14 Tháng chín 2012
Bài viết
355
Được thích
274
Điểm
410
Vậy thì bạn click vào ô comment để viết là được thôi mà.
 

thuyyeu99

Trùm Nhiều Chuyện
Tham gia ngày
6 Tháng sáu 2008
Bài viết
1,035
Được thích
418
Điểm
735
Nhờ mọi người giúp e cách để giải quyết vấn đề : Click đúp vào 1 ô cells trên excel sẽ hiển thị Ô ghi chú tại cells đó để có thể nhập ghi chú ô (chuột sẽ trỏ ở trong phần nhập nội dung ghi chú)
Em có tìm kiếm trên mạng và chỉnh sửa nhưng chưa đúng, tức là khi click đúp chuột vào 1 ô nó có hiển thị Comments nhưng chuột không trỏ vào bên trong ô comments mà vẫn ở ô cells.
Mã:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("K5:AO99999")) Is Nothing Then
    Target.ClearComments
    If Target.Column >= 11 And Target.Column <= 42 Then
    Target.AddComment
    Target.Comment.Visible = True
End If
End Sub
Sao mình thấy thiếu 1 cái End If
Mã:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("K5:AO99999")) Is Nothing Then

    Target.ClearComments

    If Target.Column >= 11 And Target.Column <= 42 Then

        Target.AddComment

        Target.Comment.Visible = True
    End If
End If

End Sub
 

hic1802

Thành viên tiêu biểu
Tham gia ngày
16 Tháng hai 2013
Bài viết
476
Được thích
33
Điểm
385
Vậy thì bạn click vào ô comment để viết là được thôi mà.
Quan trọng là nếu click thêm 1 bước nữa thì khác gì là dùng chuột phải đâu bác???
VBA phải rút ngắn các thao tác hơn chứ :v
Bài đã được tự động gộp:

Sao mình thấy thiếu 1 cái End If
Mã:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("K5:AO99999")) Is Nothing Then

    Target.ClearComments

    If Target.Column >= 11 And Target.Column <= 42 Then

        Target.AddComment

        Target.Comment.Visible = True
    End If
End If

End Sub
chuẩn rồi bác, nhưng quan trọng đó ko phải câu em cần hỏi :v
 

thuyyeu99

Trùm Nhiều Chuyện
Tham gia ngày
6 Tháng sáu 2008
Bài viết
1,035
Được thích
418
Điểm
735
Quan trọng là nếu click thêm 1 bước nữa thì khác gì là dùng chuột phải đâu bác???
VBA phải rút ngắn các thao tác hơn chứ :v
Bài đã được tự động gộp:


chuẩn rồi bác, nhưng quan trọng đó ko phải câu em cần hỏi :v
Target.Comment.Shape.Select

Mã:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("K5:AO99999")) Is Nothing Then

    Target.ClearComments

    If Target.Column >= 11 And Target.Column <= 42 Then

        Target.AddComment

        Target.Comment.Visible = True
        
        Target.Comment.Shape.Select
        
    End If
End If

End Sub
 
Lần chỉnh sửa cuối:

hml89

Thành viên học dốt
Tham gia ngày
14 Tháng chín 2012
Bài viết
355
Được thích
274
Điểm
410
Target.Comment.Shape.Select

Mã:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("K5:AO99999")) Is Nothing Then

    Target.ClearComments

    If Target.Column >= 11 And Target.Column <= 42 Then

        Target.AddComment

        Target.Comment.Visible = True
       
        Target.Comment.Shape.Select
       
    End If
End If

End Sub
Cái này tôi thử nhưng cũng không được. Nó chỉ không hiện ở trong cell chứ nó không có nằm trong ô comment để viết đâu.
 
Top Bottom