0

Excel スプレッドシートにコメントがあります。

コメントを表示するか非表示にするかを制御するボタンが 1 つあります。ユーザーがボタンをクリックすると、コメントが表示されます。ユーザーがもう一度クリックすると、コメントが消えるはずです。

以下は、私が使用しようとしているコードです。どちらも独立して動作しますが、If Then Else ステートメントを挿入すると、エラーが発生します。

Sub showcomments()

If Comments <> "Visible" Then Application.DisplayCommentIndicator = xlCommentAndIndicator
Else: Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
    
End Sub

やってみelse if comments = visibleました。

通常、「else without if」というエラーが表示されます。

4

4 に答える 4

3

自分でExcelでこれをやりたかったのです。私が間違っていなければ、これはあなたが望むものに対して完全にうまく機能し、ループや追加のグローバル変数は必要ありません...

Sub showcomments()
  If Application.DisplayCommentIndicator = xlCommentIndicatorOnly Then
    Application.DisplayCommentIndicator = xlCommentAndIndicator
  Else
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
  End If
End Sub
于 2015-12-24T20:27:03.463 に答える