[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロでPDF保存』(北国)
マクロ超初心者です
現時点で日付のPDF名保存するマクロがあります。これはi1のセルに日付を入力し保存ボタンでPDFで保存するようになっています。
これがG1またはI1のセルに日付が入った場合に入力された日付の方でPDFを保存するようにしたいです。
最初からこのマクロを作成まではうまくできたのがですが、ここから発展が全く分かりません。
超素人です。よろしくお願いします
これが最初のマクロです。
Sub 保存()
If Range("i1").Value <> "" Then Dim Fn As String Fn = Format(Range("i1"), "yyyymmdd") & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\USER\Desktop\日誌\" & Fn Else End If
End Sub
< 使用 Excel:Excel2013、使用 OS:Windows7 >
どちらも入っている場合はどうするのでしょうか。
関係無いですが、Else は空なら不要ですね。 (Mook) 2014/09/16(火) 12:46
Sub 保存() Dim Fn As String
If Range("g1").Value <> "" Then Fn = Format(Range("g1"), "yyyymmdd") & ".pdf" ElseIf Range("i1").Value <> "" Then Fn = Format(Range("i1"), "yyyymmdd") & ".pdf" Else Exit Sub End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\USER\Desktop\日誌\" & Fn End Sub (???) 2014/09/16(火) 12:53
(北国) 2014/09/16(火) 12:57
http://excelvba.pc-users.net/fol2/2_2.html
http://excelvba.pc-users.net/fol6/6_1.html
http://www.atmarkit.co.jp/ait/articles/1404/17/news033_3.html
(ryopo^2) 2014/09/16(火) 13:01
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.