excel vba kodu açık ve kapalı yorumlar

Question

Excel açıklamalarını açmak ve kapatmak için vba kodu arıyorum - Onları çevrimiçi yardım için kullanıyorum.

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

İster bir cevap Sorunun olarak işaretleyin çözmek yardımcı olursa

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