å¯ä»¥ç¨Changeäºä»¶æ¥è¯è¯ï¼Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Target.Value) = "HH" Then
Target.AddComment
Target.Comment.Visible = True 'Target.Comment.Text Text:="æ¹æ³¨ï¼" & Chr(10) & ""
End If
End Sub
温馨提示:答案为网友推荐,仅供参考