エクセルＶＢＡで公用宣言した配列の使用法について

以下のようなステップを作成しましたところ、sample3でコンパイルエラー（SUBまたはfunctionが定義されていません）となります。

公用で動的配列したいのですが、ご教授をお願いいたします。


Sub sample1 ()
Public 会場() As String
Public 人数() As Integer
：
CALL sample2
：
End Sub
--------------------------------------------------------------------------
Sub sample2 ()
　　　　：
IF 条件成立 = "はい" THEN
　　　REDIM PUB会場(3)
　　　REDIM PUB人数(3)
　　　　　　：
　　　CALL sample3
　　　　　　：
END IF
　　　　：
End Sub
--------------------------------------------------------------------------
Sub sample3 ()
　　　　：
PUB会場(1) = "広島"
PUB会場(2) = "長崎"
PUB会場(3) = "大阪"
PUB人数(1) = 12300
PUB人数(2) = 34000
PUB人数(3) = 10500
：
End Sub

No.2 ベストアンサー 回答者： bonaron 回答日時： 2019/08/25 21:49

単純ミス。

public 会場() As String
Public 人数() As Integer
　　↓
Public PUB会場() As String
Public PUB人数() As Integer

この回答へのお礼

解決しました。ありがとうございます。

お礼日時：2019/08/26 00:02

No.1 回答者： めぐみん_ 回答日時： 2019/08/25 18:27

http://officetanaka.net/excel/vba/variable/05.htm

Sub sample1 ()
Public 会場() As String
Public 人数() As Integer
：
CALL sample2
：
End Sub

を
Public 会場() As String
Public 人数() As Integer

Sub sample1 ()
：
CALL sample2
：
End Sub

でしょうか。

この回答へのお礼

早速のご教授、ありがとうございます。
ですが、私のミスです。申し訳ありません。

ご指摘の、以下の２行は、Sub sample1 の前にもともと記述しています。
その結果のコンパイルエラー発生です。

Public 会場() As String
Public 人数() As Integer

お礼日時：2019/08/25 21:05