Xuất nội dung trong coment ra ô excel

[nhunghap]

Dearl cả nhà e có một bài toán khó là có báo cáo nhân sự gửi cho e hàng ngày và thông tin của người nghỉ lại trong coment của ô đó. Cả nhà cho e hỏi có công thức hay phương pháp nào xuất nội dung coment đó ra ngoài ô excel không ạ!

 

[Nguyễn Hồng Quang]

Dearl cả nhà e có một bài toán khó là có báo cáo nhân sự gửi cho e hàng ngày và thông tin của người nghỉ lại trong coment của ô đó. Cả nhà cho e hỏi có công thức hay phương pháp nào xuất nội dung coment đó ra ngoài ô excel không ạ!

Copy code này vào sheet cần lấy các comment rồi chạy code. Xem file ví dụ

 

[nghiaphuc]

Dearl cả nhà e có một bài toán khó là có báo cáo nhân sự gửi cho e hàng ngày và thông tin của người nghỉ lại trong coment của ô đó. Cả nhà cho e hỏi có công thức hay phương pháp nào xuất nội dung coment đó ra ngoài ô excel không ạ!

Bạn thử nghiệm code này:

Sub Test()
    Dim Rng As Range, Cll As Range
    On Error Resume Next
    Set Rng = Selection.SpecialCells(xlCellTypeComments)
    If Not Rng Is Nothing Then
        For Each Cll In Rng
            MsgBox Cll.Address & vbCr & Cll.Comment.Text
        Next
    End If
End Sub

 

[nhunghap]

Copy code này vào sheet cần lấy các comment rồi chạy code. Xem file ví dụ

cám ơn bác nhé đoạn code rất hiệu quả

Bài đã được tự động gộp: 29/8/18

Bạn thử nghiệm code này:

Sub Test()
    Dim Rng As Range, Cll As Range
    On Error Resume Next
    Set Rng = Selection.SpecialCells(xlCellTypeComments)
    If Not Rng Is Nothing Then
        For Each Cll In Rng
            MsgBox Cll.Address & vbCr & Cll.Comment.Text
        Next
    End If
End Sub

cám ơn bác nhé