配列の受け渡しについて

Question

失礼いたしました。追記です。

sCnt()とtCnt()というそれぞれの配列を複数のプロシージャ内で使いたいのです。そこで、これらの配列を「Sub　配列決定()」というプロシージャ内で宣言し、要素を入れていき、他のプロシージャで活用する際にcallで呼び出しているのですが、どうも呼び出されていないようです。（エラーメッセージが出てしまいます。）
何が原因かわかりません。なにか、方法はありますか。よろしくお願いします。

Sub 小問カウント()

ReDim sCnt(1 To Daimon) As Integer
For i = 1 To Daimon
    sCnt(i) = UF1.Controls("TextBox" & i).Text
Next i
ReDim tCnt(0 To Daimon) As Integer
tCnt(0) = 0
For i = 1 To Daimon
    tCnt(i) = tCnt(i - 1) + UF1.Controls("TextBox" & i).Text
Next i
End Sub


Sub 枠設定()

For i = 1 To sCnt(1)
    UF2.Controls("CheckBox" & i).Visible = True
    UF2.Controls("TextBox" & i).Visible = True
    UF2.Controls("TextBox" & i + 30).Visible = True
    UF2.Controls("TextBox" & i + 60).Visible = True
    UF2.Controls("Label" & i).Visible = True
Next

End Sub

上記のプロシージャはいずれも同じ標準モジュール内にコードしています。そして、これらをユーザーフォーム内のモジュールで活用したいんですがうまくいきません。下記がユーザーフォーム内のモジュールのコードです。（ちなみに、小問カウントと枠設定を分けている理由は小問カウントだけを活用する場面が多々あるためです。）

Private Sub UserForm_Initialize()
Bunshi = 2
Me.Frame2.ScrollTop = 0
Me.Label71.Caption = Bunshi & " / " & Daimon + 2 & " ページ"
Me.Label31.Caption = "< " & sName & " >"

Call 小問カウント
Call 枠設定
Me.TextBox1.SetFocus

出てくるエラーメッセージはsub 枠設定()内で「SubまたはFunctionが定義されていません。」というものです。

Comments

[y_waiwai]

そのコードとエラーメッセージを提示しましょう

Answer 1

変数にはスコープ(適用範囲)というものがあります。（配列変数も同様です。）

VBA スコープ

Office TANAKA - 変数の使い方[変数の適用範囲]

重要な概念なので検索すれば解説ページは他にもいろいろ見つかります。
まずはこの概念を理解しましょう。

その変数をそのブック内のどこからでも参照したいのなら、標準モジュールの先頭で宣言します。
今回の場合は、Cnt()とtCnt()をここで宣言すればいいでしょう。

どこからでも参照できるのでグルーバル変数といいます。
便利ではあるのですが、どこからでも参照できるということは、大きなプロジェクトになるとバグの元になります。これもグローバル変数というキーワードで検索するといろいろ解説が見つかります。

できればグローバル変数の使用は避けたほうがいいです。なるべく狭いスコープで宣言する。あるいは、プロシージャの引数を変数を渡しようにするなどの設計に変更することも理解が進んだら検討するといいでしょう。

Comments

[m_m_0824]

大変丁寧に説明いただきありがとうございます。参考URLも拝見させていただき、勉強を深めていきたいと思います！

Answer 2

プロシージャの外(標準モジュールの先頭)で宣言すると良いと思います。