
エラーも出なければ、何もでないです。。
無駄に長くて申し訳ありませんが、助けてください。
''''請求書にデータを転記
Sub CreateSomePDF1()
Dim LastRowNum As Long
Dim i As Long, j As Long
Dim fileName As String
Dim OrderDate As Long
Dim Name1 As String, Name2 As String
Dim Price1 As Long, Prices2 As Long, Prices3 As Long
Dim 請求月 As Long, Total As Long, 施設料 As String, タオル代 As String
Dim クリーニング代 As String
Dim ApplicationDate As Long, Output As Integer
'フォルダが存在するかチェック
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(ThisWorkbook.Path & "\請求書") Then
'何もしない
Else
MsgBox "請求書フォルダがありません。このエクセルがあるフォルダ内に作成してください"
Exit Sub
End If
Set FSO = Nothing
'列番号を設定
OrderDate = 1
Name1 = 2
Name2 = 3
請求月 = 5
Total = 6
施設料 = 7
Price1 = 8
タオル代 = 9
Prices2 = 10
クリーニング代 = 11
Prices3 = 12
ApplicationDate = 47
Output = 48
With Sheets("請求内容一括管理シート")
'最終行を取得
LastRowNum = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To LastRowNum
'請求書のデータを初期化
Sheets("請求書").Range("R2") = ""
Sheets("請求書").Range("B5") = ""
Sheets("請求書").Range("F17") = ""
Sheets("請求書").Range("L17") = ""
For j = 0 To 10
Sheets("請求書").Cells(28 + j, 7) = ""
Sheets("請求書").Cells(28 + j, 13) = ""
Sheets("請求書").Cells(29 + j, 7) = ""
Sheets("請求書").Cells(29 + j, 13) = ""
Sheets("請求書").Cells(30 + j, 7) = ""
Sheets("請求書").Cells(30 + j, 13) = ""
Next j
Sheets("請求書").Range("F6") = ""
'出力にレ点が入っていれば出力
If Len(.Cells(i, 49)) > 0 Then
j = 0
'日付名前とかをコピペ
Sheets("請求書").Range("R2") = .Cells(i, OrderDate)
Sheets("請求書").Range("B5") = .Cells(i, Name1) & " 様"
Sheets("請求書").Range("F17") = .Cells(i, Name1) & " 様"
Sheets("請求書").Range("L17") = .Cells(i, 請求月)
Sheets("請求書").Range("D35") = .Cells(i, ApplicationDate)
'商品等をコピペ
If Len(.Cells(i, 施設料)) > 0 Then
Sheets("請求書").Cells(28, 7) = .Cells(i, 施設料)
Sheets("請求書").Cells(28, 14) = .Cells(i, Price1)
j = j + 1
End If
If Len(.Cells(i, タオル代)) > 0 Then
Sheets("請求書").Cells(28 + j, 2) = .Cells(i, タオル代)
Sheets("請求書").Cells(28 + j, 4) = .Cells(i, Prices2)
j = j + 1
End If
If Len(.Cells(i, クリーニング代)) > 0 Then
Sheets("請求書").Cells(28 + j, 2) = .Cells(i, クリーニング代)
Sheets("請求書").Cells(28 + j, 4) = .Cells(i, Prices3)
j = j + 1
End If
Sheets("請求書").Range("F6") = .Cells(i, Total)
'同じフォルダ内のPDFというフォルダに保存 送付状
fileName = ThisWorkbook.Path & "\請求書\" & .Cells(i, Name1) & .Cells(i, Name2) & " 様" & ".pdf"
Sheets("請求書").ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
End If
Next i
End With
End Sub

No.2ベストアンサー
- 回答日時:
詳しくは見ていませんが、以下の変数をLong型に変えてください。
変更前 Dim Name1 As String, Name2 As String
変更後 Dim Name1 As Long, Name2 As Long
変更前 施設料 As String, タオル代 As String
変更後 施設料 As Long, タオル代 As Long
変更前 Dim クリーニング代 As String
変更後 Dim クリーニング代 As Long
それで、とりあえず動くかと思います。
No.4
- 回答日時:
>1行目
>Sub CreateSomePDF1()
>で 黄色になり動きません。
その場合、その行にブレイクポイントが設定されている可能性があります。
添付図のように、Sub CreateSomePDF1()の行の左端に、茶色の●が表示されていませんでしょうか。それが、ブレイクポイントです。
ブレイクポイントがあるとマクロは必ず、その行で止まってしまいます。
茶色の●にマウスをあて、クリックするとブレイクポイントが解除されます。

Fin+F8 で ステップイン出来ました。
Longに変えてみたらうごきました。請求書が空なのは、セルNoを
私が間違えてました。
やっと、出来たと思ったら動かずで、あきらめようかと思っていたところでした。感謝です。有難うございました。
No.3
- 回答日時:
>やってみましたが、変わらずでした。
ステップインすると、タイトルが黄色になり、動きません。マクロが止まり、その行が黄色で表示されると思いますが、
どの行でとまってますか。
こちらで、確認した際は、(データが空の状態でしたが)、請求書が作成されました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBAでファイル名を指定して保存...
-
ディレクトリ名変更してコピー...
-
フォルダ内のファイルの作成日...
-
エクセル マクロで指定フォル...
-
フォルダ選択ダイアログ:ネッ...
-
パス名に2バイト文字(マルチバ...
-
VB6で7-ZIPのAPIを使用した圧縮...
-
【マクロ】ファイル名の日付に...
-
ファイル名と同名のフォルダを...
-
会社のネットワーク上のファイ...
-
【ExcelVBA】一覧表の記載に従...
-
Excel VBA:ダイアログを使って...
-
(UWSC)ファイルを作るときに、...
-
フレーム有りのhtmlファイルをw...
-
Windows Python初心者です。 im...
-
AIX findコマンド
-
Hitachi Embedded Workshop (HE...
-
VBA 最新のフォルダ取得
-
C言語でのフォルダ作成
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
会社のネットワーク上のファイ...
-
ファイル名と同名のフォルダを...
-
デスクトップの画像をhtmlに表...
-
VBA 最新のフォルダ取得
-
VBA フォルダ名に特定の文字を...
-
Access VBA で フォルダ権限...
-
ディレクトリ名変更してコピー...
-
excelマクロ 冒頭3文字が一致す...
-
Excelで指定したフォルダに保存...
-
パス名に2バイト文字(マルチバ...
-
ExcelのVBAでフォルダ指定がで...
-
excel VBA Dirにて検索したフォ...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダの複数選択ができない
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
C ファイル出力で、フォルダが...
-
フォルダを開いて、閉じるのプ...
-
ThisWorkbookがあるフォルダ更...
おすすめ情報
早速の返信ありがとうございます。
やってみましたが、変わらずでした。ステップインすると、タイトルが黄色になり、動きません。
請求内容一括管理シートは下記の通りです。
未熟者ですみません。お願いします。
返信ありがとうございます。
1行目
Sub CreateSomePDF1()
で 黄色になり動きません。
私の操作が悪いのでしょうか?