スキルアップ・問題解決なら、モーグにおまかせ！

セルに設定したコメントを選択中のSelection.TopLeftCellは、そのコメントを図形と考えたときに左上の頂点が属しているセルを取得しますが、コメントがどこにあってもそのコメントが設定されているセルを取得する方法はありますでしょうか？
 
具体的には、A1セルにコメントを設定中としたときに以下の2ケースともでA1を取得したいです。
ケース1：コメント左上頂点がB1セルにあるとき
　→Selection.TopLeftCellはA1ではなくB1を取得してしまう(A1を取得したい)
ケース2：コメント左上頂点がA1セルにあるとき
　→Selection.TopLeftCellはA1を取得出来る
 
A1が取得できれば、方法はSelection.TopLeftCellでなくても全く問題ありません。
以上､よろしくお願い致します｡

選択中のコメント から セルを取得するのは難しいので
 
Cells.SpecialCells(xlCellTypeComments) のコレクションから、
当該 コメントと Nameプロパティー が同じ コメントを持つ
Range を走査してはどうでしょうか。

>コメントがどこにあってもそのコメントが設定されているセルを取得する方法はありますでしょうか？
一般機能のなかに「ジャンプ」というコマンドがあります。
「ホーム」タブの一番右に「検索」「置換」「ジャンプ」・・・というボタンがあります。
「ジャンプ」をクリック→ダイアログ表示→左下の「セル選択」ボタンクリック→
別のダイアログ→「コメント」クリック・・・コメントが設定されている全セルが選択できます。
   
この操作をマウロの記録でコード作成します。
これをアレンジすれば、目的のセルを探すことが可能です。
 

 選択中のコメントとか言われていて、シチュエーションがピンと来ないのですが、
 コメント内の文字列を元に、検索してヒットしたセルのアドレスを得たいということですか？
  
 既に指摘がありましたように、
 コメント内容から、簡単にセルアドレスを取得できるような直接的なプロパティはないので、
 以下のようなコードを参考に、全部のコメントを調べていくしかありません。
 参考にしてください。（これをそのまま使うというわけではないので注意してください）
  

Sub test()
    Dim r As Range
    
    For Each r In Cells.SpecialCells(xlCellTypeComments)
        Debug.Print r.Address                               'そのセルのアドレス
        Debug.Print r.Comment.Shape.OLEFormat.Object.Text   'メモ内容
    Next
End Sub

>コメントがどこにあってもそのコメントが設定されているセルを取得する方法はありますでしょうか？
コメントがどこにあっても
という意味がようやく理解できました。
  
コメントは「テキストボックス」として認識されます。
ですから、テキストボックスの親を取得すると
設定時には、セルを指定したのに、ワークシートになってしまいます。
 
対策として
一旦、コメント（テキストボックス）に自動設定された名前を変数に記憶し、
ワークシート内の全コメントを検査し、設定されている名前と照合します。
  
参考コード

Sub test()

Dim CMTName As String
Dim CMTX As Long

    CMTName = Selection.Name
  
    With ActiveSheet
        If .Comments.Count > 0 Then
            For CMTX = 1 To .Comments.Count
                If .Comments(CMTX).Shape.Name = CMTName Then
                    Debug.Print "Cell_Address:" & .Comments(CMTX).Parent.Address
                    Debug.Print "Shape_Address:" & .Comments(CMTX).Shape.TopLeftCell.Address
                    Exit For
                End If
            Next
        End If
    End With
End Sub

皆様
色々とアドバイスをありがとうございます。
 
使う目的は、コメント機能周りをショートカットで楽する為です。
コメント機能をメモ代わりによく使うので以下のように設定しているのですが
・コメントの無いセル
　→Shift+F2で新規空白コメントを挿入し、コメントオブジェクトを選択した状態にする。
・コメントがあり、そのコメントを表示中のセル
　→Shift+F2でコメントを非表示にする。
　　Shift+F3でコメントを削除する。
・コメントがあり、そのコメントを非表示中のセル
　→Shift+F2でコメントを表示し、コメントオブジェクトを選択した状態にする
　　(マウス操作なしですぐに編集したいからコメントを選択する)。
　　Shift+F3でコメントを削除する。
 
コメントを非表示中のセルにShift+F2→不要コメントと分かったからShift+F3で削除
としたくても選択中の対象がセルではなくコメントのため上手くいかず、いいものを思いつけなかったので質問しました。
(TypeNameでRangeかTextBoxで分けようとしましたが、誤操作で他のテキストボックスを消したくないので…)
 
出来上がったコードを備忘録や同じ悩みを持つ人の為に後で貼り付けようと思います。
ありがとうございました。

引用:
コメントを非表示中のセルにShift+F2→不要コメントと分かったからShift+F3で削除
としたくても選択中の対象がセルではなくコメントのため上手くいかず、いいものを思いつけなかったので質問しました。

simple様
 
コメントの編集中はマクロは使えない
→今試してみてマクロが使えないことを初めて知りました。
セルと違って、コメント選択状態とコメント編集状態ではボックス選択中の8つの□が出ているという点で見た目に違いが無かったので全然知らなかったです。
 
とはいえShift+F3でまとめたい気持ちがあるので、ESC→Deleteの機能を持たせようかなと思います。

以下のマクロを SHIFT+F3に割り当てれば、よいと思います。

Sub test()
    Application.CommandBars.ExecuteMso "ReviewDeleteComment"
End Sub

simple様
 
追加のアドバイスを色々とありがとうございます。
 
もともと特定のセル上でShift+F2を押したわけですから、まして見えているわけですから、
そのセルにカーソルを戻す手間を惜しまず、
→私が超ズボラなことが原因ですが、ご指摘の通り単一セルに使う時もあれば、ガーッとセル範囲をマウスで選択してShift+F3で削除したい時もあるのに両方を同じ操作で済ましたい思いがあります。
 
大元が、リボンのコメント削除ボタンみたいなことがやりたいなという思いがあったので
ExecuteMso "ReviewDeleteComment"
がとてもありがたいです(アクセスツールバーをOPまで登録済みでもう増やしたくない気持ちもあります)。
直接呼び出せるということを知って大変勉強になりました。
 
ありがとうございました！

引用:
もともと特定のセル上でShift+F2を押したわけですから、まして見えているわけですから、
そのセルにカーソルを戻す手間を惜しまず、
→私が超ズボラなことが原因ですが、ご指摘の通り単一セルに使う時もあれば、ガーッとセル範囲をマウスで選択してShift+F3で削除したい時もあるのに両方を同じ操作で済ましたい思いがあります。

ついでに参考情報。
"ReviewDeleteComment"などのidの探し方については、下記を参照してください。
「マクロで実行したいコマンドのIDを調べる簡単な方法」
https://www.ka-net.org/blog/?p=4438

結局、

引用:
ただし、「いったんEscで編集モードを抜けてから」

引用:
複数の場合と同じようにするなら、
単一セルでもマウスで元のセルを選択するのが整合的ではないんですか？
私の案となんら変わらないじゃないですか？

Suzu様

引用:
Shift + F3 に登録する必要 がありますでしょうか？

Sub コメント()
Application.EnableEvents = False
 With ActiveCell
  If TypeName(.Comment) <> "Comment" Then
   .AddComment
   .Comment.Shape.TextFrame.Characters.Font.Name = "ＭＳ 明朝"
   .Comment.Shape.TextFrame.Characters.Font.Size = 10
   .Comment.Shape.Placement = xlMoveAndSize
   .Comment.Visible = True
   .Comment.Shape.TextFrame.AutoSize = True
   .Comment.Shape.Select
   Application.EnableEvents = True
   Exit Sub
  End If
  
  Select Case .Comment.Visible
   Case True
    .Comment.Visible = False
   Case False
    .Comment.Visible = True
    .Comment.Shape.Select True
  End Select
 End With
Application.EnableEvents = True
End Sub

＞目を瞑って頂ければ。
と言われてもねえ。ご自分の好きなようにされたらよいのでは？
 
それで、現時点で何が問題になっているんですか？
解決したのなら閉じてもらえばと思いますし、
問題が残っているなら、それを明確にしてください。

引用:
右手はマウスにいる時間が長いので左手で済ましたい思いがあります

皆様
 
どうもありがとうございました。