色彩検定1級を取得する魅力を紹介♪

Function名に変数を使用する方法は、Application.Run しか知らないのですがこれでは
戻り値がえられません。
ご指導よろしくお願いいたします。

Sub TEST()
Dim Prc_Name As String
Dim i    As Long
Dim Rtn

For i = 1 To 3
Prc_Name = "PRC_" & Trim(Str(i))
Application.Run Prc_Name '←'ここでFunctionからの戻り値を得たい
Rtn = Application.Run Prc_Name '←これではエラーになります
Next i
End Sub
Function PRC_1() As Boolean
'処理
PRC_1 = 処理結果(True Or False)
End Function
Function PRC_2() As Boolean
'処理
PRC_2 = 処理結果(True Or False)
End Function
Function PRC_3() As Boolean
'処理
PRC_3 = 処理結果(True Or False)
End Function

gooドクター

A 回答 (1件)

戻り値がある場合には括弧が必要になります。



Rtn = Application.Run(Prc_Name)
    • good
    • 0
この回答へのお礼

早速のご指導ありがとうございました。
確認できました。ネットで随分検索したのですが、見つかりませんでした。
やっぱり識者が多いここは助かります。

お礼日時:2016/06/29 20:53

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

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

gooドクター

人気Q&Aランキング