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

Liên hệ QC

hic1802

Thành viên tiêu biểu
Tham gia
16/2/13
Bài viết
545
Được thích
34
Giới tính
Nam
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
 
Vậy thì bạn click vào ô comment để viết là được thôi mà.
 
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
 
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
 
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:
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.
 
Web KT
Back
Top Bottom