[[20140916122854]] 『マクロでPDF保存』(北国) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロで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

mookさん
日付は必ずどちらかに入力されている状態です。
Else必要なかったんですね。ありがとうございます

(北国) 2014/09/16(火) 12:57


???さん
ありがとうございます。ばっちりできました。
すごく勉強になります。
(北国) 2014/09/16(火) 12:58

老婆心ながら。。。

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.