特殊・他 大量のプロシージャー(マクロ)を実行する-Loop-同じプロジェクトの場合

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][特殊・他 大量のプロシージャー(マクロ)を実行する-Loop-同じプロジェクトの場合]
Option Explicit


Sub LargeProcedurePractice1()
'*********************************************
'大量のプロシージャー(マクロ)を実行する-Loop
'*********************************************
'同じプロジェクトの場合
'文字String型にして実行

Dim strModule As String
Dim strProcedure As String
Dim strPractice As String
Dim i As Long

strModule = "Module4" 'モジュール名
strProcedure = "MsgboxTest" 'プロシージャー名

For i = 1 To 4

    strPractice = strModule & "." & strProcedure & i

    Run strPractice

Next i

End Sub


'以下モジュール名(オブジェクト名)「Module4」に記述
'※同じプロジェクト内
Sub MsgboxTest1()
    MsgBox "Test1"
End Sub

Sub MsgboxTest2()
    MsgBox "Test2"
End Sub

Sub MsgboxTest3()
    MsgBox "Test3"
End Sub

Sub MsgboxTest4()
    MsgBox "Test4"
End Sub







Production Japan Import Application. Since 1998