このコードに追記事項の仕方を教えて下さい。
以下のコード内容に出てくる。セルH3が空白の場合、エラーが出るため、空白の場合、メッセージ「未入力です」が出る様に改良したいです。
宜しくお願いします。
Sub PDF()
'
' pdf Macro
ActiveSheet.PrintOut
Const Folder As String = "C:¥Users¥Home¥Desktop"
Dim fname As String
Dim fpath As String
Dim i As Long
Const ext = ".pdf"
i = 0
fname = Range("H3").Text
fpath = Folder & "¥" & fname & ext
i = 0
While Dir(fpath) <> ""
i = i + 1
fpath = Folder & "¥" & fname & Format(i, "(#)") & ext
Wend
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fpath, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
No.1
- 回答日時:
エラーを検出するための方法が知りたいのでしょうか?
それともエラーであることを表示する方法を知りたいのでしょうか?
……このように具体的に何を知りたいのかを考えてみましょう。
そうすることで、自身で調べることができるようになります。
試しにやってみてください。
30分もあれば自力で解決できると思います。
・・・
ここは自力で解決するためのアドバイスを貰う場所です。
「代わりにマクロを作って」と作業依頼する場所ではないのです。
そんなわけで、調べたうえで思い通りにならないなら、
「どのような記述をして、それでどうなったのか」
を書くようにしてください。
何を間違えているか、何を勘違いしているのか、何が足りないのか、
などのアドバイスをしてくれますよ。
「代わりにマクロを作れ!俺様の成果として使ってやるwww」
なんて言われてもねえ。
チョット調べたくらいでは絶対に解決できないところまで他人を頼るように仕向けてポイっと捨ててやろうか……なんて人もいるので注意しましょう。
ありがとうございます。仰る通り申し訳ないですが、色々、調べてみたのですが、自力で無理と悟りました。このコードも他人様のご教授のお陰であります。感謝です。
内容は、セルH3に日付が入力された場合、印刷後、日付を名前にして、PDFにて保存するしくみでしたが、空白だとエラーが出て保存前で止まってしまうのです。空白のメッセージが出たら、マクロをやり直して解決と言う方法が知りたかったです。
ご教授頂ける方、宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
chatGPTは以下のように答えました
よくウソをつくやつなので検証してね
Sub PDF()
'
' pdf Macro
Dim H3Value As String
H3Value = Range("H3").Text
If H3Value = "" Then
MsgBox "未入力です"
Exit Sub
End If
ActiveSheet.PrintOut
Const Folder As String = "C:¥Users¥Home¥Desktop"
Dim fname As String
Dim fpath As String
Dim i As Long
Const ext = ".pdf"
i = 0
fname = H3Value
fpath = Folder & "¥" & fname & ext
i = 0
While Dir(fpath) <> ""
i = i + 1
fpath = Folder & "¥" & fname & Format(i, "(#)") & ext
Wend
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fpath, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
No.4
- 回答日時:
そのプログラムがどんな動きをしているのかすら理解していないのに、これ以上他人に
「代わりに作れ」的な依頼をするのは、自分の首を絞めるだけになるから
やり方を変えなさい。
……とアドバイスしたつもりなんだけど、伝わりませんでしたか。
とりあえず、今のそのコードにコメントアウトした説明を加えるようにしてみましょう。
そうすることで、
どこで
どんな動作
をしているのかを正しく把握できます。
そうやって全体の流れを理解したうえで、
どこに
どんな動作
を加えればよいのかを考えてください。
そのうえで、
/***投稿ガイドラインから抜粋***
■宿題や課題などの「作業依頼(丸投げ)」
学校の課題等に関して、ご自身なりに解答を考えたプロセスの説明も無く、単に解答のみをそのまま依頼・募集するような内容(いわゆる「丸投げ」)の投稿は、閲覧される方や回答者に不快に思われる恐れがあります。
また、社会的マナーや回答者に対する敬意や配慮、尊重の気持ちにも欠けていると思われる場合もありますので、お控えください。
まずはご自身で課題に取り組み、その結果どうしても一部の箇所について理解が出来ない、どう進めばいいか分からない、といったようなご自身なりの解答プロセスの説明もした上でアドバイスを求めるようにしましょう。
***ここまで***/
を理解して質問投稿するようにしましょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Excel(エクセル) 【VBA】複数ブックから特定のシートを抽出して一つのブックに集約するマクロについて 3 2022/09/04 15:05
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 13:29
- Visual Basic(VBA) Excel VBA でデータ転記について 1 2023/03/07 19:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでエラー(#N/Aなど)値を...
-
SUM関数の範囲に#N/Aが...
-
Eエクセルの計算方法で空欄を0...
-
自動改札のエラーって…
-
ExcelでVBAを使用した際に、『...
-
APEXをやっていたらこんなエラ...
-
もしセルが"#N/A"なら~をする...
-
ACCESS VBA でのエラー解決の根...
-
チケット何回もエラーは高額請求?
-
VLOOKUPで求めた数値をさらにVL...
-
送信エラー時、レポートメール...
-
手帳型スマホケースにSuicaを入...
-
EXCELマクロで☓400とでます
-
事務用コピー機がエラー表示で...
-
エクセル マクロ エラーのあ...
-
楽天ペイについて
-
ブルースクリーンエラー BSOD「...
-
TCPヘッダのチェックサムに...
-
Mac版Excelのvlookupで#N/Aエラ...
-
Chatgptから送られてきたリンク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでエラー(#N/Aなど)値を...
-
SUM関数の範囲に#N/Aが...
-
自動改札のエラーって…
-
VBAで「致命的なエラー」が出ま...
-
もしセルが"#N/A"なら~をする...
-
ExcelでVBAを使用した際に、『...
-
Eエクセルの計算方法で空欄を0...
-
VLOOKUP関数についての質問です...
-
送信エラー時、レポートメール...
-
VLOOKUPで求めた数値をさらにVL...
-
ACCESS VBA でのエラー解決の根...
-
システムエラーです:&H80004005...
-
EXCELマクロで☓400とでます
-
エクセルのエラー文について
-
改札エラーについて
-
相手のエラーによる出塁でも出...
-
APEXをやっていたらこんなエラ...
-
Suicaのモバイル決済で、 バス...
-
■□■読み方■□■ #N/A, #VALUE!, ...
-
Excel関数について
おすすめ情報