VBA初心者です。 ネットで調べて勉強してるのですが、 やりたいことがややこしくて混乱してきました。 どなたかご教授いただけますでしょうか? 【やりたいこと】 2種類(案内と日程表)で1セット×20パターン(Sheet41まで)の案内文を作成。 Sheet1の部数表に記載される数値を印刷する部数として、 パターンごとに違う部数になります。 【自分でかいてみたもの】 Sub 案内文印刷1() Dim Ws As Worksheet For Each Ws In Worksheets Ws.Activate ActiveSheet.PageSetup.PrintArea = Range("B2:H18").Address With Worksheets(1) '部数表 Sheets(2).Select busuu = .Range("H6").Value 'H6の数値は2 ActiveWindow.SelectedSheets.PrintOut From:=1, to:=busuu, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets(3).Select busuu = .Range("H7").Value 'H7の数値は3 ActiveWindow.SelectedSheets.PrintOut From:=1, to:=busuu, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets(4).Select busuu = .Range("H8").Value 'H8は4 ActiveWindow.SelectedSheets.PrintOut From:=1, to:=busuu, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets(5).Select busuu = .Range("H9").Value 'H9は5 ActiveWindow.SelectedSheets.PrintOut From:=1, to:=busuu, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False 【~省略~】 End With Next Ws End Sub これだとなぜかSheet2→3→4→5→Sheet2→3→4→5~Sheet2→3(ループ)で 1部ずつ×28枚印刷されてしまったため、 Sheet1の部数を変えてみましたが同じく28枚印刷されました。 Sheet2とSheet3は順番にいくのにSheet4へ移らない理由と なぜ28枚になってしまうのか知りたいです。 どうぞよろしくお願いします。
Visual Basic