【ＶＢＡ】セルを全選択するとバグる

2018/11/23

fuji

Excelのマクロでたまに起こる話。

作ったVBAプログラミング内に、

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

があります。
結構使うと思います。

その中に、特定のセル”１つ”を選択していた場合に～と考えて,
以下のプログラムのように、単一選択の条件式を書いているとエラーになってしまいます。

If Selection.Count = 1 Then

・現象

・Selection.Countを使っている。
・善選択（またはそれに近いくらいのセルを選択する）
・なんか、「オーバーフローしました」というメッセージが出てしまう。

・原因

Selection.Countは、今選択しているセルの個数を数えてくれます。
でも、Selection.Countがカウントできる数ってLONG型の限界値までらしいっす。
どのくらいなのか詳細は分かりませんが、EXCELが、
EXEEL2003→EXCEL2007→EXCEL2010→EXCEL2013→EXCEL2016‥‥‥
と順々にバージョンアップしていき、
縦と横の最大値も増え、
選択できるセル数も増え上がっていった。
もはやロング型では追いつけない！！
こんなストーリーがなんとなく想像が付くかと。