VBA 変数宣言 まとめて プロシージャ外

Question

効率良く変数を宣言する方法についてご質問したく、
掲載いたしました。

同一モジュールの別プロシージャにおいて、
同じ変数名を使用したいと思っております。
その場合、モジュールレベルでの変数宣言などが方法の一つとして
あるかと思いますが、
モジュールレベルの宣言はコードが読みにくくなるなど
デメリットも多く私自身もあまり使いたいと思いません。

しかし同一モジュールの別々のプロシージャで同じ変数名を使用し同じ内容を定義することを繰り返すのも効率的ではないと思っております。
ただ私自身では解決方法が見つからず、何かご教授いただければと思い、質問いたしました。

まず以下に現状のサンプルコードを記載致します。

Sub msg1()
dim aaa as string
aaa = "AAA"
MsgBox aaa
End Sub

Sub msg2()
dim aaa as string
aaa = "AAA"
MsgBox aaa
dim ccc as string
ccc = "CCC"
MsgBox ccc
End Sub

Sub msg3()
dim bbb as string
bbb = "BBB"
MsgBox bbb
dim ccc as string
ccc = "CCC"
MsgBox ccc
dim eee as string
eee = "EEE"
MsgBox eee
End Sub

現状のコードとしては以上となります。
冒頭でも述べた通り、このコードですと、
複数のプロシージャで同じ変数名で同じ内容を定義していますので
（例えば、msg1とmsg2ではaaaが被っている）、
このようなところを一緒にできないかと思いました。

何か関数などにして一気に宣言と定義を処理してしまい、
各プロシージャでは関数を呼び出すだけで、
その後は変数名だけをプロシージャに記述すれば
変数を使える関数などつくれるのではないか？と淡く思いました。
しかし私自身モジュールレベルの宣言を使う方法しか思いつかず、
モジュールレベルの宣言にはデメリットも多いので、
できることなら使用することを控えたいと思っております。

参考になるかは分かりませんが、私がモジュールレベルの宣言を使って
変数の宣言、定義をひとまとめにしたコードを以下に記載いたします。

Dim aaa As String
Dim bbb As String
Dim ccc As String
Dim ddd As String
Dim eee As String

Sub DimDim()
aaa = "AAA"
bbb = "BBB"
ccc = "CCC"
ddd = "DDD"
eee = "EEE"
End Sub

Sub msg1()
Call DimDim
MsgBox aaa
End Sub

Sub msg2()
Call DimDim
MsgBox aaa
MsgBox ccc
End Sub

Sub msg3()
Call DimDim
MsgBox bbb
MsgBox ccc
MsgBox eee
End Sub

重ねてにはなりますが、
上記コードの

Dim aaa As String
Dim bbb As String
Dim ccc As String
Dim ddd As String
Dim eee As String

Sub DimDim()
aaa = "AAA"
bbb = "BBB"
ccc = "CCC"
ddd = "DDD"
eee = "EEE"
End Sub

この部分をモジュールレベルの宣言を使用するのではなく、
より効率的なコードにできればと思っております。

長文となり、分かりにくい部分も出てしまったかと思いますが、
何卒よろしくお願いいたします。

Answer 1

要件がよく分かりませんが、定数で良いなら、Constをモジュールレベルで定義するのでしょうか。

文法的にConstに書けないような値の場合でも、再代入が無いのであればモジュールレベルで良いんじゃないでしょうか。

Comments

[tttkkk]

分かりにくい質問で申し訳ありません。
モジュールレベルの宣言は可読性を下げるとよく言われますので、
それを避けた上で他に効率的な方法があればと思い質問いたしました。

やはり現段階での私のスキルですと、
仰る通りモジュールレベルの宣言を行うのが一番なのかもしれません。

再代入することはないので、constを使用してみたいと思います。

[otn]

> モジュールレベルの宣言は可読性を下げるとよく言われますので、
そう言われる理由を考えましょう。結論だけ記憶するのはあまり意味が無く、時として有害です。

Answer 2

提示のようなコードなら、可変引数でもとって、関数定義を一つだけ、にすれば変数名で悩むことはなくなります。

複数のプロシージャで同じ変数名で同じ内容を定義していますので

ってのはそもそもの設計が悪いように思いますが。

Comments

[tttkkk]

確かに複数のプロシージャで同じ変数の定義をしたいということ自体が間違いなのかもしれません…。
もう少し考えてみて再設計の必要があれば土台から考えてみたいと思います。

[tttkkk]

また、可変引数というのを教えていただきありがとうございました。
初めて見た用語でしたので、勉強した上で自分のマクロに落とせるかどうか試してみます。