エクセルWorksheet_SelectionChangeイベントでお訪ねします。

質問

１．シート全部のセルが選択されてしまった（Cells.Selectの状態）ことを判別する方法はどうすればいいでしょう？

まさか、If Selection.Cells.Count = 256*65536 Then ではないでしょうねえ？

２．複数のセルが選択されたことの判別方法は、

If Selection.Cells.Count > 1 Then

で正しいですか、または他にいい方法がありますか？

回答No.6

BLUEPIXY · ベストアンサー

１．if Selection.address="$1:$65536" then
でもいいみたいです。
２．同じですが
Selection.Count
でいい(Cellsは不要)と思います。

お礼

ありがとうございます。

1.はずいぶんシンプルですね。おどろきました。
2.もCellsが不要とは思いませんでした。

勉強になりました。

回答No.5

marbin

Debug.Printについては、↓が参考になりそうです。

「【マクロのコツ】」
http://www.eastwest-net.co.jp/vba/kotu.htm

リンクの
----------
デバッグ
(5)イミディエイト ウィンドウ
----------
をご覧ください。

お礼

ありがとうございます。
ちょいと難しいです。

回答No.4

kumadayo

If Selection.Rows.Count = Sheets(1).Rows.Count And Selection.Columns.Count = Sheets(1).Columns.Count Then
Debug.Print "ok"
End If
はいかが？

お礼

なるほど、列と行で判別させたわけですね。
ありがとうございます。

ところでDebug.Printとは何でしょうか？

回答No.3

marbin

#2のマクロはそのままでも動くのですが、
一応↓の記述をSub sentakuhanni2()
の下に加えておいてください。

Dim r As Long

回答No.2

marbin

２.については↓でいいかと思います

Sub sentakuhanni2()
r = Selection.Cells.Count
If r = 1 Then
MsgBox "一つ"
Else
MsgBox "複数"
End If
End Sub

お礼

ありがとうございます。

回答No.1

marbin

1については↓でいいかと思います。

Sub sentakuhanni()
Dim r As Long
r = Selection.Cells.Count
If r = 16777216 Then
MsgBox "全部"
Else
MsgBox "全部ではない"
End If
End Sub

2.についてはお待ちを・・・。

お礼

早速ありがとうございました。

16777216=256*65536ですね。（笑）