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

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

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


Sub LargeProcedurePractice2()
'*********************************************
'大量のプロシージャー(マクロ)を実行する-Loop
'*********************************************
'違うプロジェクトの場合(起動済み要)
'文字String型にして実行

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

strProject = "Project1.xls" 'プロジェクト名(ファイル名)
strModule = "Module5" 'モジュール名
strProcedure = "MsgboxTest" 'プロシージャー名

For i = 1 To 4

    strPractice = strProject & "!" & strModule & "." & strProcedure & i

    Run strPractice

Next i

End Sub


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

Sub MsgboxTest2()
    MsgBox "Test6"
End Sub

Sub MsgboxTest3()
    MsgBox "Test7"
End Sub

Sub MsgboxTest4()
    MsgBox "Test8"
End Sub








Production Japan Import Application. Since 1998