Chuyển comment trong excel thành dữ liệu trên ô

[thuhien.st]

Chào cáo bạn, các bạn cho mình hỏi có cách nào để chuyển comment của 1 ô thành dữ liệu chính thức sang ô bên cạnh không ạ? Mình xin cảm ơn

VD: mình muốn chuyển comment 23/12 sang ngay ô bên cạnh đó ạ.

 

[befaint]

cạnh

Làm sao biết ngày đó thuộc năm 2019 hay 2020 vậy bạn?

 

[thuhien.st]

Làm sao biết ngày đó thuộc năm 2019 hay 2020 vậy bạn?

View attachment 246500

Hiện tại mình đang thực hiện thủ công bằng tay. Các ngày của tháng 12 sẽ là năm 2019, từ tháng 1 trở đi là năm 2020 ạ. Không biết có cách nào chuyển được comment sang không ạ?

 

[befaint]

Các ngày của tháng 12 sẽ là năm 2019, từ tháng 1 trở đi là năm 2020

Năm 2021 và các năm sau đó mình còn làm việc này không?

Không biết có cách nào chuyển được comment sang không ạ?

Còn chưa xong đề bài mà mình. Chưa rõ yêu cầu sao biết có cách nào hay không?

 

[thuhien.st]

Năm 2021 và các năm sau đó mình còn làm việc này không?


Còn chưa xong đề bài mà mình. Chưa rõ yêu cầu sao biết có cách nào hay không?

Đây là dữ liệu của 1 bộ phận theo dõi, họ ko mở cột mới điền ngày mà ghi chú luôn vào ô. Mình chỉ cần chỉnh sửa trên bảng này thôi ạ, không phải làm cho các năm tiếp theo ạ.

 

[befaint]

Đây là dữ liệu của 1 bộ phận theo dõi, họ ko mở cột mới điền ngày mà ghi chú luôn vào ô. Mình chỉ cần chỉnh sửa trên bảng này thôi ạ, không phải làm cho các năm tiếp theo ạ.

Vậy mình gửi file đang làm đó lên đây. Và nhớ ghi kèm những ý trên vào nhé.

 

[huuthang_bd]

Tôi coi như không nhìn thấy cái hình. Hàm nay sẽ lấy nội dung comment. Lấy xong xào nấu thế nào là tùy bạn.

Function GetComment(ByVal Cll As Range) As String
If Not Cll.Comment Is Nothing Then
    With Cll.Comment
        GetComment = Cll.Comment.Text
        If GetComment Like .Author & ":" & ChrW(10) & "*" Then GetComment = Mid(GetComment, Len(.Author) + 3)
    End With
End If
End Function

 

[thuhien.st]

Vậy mình gửi file đang làm đó lên đây. Và nhớ ghi kèm những ý trên vào nhé.

Mình có cột tiền mặt và cột ngân hàng đang để comment là ngày khách chuyển tiền, nếu là tháng 12 thì là năm 2019, những tháng còn lại là của năm 2020. Vậy bạn chỉ giúp mình cách chuyển những comment này thành dữ liệu sang ô bên cạnh với ạ. Mình chỉ phải làm bảng dữ liệu này cho năm nay thôi ạ

Bài đã được tự động gộp: 1/10/20

Tôi coi như không nhìn thấy cái hình. Hàm nay sẽ lấy nội dung comment. Lấy xong xào nấu thế nào là tùy bạn.

Function GetComment(ByVal Cll As Range) As String
If Not Cll.Comment Is Nothing Then
    With Cll.Comment
        GetComment = Cll.Comment.Text
        If GetComment Like .Author & ":" & ChrW(10) & "*" Then GetComment = Mid(GetComment, Len(.Author) + 3)
    End With
End If
End Function

Vâng ạ, cảm ơn bạn nhé

 

[befaint]

comment

"làm bảng dữ liệu này cho năm nay "

 

[thuhien.st]

"làm bảng dữ liệu này cho năm nay "

Cảm ơn bạn nhiều nhé