Excel VBAでDebug.Printしてセルの情報を取得する方法

質問

• Excel VBAのDebug.Printを使用してセルの情報を取得する方法を教えてください。
• Debug.Printを使用することで、セルの行番号や列番号を取得することができます。
• また、マウスで選択したセル範囲の情報も取得することができます。

回答No.1

keithin · ベストアンサー

○何をしたいのか
→何かを「選択した」ときに、その選択した（された）モノの情報を調べたい

⇒どうしたら良いのか
（方法１：セル範囲等）
選択されたモノに紐づいている「イベントプロシジャ」（自動起動マクロ）が存在している場合は、それを使って「選択されたモノ」それ自体を取得、情報を取り出す

（方法２：たとえば図形等）
選択されたモノにイベントが紐づいていない場合、手動マクロを起動し、「今選択されているモノ」の情報を取り出す

○方法１の具体的な展開の基本
例えばセル範囲の場合：
選択される可能性のあるセル範囲としては、次の状況が考えられます
　一個のセルを選択した場合
　ヒトカタマリの（矩形の）セル範囲
　とびとびのセル範囲
　列を１列あるいは複数列（カタマリ・とびとび）
　行を１行あるいは複数行（カタマリ・とびとび）

これらのケースは、いずれもWorksheet_SelectionChange（あるいはWorkbook_SheetSelectionChange)イベントによって取得できます。具体的に何を選択した時、イベントが何を取得しているのかケースごとに調べたり、あるいは具体的なマクロでどう処理を進めるのか漏れなく考えなければいけません。

手順：
シート名タブを右クリック、コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_SelectionChange(byval Target as excel.range)
msgbox target.address
end sub

上述したようなさまざまな「セルの選び方」に応じて、具体的に何が（どのようなタイミングで）targetに取得されたか、（回答をフンフン読んで分かった気になるんじゃなくて）実際にあなたの手を動かして確認してください。

○ご質問の具体的な回答
練習用のイベントプロシジャを消去、改めて下記をコピー貼り付ける

private sub Worksheet_SelectionChange(byval Target as excel.range)
debug.print target.address,
debug.print target.areas.count,
debug.print target.row,
debug.print target.rows.count,
debug.print target.column,
debug.print target.columns.count
end sub

お礼

ありがとうございます
いつもマクロそのものを教えてもらっていては進歩しないので
Debug.printで得られる値を見ながらＩＦ文を書いてみようと思い
質問しました
確かに、必要なときに教えてもらったマクロを少し手直しするという
私のやり方では進歩しません
反省しています

補足

早速やってみました
目的の値がすべて取得出きています

貴重な時間に、長文で教えていただいて恐縮です
親切に教えていただきありがとうございました