[PR]ネットとスマホ OCNでまとめておトク!

以下のようなステップを作成しましたところ、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

A 回答 (2件)

単純ミス。


public 会場() As String
Public 人数() As Integer
  ↓
Public PUB会場() As String
Public PUB人数() As Integer
    • good
    • 0
この回答へのお礼

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

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

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

でしょうか。
    • good
    • 0
この回答へのお礼

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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング