về comment

[ExcelQN]

Nhờ các anh chị cho đoạn code theo yêu cầu trong file

 

[nmhung49]

Nhờ các anh chị cho đoạn code theo yêu cầu trong file

Bạn ghi macro là sẽ ra code mà bạn muốn cần chứ gì, bạn nhấn F5 chọn special chọn comment rồi tô màu đỏ sẽ có đoạn code bạn cần. Đây là đoạn code sao khi tui chỉnh lại từ ghi macro

Cells.SpecialCells(xlCellTypeComments).Font.Color = RGB(255, 0, 0)

 

[viehoai]

Bạn ghi macro là sẽ ra code mà bạn muốn cần chứ gì, bạn nhấn F5 chọn special chọn comment rồi tô màu đỏ sẽ có đoạn code bạn cần. Đây là đoạn code sao khi tui chỉnh lại từ ghi macro

Cells.SpecialCells(xlCellTypeComments).Font.Color = RGB(255, 0, 0)

Xin hỏi bạn: Code này đặt trong sự kiện nào để khi xóa comment (hoặc comment không có nội dung) thì cell ấy thay đổi định dạng. Xin cảm ơn bạn

 

[ndu96081631]

Nhờ các anh chị cho đoạn code theo yêu cầu trong file

Dùng hàm này:

Function HasComment(ByVal Cel As Range) As Boolean
  Dim Comm As Comment
  Application.Volatile
  On Error Resume Next
  Set Comm = Cel.Comment
  HasComment = Not Comm Is Nothing
End Function

Đưa hàm vào Conditional Formating để tô màu

 

[nmhung49]

Xin hỏi bạn: Code này đặt trong sự kiện nào để khi xóa comment (hoặc comment không có nội dung) thì cell ấy thay đổi định dạng. Xin cảm ơn bạn

Delete comment rồi thay đổi định dạng thì em không biết, nhưng comement không có nội dung thì mình nghĩ code này có thể sử dụng được. Anh "Vì em hoài" chỉ giúp

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Comment.Text = "" Then Target.Font.Color = RGB(255, 0, 0)
End Sub

 

[ndu96081631]

Delete comment rồi thay đổi định dạng thì em không biết, nhưng comement không có nội dung thì mình nghĩ code này có thể sử dụng được. Anh "Vì em hoài" chỉ giúp

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Comment.Text = "" Then Target.Font.Color = RGB(255, 0, 0)
End Sub

Code này không chính xác, vì Comment cũng có thể chẳng có Text nào
Hơn nữa, cho vào sự kiện SelectionChange có vẽ không đúng (chả lẽ cứ chọn cell là code chạy)
Function tôi làm ở trên bảo đảm với bạn sẽ cập nhật chính xác khi bạn chèn hoặc xóa Comment

 

[viehoai]

Dùng hàm này:

Function HasComment(ByVal Cel As Range) As Boolean
  Dim Comm As Comment
  Application.Volatile
  On Error Resume Next
  Set Comm = Cel.Comment
  HasComment = Not Comm Is Nothing
End Function

Đưa hàm vào Conditional Formating để tô màu

Cỏ lẽ giải pháp của Sư phụ là hợp lý nhất. Tuy nhiên khi nhập dữ liệu màn hình giật giật hơi khó chịu?