Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11691 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14699】変数について ＶＢＡ修行中 04/6/5(土) 17:25 質問[未読]
【14701】Re:変数について IROC 04/6/5(土) 20:23 回答[未読]
【14702】Re:変数について kein 04/6/5(土) 22:02 回答[未読]
【14703】Re:変数について ＶＢＡ修行中 04/6/5(土) 22:41 お礼[未読]
【14699】変数について
質問  ＶＢＡ修行中  - 04/6/5(土) 17:25 -
引用なし
パスワード
   Sub test_1()
　　set 範囲 = Union(Range("BB,CC,DD,EE,FF,GG") _
　　　　　, Range("HH,II,JJ,KK,LL,MM,NN,OO"))
　　範囲.（処理Ａ）
End Sub

Sub test_2()
　　set 範囲 = Union(Range("BB,CC,DD,EE,FF,GG") _
　　　　　, Range("HH,II,JJ,KK,LL,MM,NN,OO"))
　　範囲.（処理Ｂ）
End Sub

Sub test_3()
　　set 範囲 = Union(Range("BB,CC,DD,EE,FF,GG") _
　　　　　, Range("HH,II,JJ,KK,LL,MM,NN,OO"))
　　範囲.（処理Ｃ）
End Sub

というようなマクロを作ったのですが

set 範囲 = Union(Range("BB,CC,DD,EE,FF,GG") _
　　　　　, Range("HH,II,JJ,KK,LL,MM,NN,OO"))

の部分を使いまわすにはどうすればよいのですか？

Private 範囲 As Object

　　set 範囲 = Union(Range("BB,CC,DD,EE,FF,GG") _
　　　　　, Range("HH,II,JJ,KK,LL,MM,NN,OO"))

と、プロシージャの前に記述してみましたがだめでした。
よろしくお願いします。
【14701】Re:変数について
回答  IROC  - 04/6/5(土) 20:23 -
引用なし
パスワード
   Private 範囲 As Object
をモジュールの先頭に記述して、
モジュールレベルの変数にしては如何でしょうか？

http://www.sanynet.ne.jp/~awa/excelvba/kouza/chapt_03/008.html
【14702】Re:変数について
回答  kein  - 04/6/5(土) 22:02 -
引用なし
パスワード
   String型のグローバル定数を宣言しても良いでしょう。

Private Const TestR As String = "B:O"

Sub Col_test()
　 Range(TestR).Interior.ColorIndex = 5
End Sub
【14703】Re:変数について
お礼  ＶＢＡ修行中  - 04/6/5(土) 22:41 -
引用なし
パスワード
   ありがとうございました。

うまく動かないので別のアプローチを考えて見ます。

お世話になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11691 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free