| |
▼マナ さん：
>▼hamil さん：
>
>>マクロにてエラーが出てしまいました。
>
>どんなマクロですか。。
マナさん
ありがとうございます！以下となります。
Option Explicit
Sub 一括PDF出力()
' 変数宣言
Dim ws帳票 As Worksheet: Set ws帳票 = Worksheets("帳票")
Dim ws台帳 As Worksheet: Set ws台帳 = Worksheets("台帳")
Dim 台帳最終行 As Long: 台帳最終行 = ws台帳.Range("A1").CurrentRegion.Rows.Count
Dim i As Long
' 一括出力対象データ数の確認
Dim 出力データ数 As Long: 出力データ数 = 0
For i = 2 To 台帳最終行
If ws台帳.Cells(i, 2).Value = "Y" Then
出力データ数 = 出力データ数 + 1
End If
Next
' ユーザーに処理続行の確認
If 出力データ数 > 0 Then
Dim rc
rc = MsgBox(出力データ数 & "件のデータをPDF出力します。よろしいですか？", vbYesNo)
If rc = vbNo Then
MsgBox ("処理を中断しました。")
Exit Sub
End If
Else
' 対象データなしの場合は処理終了
MsgBox ("出力対象のデータがありません。")
Exit Sub
End If
' PDF出力処理
Dim 管理番号 As Long
For i = 2 To 台帳最終行
If ws台帳.Cells(i, 2).Value = "Y" Then
管理番号 = ws台帳.Cells(i, 1).Value
ws帳票.Cells(2, 1).Value = 管理番号
ws帳票.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\PDF\" & 管理番号 & ".pdf"
End If
Next
' 完了メッセージの表示
MsgBox (ThisWorkbook.Path & "\PDF" & " にPDFファイルを出力しました。")
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
