VBAにおいて、表示、非表示を切り替えるボタンの作成

Question

初めまして。
現在VBAを勉強し始めましたが、できない操作があります。
お力を貸していただけたら助かります。

現在試行錯誤している動作は、
エクセルシート上に設置した「表示／非表示」ボタンを押すたびに、このシートに存在する注釈の表示／非表示を切り替えられるようなマクロを作成することです。

わからないことは、
１．注釈の名前がわからないため、どのように選択し、動作を付け加えていったらよいのか
２．「表示／非表示」ボタンは押下するたびにラベルが切り替わる方法
(二つボタンを作成し、選択したら片方が消え、片方が現れる、という方法ではうまくいきませんでした)
３．ifとhiddeプロパティを使うというイメージであっているのか
ということです。

この場合はどうしたら良いのでしょうか。
どうぞ、よろしくお願いします

Answer 1

Application.DisplayCommentIndicator はExcel自体の設定が変わってしまいます。

つまり、他のブック、他のシートのコメントまで非表示になってしまい、
場合によってはトラブルになる可能性が考えられるので注意が必要です。

なので、シート上のコメントに対して、表示/非表示を変えるのが適当かと。
※解説はしませんので悪しからず。

    Dim Sheet   As Worksheet
    Set Sheet = ActiveSheet
    
    Dim Com As Comment
    For Each Com In Sheet.Comments
        If Com.Visible = False Then
            Dim Visible As Boolean
            Visible = True
        End If
        Exit For
    Next
    
    For Each Com In Sheet.Comments
        Com.Visible = Visible
    Next

Answer 2

私も注釈＝コメントのことと思いましたので、これでアドバイスさせていただきます。

---

Excelにはコメントを一括で表示/非表示する機能があります。
シート上の操作では「校閲」タブの「全てのコメントの表示」ボタンで切り替えられます。

これをググったりマクロの記録をすればわかりますが、VBAのコードでは
Application.DisplayCommentIndicator
というプロパティで制御できます。

コメント一括ON
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
コメント一括OFF
Application.DisplayCommentIndicator = xlCommentAndIndicator

今回はボタンを押すたびにこれを切り替えたいのだと思います。

こういったスイッチングは、IF文を使えば簡単にできます。
・もしAが①なら、Aに②を代入する。
・それ以外なら（Aが①でなければ）、Aに①を代入する。

今回の場合でいうと、
・コメント一括ONの状態なら、コメント一括OFFにする。
・それ以外の場合は、コメント一括ONにする。
となります。

あとはこれをVBA上でコードにするだけです。
がんばってみてください。

---

コメントひとつひとつに対して表示/非表示する場合には、segavvyさんのアドバイスのようにRangeオブジェクトのComment.Visibleプロパティで制御できます。

ちなみにRangeオブジェクトはセル範囲を指定することができるオブジェクトですが、このプロパティは複数セルをまとめて操作できません。
単一セルを指定したRangeオブジェクトでないとエラーが発生しますのでご注意ください。
※segavvyさんのサンプルコードではループ処理で単一セルを繰り返し取得しているので問題ありません。

VisibleプロパティのようなBoolean型（True/False）の値はスイッチングが簡単です。
もしAがTrueならFalse、FalseならTrueにするという式は、IF文を使わなくても
A = Not A
という代入式で実現できるからです。

参考になれば幸いです。

Answer 3

注釈＝コメントでよろしいでしょうか。以下、その想定で回答します。
Excel 2013で確認しました。

１．注釈の名前がわからないため、どのように選択し、動作を付け加えていったらよいのか

Excelの検索機能で、コメントが付いているセルだけを一気に選択できます。
「ホーム」タブの「検索と選択」で「条件を選択してジャンプ…」を選び、「コメント」を選んで「OK」すると、コメントのあるセルだけが選択されるはずです。
この操作を記録すれば、VBAのコードが確認できます。

２．「表示／非表示」ボタンは押下するたびにラベルが切り替わる方法

ラベルの変え方も、操作を記録すれば確認できます。
目的のボタンを右クリックして「テキストの編集」を選び、編集できます。この操作を記録してみてください。
（少し余計なコードが生成されますが、ラベルを変えるのは記録された最初の1行で済みます）

３．ifとhiddeプロパティを使うというイメージであっているのか

これも記録して確認できます。
コメントの表示されているセルを選んで右クリックで「コメントを表示しない」を選ぶと隠せます。この操作を記録してみてください。

以下、コメントを非表示にするだけの一方通行ですが、VBAのサンプルです。
(ラベルは「コメントを表示」に切り替わりますが、常に非表示にしかなりません^^;)

Sub Macro1()
'
' Macro1 Macro
'
    ' コメントが付いているセルを全選択
    Selection.SpecialCells(xlCellTypeComments).Select

    ' 総当たりでコメントを見えなくする
    For Each CommentCell In Selection
        CommentCell.Comment.Visible = False     ' 表示する場合はTrue
    Next
    
    ' ボタンのラベルを変更
    '   "Button 3"の部分は実行環境依存なので、記録して確認してください
    ActiveSheet.Shapes.Range(Array("Button 3")).Select
    Selection.Characters.Text = "コメントを表示"
    
End Sub