Excel VBA代码打开和关闭注释

Question

I am looking for vba code to turn on and off Excel comments - I am using them for online help.

Sub CommentsToggle_Click()
    If Help.Caption = "HELP" Then
    'If IsEmpty(Comments) = True Then
       Application.DisplayCommentIndicator = xlCommentAndIndicator
       Help.Caption = "HIDE COMMENTS"
    Else
       Application.DisplayCommentIndicator = xlCommentIndicatorOnly
      ' Comments = 1
    End If
 End Sub

Answer 1

It appears you're using a toggle button, in which case you have to check the status of the toggle button before doing anything

Sub CommentsToggle_Click()
    If CommentsToggle.Value = True Then 'The toggle button is pressed
       Application.DisplayCommentIndicator = xlCommentAndIndicator
       Help.Caption = "HIDE COMMENTS"
    Else 'The toggle button is depressed :(
       Application.DisplayCommentIndicator = xlCommentIndicatorOnly
       Help.Caption = "HELP"
    End If
 End Sub