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

hic1802

Thành viên tích cực
Tham gia ngày
16 Tháng hai 2013
Bài viết
439
Thích
28
Điểm
385
#1
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
 

thuyyeu99

Thành viên tích cực
Tham gia ngày
6 Tháng sáu 2008
Bài viết
876
Thích
332
Điểm
735
#3
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 tích cực
Tham gia ngày
16 Tháng hai 2013
Bài viết
439
Thích
28
Điểm
385
#4
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

Thành viên tích cực
Tham gia ngày
6 Tháng sáu 2008
Bài viết
876
Thích
332
Điểm
735
#5
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 thường trực
Tham gia ngày
14 Tháng chín 2012
Bài viết
233
Thích
149
Điểm
395
#6
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