Excel VBAでの定数宣言について

質問

初心者が書籍とにらめっこしながらマクロを書いています。
お助けください。

複数あるラジオボタンをクリックしたら、そのラジオボタンの種類に応じて、特定の行を表示したり、非表示にしたりしたいと考えています。行の追加や削除で行番号が変わってしまった場合に備えて、この行番号を定数として宣言したいと思ったのですが、うまくいきません。

シートモジュールには、以下のように記述しています。
==============================================================
Private Sub OptionButton1_Click() 'ラジオボタン1を選択
Rows(scope1).EntireRow.Hidden = False 'scope範囲行を表示
Rows(scope2).EntireRow.Hidden = True 'scope範囲行を非表示
End Sub

Private Sub OptionButton2_Click() 'ラジオボタン1を選択
Rows(scope1).EntireRow.Hidden = True 'scope範囲行を非表示
Rows(scope2).EntireRow.Hidden = False 　'scope範囲行を表示
End Sub
==============================================================

以下の記述で定数を宣言したいのですが、
public const scope1 = "38:48" '38行目～48行目
public const scope2 = "49:52" '49行目～52行目

シートモジュールの最初に書くと、
「コンパイルエラー　　定数、固定長文字列、配列、ユーザー定義型およびDeclareステートメントは、オブジェクトモジュールのパブリックメンバとしては使用できません」
とエラーメッセージが表示されてしまいます。

エラーの意味がよく分からないのですが、定数宣言は、どこに記述すればよいのでしょうか？

お教えください。よろしくお願いします。

回答No.1

shigenobi · ベストアンサー

こんばんは。

複数シートに対しての宣言をするのであれば、
標準モジュールを新規で作ったりして、どのシートからも
参照できるようにします。

その場合、宣言のスコープをPublicにする必要があります。

１つのシート内で有効にさせればいい定数宣言であれば、
シートのモジュールにPublicステートメントはつけず宣言します。

const scope1 = "38:48" '38行目～48行目
const scope2 = "49:52" '49行目～52行目

↑これでOKなはずです。

お礼

ありがとうございます。
シートやモジュールの関係が今ひとつ理解できていませんが、こういった経験を積んで、理解していきたいと思います。
丁寧な説明をいただき、ありがとうございました。

回答No.2

myRange

シートモジュールには、Public Constはできないというエラーですから、
Publicを外してやりましょう。

Const scope1 = "38:48"
Const scope2 = "49:52"

どうしてもPublicで宣言したい場合は標準モジュールに書くこと。

以上です。

お礼

ご回答ありがとうございました。
ExcelもmyRangeさんのようなエラーメッセージを表示してくれると助かるのですが・・・
おかげで助かりました。