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

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

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

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

If Selection.Cells.Count > 1 Then

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

No.6 ベストアンサー 回答者： BLUEPIXY 回答日時： 2004/11/12 20:51

１．if Selection.address="$1:$65536" then

でもいいみたいです。
２．同じですが
Selection.Count
でいい(Cellsは不要)と思います。

この回答へのお礼

ありがとうございます。

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

勉強になりました。

お礼日時：2004/11/13 01:32

No.5 回答者： marbin 回答日時： 2004/11/12 15:53

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

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

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

この回答へのお礼

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

お礼日時：2004/11/13 01:24

No.4 回答者： kumadayo 回答日時： 2004/11/12 14:05

If Selection.Rows.Count = Sheets(1).Rows.Count And Selection.Columns.Count = Sheets(1).Columns.Count Then

Debug.Print "ok"
End If
はいかが？

この回答へのお礼

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

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

お礼日時：2004/11/12 15:04

No.3 回答者： marbin 回答日時： 2004/11/12 13:55

#2のマクロはそのままでも動くのですが、

一応↓の記述をSub sentakuhanni2()
の下に加えておいてください。

Dim r As Long

No.2 回答者： marbin 回答日時： 2004/11/12 13:52

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

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

この回答へのお礼

ありがとうございます。

お礼日時：2004/11/12 15:03

No.1 回答者： marbin 回答日時： 2004/11/12 13:49

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ですね。（笑）

お礼日時：2004/11/12 15:02