Tự động tạo commen cho các ô theo ý muốn. (1 người xem)

[TrungChinhs]

Tôi có 1 bảng nhập liệu gồm nhiều cột, ở mỗi ô tiêu đề của cột tôi đều tạo comment ghi nội dung hướng dẫn người dùng cách tìm và nhập dữ liệu cho cột đó. Nếu làm theo cách thủ công tôi phải làm việc với từng comment, mất nhiều thời gian, công sức và không kiểm soát được nội dung trong commen. Vì vậy tôi lập nội dung cho từng comment tại một bảng riêng ngoài bảng tính (tạo một sheets ghi chú riêng) sau đó dùng lệnh VBA để ỉnsert các comment vào vị trí mong muốn. Tôi đã test thành công nhưng khả năng tuỳ biến còn rất hạn chế (xem file đính kèm). Rất mong các bạn tham gia góp ý hoặc chỉnh sửa giúp. Thanks !

 

[ndu96081631]

Tôi có 1 bảng nhập liệu gồm nhiều cột, ở mỗi ô tiêu đề của cột tôi đều tạo comment ghi nội dung hướng dẫn người dùng cách tìm và nhập dữ liệu cho cột đó. Nếu làm theo cách thủ công tôi phải làm việc với từng comment, mất nhiều thời gian, công sức và không kiểm soát được nội dung trong commen. Vì vậy tôi lập nội dung cho từng comment tại một bảng riêng ngoài bảng tính (tạo một sheets ghi chú riêng) sau đó dùng lệnh VBA để ỉnsert các comment vào vị trí mong muốn. Tôi đã test thành công nhưng khả năng tuỳ biến còn rất hạn chế (xem file đính kèm). Rất mong các bạn tham gia góp ý hoặc chỉnh sửa giúp. Thanks !

Nếu em làm bài này thì đầu tiên em copy tiêu đề cột, bỏ vào cột A của sheet Ghichu để làm cở sở dò tìm... Tiếp theo dùng code này cho sheet Nhaplieu (hay bất cứ sheet nào)

Sub AddComment()
  Dim Clls As Range
  On Error Resume Next
  For Each Clls In Selection
    Clls.Comment.Delete
    With Sheets("GhiChu").Range("A1").CurrentRegion.Find(Clls, LookAt:=xlWhole)
      If Not .Cells Is Nothing Then Clls.AddComment .Offset(, 1).Text
    End With
  Next
End Sub

Chú ý:
- Bên sheet GhiChu, anh muốn thêm Comment thì cứ việc thêm dòng và điền dử liệu giống trong file
- Muốn xóa Comment, đơn giản là xóa luôn dòng đó (bên sheet GhiChu)