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 macroNhờ các anh chị cho đoạn code theo yêu cầu trong file
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ạnBạ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
PHP:Cells.SpecialCells(xlCellTypeComments).Font.Color = RGB(255, 0, 0)
Dùng hàm này:Nhờ các anh chị cho đoạn code theo yêu cầu trong file
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
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úpXin 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
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àoDelete 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
PHP: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
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?Dùng hàm này:
Đưa hàm vào Conditional Formating để tô màuPHP: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
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2