エクセルＶＢＡ

Question

ＶＢＡ内で、そのＶＢＡの実行を制御することは可能でしょうか？

 下のようなコードを作ったのですが、

Sub 承認書作成()
  Dim ws0 As Worksheet, ws1 As Worksheet, r1 As Range
  Dim i As Long
  Dim nyuryoku(), chikuseki()
    
Set ws0 = Worksheets("承認書作成")
Set ws1 = Worksheets("顧客データ")
Set ws2 = Worksheets("業者コード")
Set ws3 = Worksheets("承認通知書")

Worksheets("顧客データ").Select
Range("テーブル1[[#Headers],[ＮＯ．]]").Select
    Selection.End(xlToRight).Select
    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    Range("B7").Select

  nyuryoku = Array("b5", "d5", "f5", "h5", "j5", "l5", "n5", "p5", "b6", "d6", "f6", "h6", "j6", "l6", "n6", "p6", "b4", "d4")
  '転記したいセルの位置
  chikuseki = Array("0", "1", "5", "6", "8", "9", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "53", "54")
  
  '転記先の列のオフセット値
　Set r1 = ws1.Range("f" & Rows.Count).End(xlUp).Offset(0)
  'データ蓄積セル
　For i = 0 To UBound(nyuryoku)
    r1.Offset(0, chikuseki(i)).Value = ws0.Range(nyuryokui)).Value
   '入力
      Next
  MsgBox "入力完了"
     Dim lRowNum As Long
   '転記先となる行番号を求める
 lRowNum = ws1.Cells(Rows.Count, "b").End(xlUp).Row
   '転記
     ws3.Cells(6, "d").Value = ws1.Cells(lRowNum, "j").Value
     ws3.Cells(17, "g").Value = ws1.Cells(lRowNum, "c").Value
     ws3.Cells(22, "g").Value = ws1.Cells(lRowNum, "l").Value
     ws3.Cells(22, "ac").Value = ws1.Cells(lRowNum, "ab").Value
         
　　  Set ws0 = Nothing
   　 Set ws1 = Nothing
End Sub

ここに、
　
　　If call Macro1 then
      call 承認書作成
 　'上のマクロです
   　　 Else: Msgbox"中止"

「Macro1を実行しないと承認書作成マクロを実行できない」
という
コードを組み込みたいのですが、うまくいきません。

ＶＢＡ内に同じＶＢＡを組み込むことは不可能なのでしょうか？

zap35 · Accepted Answer

＃０２です
＞自分なりに上のマクロに組み込んでみたのですが、うまく作動してくれません。
とのことですが、まず新規のシートの標準モジュールシートに＃０２に書いたマクロをそのまま貼り付けて、Macro2を実行してみてください。次にMacro1を実行してから、もう一度Macro2を実行してください

簡単なマクロですから、まず動作を理解してからご自身のマクロに組み込んだ方がよいですよ。

想像が入りますが
Dim psw As Boolean

Sub Macro1()
　　psw = True
’　kinoyasukoさんのMacro1の記述
End Sub

Sub 承認書作成()
　　If psw Then
　　　　MsgBox "実行可能"
’　　　kinoyasukoさんの承認書作成マクロの記述
　　Else
　　　　MsgBox "中断"
　　End If
End Sub
のようにすれば動くと思います

n-jun · Answer

＃３です。
>Macro1をクリックした時のみ、承認通知書のマクロが実行されるようにしないといけなくて。
>Macro1のボタンを押せば承認書作成マクロが実行できる、押さないとできない。
シートに置いたコマンドボタンで承認書作成のマクロを実行したいと
言う事ですか？

imogasi · Answer

次ぎのステップへ実行したという情報を後のステップへ伝えるには、１変数（FLG)を定義しておいて、まず前もって適当な場所（色々処理により場合場合ガある）で初期化（例えばFLG＝”N")しておいて、問題のステップを通ったら、FLG="Y"にして、通過したかどうかをチェックするステップでIf　FLG="Y"　Then　（OKルーチン）のようにする。
（そして利用直後・用済み後にFLG="N"にする。）フラグ（旗を立てる）といって、プログラマの常識的手法です。
ただ変数FLGは、どのスッテップでも保持されている、PUBLIC変数などで無いと、別モジュールに行って、システムで初期化されるようでは困るので注意が必要です。
ーー
コードを長々書いて質問し、回答者に読解させるのも良いが、初めにやりたいことの要点を文章で書くのが、回答者の負担や、理解不十分を減らすことになることを考慮されたい。本件では
「プログラムのあるステップを通ったかどうか、後のステップで判別したい」ぐらいかな。

papayuka · Answer

単純に Macro1 → 承認書作成 の順番で必ずマクロを実行させたいって事じゃないみたいですね。
Macro1が一度も実行されて無い状態では「承認書作成」を実行出来ないようにしたいって事？
シェアウェアでパスワードを入れてないとダメ見たいな感じ？

例えば、Macro1を実行したら隠しシートとか既存シートの未使用セルとかに何らかのフラグを立てて、「承認書作成」マクロはそれを見て実行させるとか、、、

大した仕組みじゃないけど、例えば

'----------------------------------------------------------------------
Sub Macro1()
　Do
　　 s = Application.InputBox("パスワードは？", "入力", Type:=1)
　　 If s = False Then
　　　　MsgBox "終了します", vbCritical, "キャンセル"
'　　　　ThisWorkbook.Close savechanges:=False
　　　　 Exit Sub
　　 End If
　Loop Until s = 123456
　MsgBox "OK", vbInformation, "パス解除"
　Worksheets(1).Range("IV1").Value = True
　ThisWorkbook.Save
End Sub

'----------------------------------------------------------------------
Sub 承認書作成()
　If Not Worksheets(1).Range("IV1").Value Then
　　 MsgBox "Macro1でパスワードを入れてね", vbInformation, "要求"
　　 Exit Sub
　End If
　MsgBox "承認書作成"
End Sub

n-jun · Answer

>「Macro1を実行しないと承認書作成マクロを実行できない」
>Macro1を実行していない場合は実行できない様にしたいのです。
承認書作成のマクロを実行した際に、まずMacro１を呼び出して実行後に
以降を続けて実行すればいいのでは？

承認書作成のマクロを実行する際に、Macro１が必ず実行されると
まずい場合があるのなら別ですが。

zap35 · Answer

「ご参考まで」ですが、こんな制御方法も考えられます。
ただしプログラムスイッチをFalseに戻すタイミングは考える必要がありますが…

Dim psw As Boolean

Sub Macro1()
　　psw = True
End Sub

Sub Macro2()
　　If psw Then
　　　　MsgBox "実行可能"
　　Else
　　　　MsgBox "実行不可"
　　End If
End Sub

hana-hana3 · Answer

Sub 承認書作成()
call Macro1 
Dim ws0 As Worksheet, ws1 As Worksheet, r1 As Range
　　：
　　：
ではいけないのですか？

エクセル ＶＢＡ

＃０２です

この回答への補足

＃３です。

この回答への補足

この回答への補足

単純に Macro1 → 承認書作成 の順番で必ずマクロを実行させたいって事じゃないみたいですね。

この回答への補足

>「Macro1を実行しないと承認書作成マクロを実行できない」

この回答への補足

「ご参考まで」ですが、こんな制御方法も考えられます。

この回答への補足

Sub 承認書作成()

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセルＶＢＡ

単純に Macro1 → 承認書作成の順番で必ずマクロを実行させたいって事じゃないみたいですね。