Cách chuyển dữ liệu từ 1 cột vào ô comment.

[xuan.nguyen82]

Mình có 1 việc mà hay phải nhập tay thủ công, rất mất thời gian là: Với bảng dữ liệu hợp đồng lao động của nhân viên, có ngày bắt đầu và kết thúc. Giả sử trong bảng đính kèm của mình, cột A là số hợp đồng, cột B là thời gian bắt đầu, cột C là thời hạn kết thúc hợp đồng. Mình phải comment trong cột A số hợp đồng là: "Từ ngày....đến ngày", như ví dụ ở cột A.
Mục đích của việc này là khi đưa bảng dữ liệu của mình vào bảng Master tổng hợp, mình biết được nhân viên đó đã ký mấy hợp đồng, và thời hạn của từng hợp đồng, nếu thêm cột trong bảng tổng sẽ rất rối mắt, bảng dữ liệu dài dòng, nên mình nghĩ ra cách comment ở số hợp đồng. Nhưng lại không có cách chuyển vào comment như mình muốn (mình đã tìm trên mạng nhưng chưa thấy) có công thức hay cách nào đó mà không phải nhập tay thủ công. Mong GPE giúp mình việc này. Mình gửi kèm file.
Cảm ơn các bạn rất nhiều!

 

[hoangdanh282vn]

Mình có 1 việc mà hay phải nhập tay thủ công, rất mất thời gian là: Với bảng dữ liệu hợp đồng lao động của nhân viên, có ngày bắt đầu và kết thúc. Giả sử trong bảng đính kèm của mình, cột A là số hợp đồng, cột B là thời gian bắt đầu, cột C là thời hạn kết thúc hợp đồng. Mình phải comment trong cột A số hợp đồng là: "Từ ngày....đến ngày", như ví dụ ở cột A.
Mục đích của việc này là khi đưa bảng dữ liệu của mình vào bảng Master tổng hợp, mình biết được nhân viên đó đã ký mấy hợp đồng, và thời hạn của từng hợp đồng, nếu thêm cột trong bảng tổng sẽ rất rối mắt, bảng dữ liệu dài dòng, nên mình nghĩ ra cách comment ở số hợp đồng. Nhưng lại không có cách chuyển vào comment như mình muốn (mình đã tìm trên mạng nhưng chưa thấy) có công thức hay cách nào đó mà không phải nhập tay thủ công. Mong GPE giúp mình việc này. Mình gửi kèm file.
Cảm ơn các bạn rất nhiều!

để Insert Comment vào Cell, trước hết bạn phải định dạng dữ liệu ngày tháng về dạng chuẩn (cột B và C) như file đính kèm sau.
Sau đó bạn bôi chọn vùng số hợp đồng và bấm nút để chạy code sau :

Sub InsertComment()
Dim Cell As Range
Selection.ClearComments
For Each Cell In Selection
    If Trim(Cell) <> "" Then
        Cell.AddComment
        Cell.Comment.Text Text:="From : " & Format(Cell.Offset(, 1), "dd/mm/yyyy") & _
                                    " To : " & Format(Cell.Offset(, 2), "dd/mm/yyyy")
    End If
Next
End Sub

 

[SA_DQ]

Tham khảo thêm bài này:= http://www.giaiphapexcel.com/forum/...vài-thứ-về-Comment-xin-giới-thiệu-đến-các-bạn.

Chúc thành công

 

[xuan.nguyen82]

Cảm ơn ý kiến của các bạn, đây là những tài liệu rất bổ ích.
Trong trường hợp câu hỏi của mình. mình vẫn chưa thực hiện được không biết mình làm sai ở chỗ nào.
Mình bôi chọn vùng số hợp đồng, vảo module chạy code nhưng chưa được. Làm ơn chỉ dẫn mình cụ thể hơn nữa được không? Có thể do mình "gà" về code lắm.
Cảm ơn các bạn rất nhiều!

 

[hoangdanh282vn]

Cảm ơn ý kiến của các bạn, đây là những tài liệu rất bổ ích.
Trong trường hợp câu hỏi của mình. mình vẫn chưa thực hiện được không biết mình làm sai ở chỗ nào.
Mình bôi chọn vùng số hợp đồng, vảo module chạy code nhưng chưa được. Làm ơn chỉ dẫn mình cụ thể hơn nữa được không? Có thể do mình "gà" về code lắm.
Cảm ơn các bạn rất nhiều!

bạn làm sai hết cả.

vào VBE, xóa code trong sheet Casual (2) và trong module2 đi rồi chạy code lại là được.

 

[hoanguyen]

Anh ơi cho em hỏi thêm nếu muốn lấy dữ liệu dạng text vào comment thì phải đổi code lại như thế nào? Em cảm ơn.

 

[xuan.nguyen82]

Mình đã tự thử dạng text với cấu trúc dữ liệu như vậy, dù là text, hay number vẫn ra được như thế.
Nhưng để "chắc ăn" lại nhờ bạn Danh chỉ giùm..hihi.