【VBA】一番初めの処理に戻って、同じ作業を繰り返すことはできないのでしょうか？

Question

VBA初心者です。
普段から、コードはネットで調べて組み合わせて作っています。

今回、組み合わせたコードで処理を一番初めに戻って繰り返しさせたいです。
調べてみたのですが、VBAでは一番初めに戻るような処理はないのでしょうか？

今現在作ったコードでは
①データ読み取りをしたいExcelを開く、別ブックを開いて該当のセルに入力。セル自体に数式が入っているので各シートに反映されます。
②inputboxで各シートの該当セルに表示させたい文字を入力。
③3、4枚目のシートを選択。
④名前をつけて保存する。

という内容です。この1-４までの作成した処理を1番はじめまで戻って同じ処理を繰り返したいのですが、参考になる記事等が見つかりません。

なにかヒントをいただけないでしょうか。
よろしくお願いします。

    Dim OpenFileName, fileName, Path, SetFile As String
    Dim wbMoto, wbSaki As Workbook

    Set wbMoto = ActiveWorkbook  'マスターデータ取り込み元をセット

    Application.DisplayAlerts = False

    RC = MsgBox("マスターデータ取込みますか？", vbYesNo + vbQuestion, "確認")

    If RC = vbYes Then

            OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
            'ダイアログボックスを表示して、マスターデータファイルを指定します。

            If OpenFileName <> "False" Then
                 SetFile = OpenFileName
            Else
                MsgBox "キャンセルされました"
                Exit Sub  'マスターデータの取り込みをキャンセル
            End If


            Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0
            'ダイアログボックスで指定したマスターデータファイルを開きます。

            Set wbSaki = Workbooks.Open(Path & SetFile)

                'ワークブック間のシート「項目」をコピーします。
                wbSaki.Worksheets("内訳書").Range("D:O").Copy
                wbMoto.Worksheets("見積入力").Range("U7").PasteSpecial xlPasteValues


                Application.CutCopyMode = False  'コピー切り取りを解除
                wbSaki.Close False  'マスターデータ取り込み先のファイルを閉じる

        Else

        MsgBox "処理を中断します"

    End If

    Application.DisplayAlerts = True

     Dim ans As String
    ans = InputBox("見積書・請求書No", "", "")

    If ans <> "" Then
       wbMoto.Worksheets("見積(").Range("I3").Value = ans
       Worksheets("見積").Range("I3").Value = "あいう-" & ans

    End If

        Application.DisplayAlerts = True


    ans = InputBox("見積書発行日", "", "")

    If ans <> "" Then
       wbMoto.Worksheets("見積").Range("F11").Value = ans
    End If

    ans = InputBox("完工日", "", "")

    If ans <> "" Then
       wbMoto.Worksheets("請求").Range("F11").Value = ans
    End If

        ans = InputBox("請求書発行日", "", "")

    If ans <> "" Then
       wbMoto.Worksheets("請求").Range("F12").Value = ans
    End If

    Worksheets(Array(2, 3)).Select               '3 番目と 4 番目のシートを選択
    
    Dim xFile
    xFile = Application.GetSaveAsFilename( _
    FileFilter:="Excelファイル, *.xlsm")
    If TypeName(xFile) <> "Boolean" Then
    ActiveWorkbook.SaveAs FileName:=xFile
    End If
    End Sub
'
'

コード
コード

ちなみに、ファイルを順番に開き、上書き保存して閉じるといったコードは見つけました。

Dim FolderName As String　’文字列を入れる変数として「FolderName」を使う
Dim index As Integer　’数字を入れる変数として「index」を使う
Dim FileName As String　’文字列を入れる変数として「FileName」を使う
FolderName = Application.GetOpenFilename’ダイアログを用いて選択したファイルのパスをFolderNameとする①
If FolderName = “False” Then’FolderNameが選択されていなければ作業を終了する
Exit Sub
End If
’今のフォルダ名には選択したファイル名含まれているので、ファイル名の部分を切り取る作業。
index = InStrRev(FolderName, “\”)’フォルダ名部分の文字数をカウントする
FolderName = Left(FolderName, index)’ カウントした文字数までの部分を切り取ってフォルダ名とする
FileName = Dir(FolderName & “*xls*”)’ フォルダの中に含まれるファイルを取り出す
Do While FileName <> “”’ ファイルがなくなるまで繰り返す
Workbooks.Open FolderName & FileName’ファイルを開く
Cells(1,1) = 1’ 変更を行う
Workbooks(Workbooks.Count).Save
Workbooks(Workbooks.Count).Close
FileName = Dir() ’
Loop

End Sub
コード

追って、ご教授いただいたコードを追加したのですが、Nextに対応するForがありません。とエラーが出ます。

Sub マスターデータ取込03()  '選択したファイルを取り込み、別のファイルに貼り付ける。

For Each f In fso.GetFolder(folderpath).Files
If fso.GetExtensionName Like "xls?" Then
    Set wb = Workbooks.Open(f)
    
    Dim RC As Integer
    Dim OpenFileName, FileName, Path, SetFile As String
    Dim wbMoto, wbSaki As Workbook

    Set wbMoto = ActiveWorkbook  'マスターデータ取り込み元をセット

    Application.DisplayAlerts = False
    
    RC = MsgBox("マスターデータ取込みますか？", vbYesNo + vbQuestion, "確認")
    
    If RC = vbYes Then
            
            OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
            'ダイアログボックスを表示して、マスターデータファイルを指定します。
            
            If OpenFileName <> "False" Then
                 SetFile = OpenFileName
            Else
                MsgBox "キャンセルされました"
                Exit Sub  'マスターデータの取り込みをキャンセル
            End If
    
            
            Workbooks.Open FileName:=SetFile, ReadOnly:=True, UpdateLinks:=0
            'ダイアログボックスで指定したマスターデータファイルを開きます。
            
            Set wbSaki = Workbooks.Open(Path & SetFile)
            
                'ワークブック間のシート「項目」をコピーします。
                wbSaki.Worksheets("内訳書").Range("D:O").Copy
                wbMoto.Worksheets("見積入力").Range("U7").PasteSpecial xlPasteValues
                 
                
                Application.CutCopyMode = False  'コピー切り取りを解除
                wbSaki.Close False  'マスターデータ取り込み先のファイルを閉じる
  
        Else
        
        MsgBox "処理を中断します"
    
    End If
  
    Application.DisplayAlerts = True
    
     Dim ans As String
    ans = InputBox("見積書・請求書No", "", "")

    If ans <> "" Then
       wbMoto.Worksheets("見積").Range("I3").Value = ans
       Worksheets("見積").Range("I3").Value = "ＶＨＭ-" & ans

    End If
    
        Application.DisplayAlerts = True
    
     
    ans = InputBox("見積書発行日", "", "")

    If ans <> "" Then
       wbMoto.Worksheets("見積").Range("F11").Value = ans
    End If
    
    ans = InputBox("完工日", "", "")

    If ans <> "" Then
       wbMoto.Worksheets("請求").Range("F11").Value = ans
    End If

        ans = InputBox("請求書発行日", "", "")

    If ans <> "" Then
       wbMoto.Worksheets("請求").Range("F12").Value = ans
    End If
    
    Worksheets(Array(2, 3)).Select               ' 1 番目と 2 番目のシートを選択
    
    Dim xFile
    xFile = Application.GetSaveAsFilename( _
    FileFilter:="Excelファイル, *.xlsm")
    If TypeName(xFile) <> "Boolean" Then
    ActiveWorkbook.SaveAs FileName:=xFile
    End If
    
Next
     
    End Sub

コード

Comments

[jinoji]

inputboxでの入力とかも含めて一から繰り返すということですか？

[sh444]

そうです、Excelの取り込みから初めに戻るということです。
セル内での繰り返しやループは見つけましたが、vba内での繰り返しは無いのでしょうか^^;

[jinoji]

やりたいことは、たとえばあるフォルダ内に複数のファイルがあって、
それを順番に開いて①～④の処理を行っていく、という感じなのでしょうか。

[sh444]

返信遅れてすみません。
わかりにくくてすみません、したいことはそうです！

[jinoji]

For Each f in fso.GetFolder(folderpath).Files
if fso.GetExtensionName Like "xls?" Then
　①Set wb=Workbooks.Open(f)
　②
　③
　④
End If
Next
みたいなイメージです。

[sh444]

ご教授いただきました、内容を質問本文にコード追加いたしましt。
End Ifも入れているのですが、なぜかNextに対応するForがありません。とコンパイルエラーが出ました。

[jinoji]

ヒントになればと思って部分的に示しただけで、単純に追加するだけで動くようには書いていません。
言葉足らずだった点は私の配慮が足りませんでしたが、
かといってすべて丁寧に説明しようとするには時間が足りません。
一旦私のコメントは聞かなかったことにしてください。

Answer 1

サンプルコードを書きましたので、空のExcelを起ち上げてください
そのExcelシートのコードウィンドウにサンプルコードを貼り付けしてください
貼り付けしたら、ファイル名は何処でもよいので　「マクロ有効ｘlsm」で一度保存してください
今、保存したExcel（Book）を起動（開く）して下さい
次に、ディスクトップやドキュメントにあるExcelファイルを複数開いてください
Excelファイルを複数開いたら　タスクバーから名前を付けて保存した　ファイルを
画面に表示します
次にサンプルコードを貼り付けたコード（コードウィンドー）を画面に表示してください
ここからショートカットキーを使ってモニター画面を操作します
現在、モニター画面はコードウィンドーが表示されているとおもいます
［Windows]キー　+　［→]キーでコードウィンドー右側半分表示されるはず
「矢印」キーで名前を付けて保存したファイルを選んで［Enter]キー
これで　画面は左がExcel、右側がコードウィンドー画面になっているとおもいます
右側のコードウィンドー画面を一度クリックしてから
ファンクションキー［F8]キーを押してください
［F8]キーを連打押してください　黄色いカーソルが表れて
下の方へ移動しているとおもいます。これでプログラム実行しています
マウスで変数名を左クリックしてみてください、現在取得している　値が表示
されます　これでプログラムをチェックしながら　組んでいきます
一連の動きを理解したうえでご自身の組んだプログラムを挿入してみてください
不要とおもわれる構文は削除してください
エクセルマクロの勉強法（応用力を身に付ける方法）
http://www.start-macro.com/55/w/s027.html

Sub サンプル()
 Dim i As Long, ii As Long, str As String, a As Long, b As Long
   'マクロ記述されているBookのパスを取得
     str = ThisWorkbook.Path
     MsgBox "名前付けたファイルパスは" _
     & Chr(10) & str & "です。"
      '現在タスクバーにあるBookの数は
      MsgBox "タスクバーにあるブック数は" _
      & Chr(10) & Workbooks.Count & "枚  です。"
     For i = 1 To Workbooks.Count
          '現在タスクバーにあるBook名を取得する
           MsgBox "タスクバーにあるBook名は" & i & "個目は" & _
           Chr(10) & Workbooks(i).Name & "です"
           
          '現在開いているBookのシート枚数は
          a = Workbooks(i).Sheets.Count
          Windows(Workbooks(i).Name).Activate
          MsgBox "現在開いているBookのシート枚数は" & a & "  枚です"
          b = MsgBox("ついでに、シート名も取得しますか？", vbYesNo)
          If b = 6 Then
              For ii = 1 To a     'aはBookのシート枚数
              'シート名は左側から右側の順番
                  MsgBox Workbooks(i).Sheets(ii).Name & "です。"
                  Sheets(ii).Select
                  Range("A1").Select
              Next ii
            
            End If
          'タスクバーにあるBook名を取得したパス
          MsgBox "Bookのある場所は　" & Workbooks(i).Path & "です"
           'フルパスとして表示する
            MsgBox "フルパスは　" & Workbooks(i).Path & "\" & Workbooks(i).Name
        Next i
End Sub

Answer 2

普通に考えればWhileとかでしょうが、処理の最後で自分自身を呼び出すというのでもできそうです。

If MsgBox("まだやるかい？", vbOKCancel) = vbOK Then Call 処理名

Answer 3

回数が決まってるならFor
不定で抜ける条件（例えば「終了しますか？」→yes）を設けるならwhile

でどうでしょう。
ちゃんと制御できるのならGotoも使えなくはないですが、別案があるときには選択しないほうが良いです。

Comments

[sh444]

回数は決まっていないので、フォルダ内のExcel個数を読み取りして、その個数の回数繰り返すということも出来るのでしょうか？
データの読み取りができるのは分かったのですが、繰り返しがいまいち理解出来てません。

[m.ts10806]

できます。調べてください。
指定ディレクトリ内のファイル名が取得できれば良いですよね。（キーワードそのままなので調べがつかないということはないと思います）