dポイントプレゼントキャンペーン実施中!

マクロを実行したタイミングで指定セルに日付がを表示できる方法を教えてください。
マクロ
Sub 審査結果()
Application.ScreenUpdating = False
Call output_pdf(ThisWorkbook.Path, "審査", Worksheets("審査").Range("Y1").Text)
Application.ScreenUpdating = True
ActiveWorkbook.Save
With CreateObject("Forms.TextBox.1")
.MultiLine = True
.Text = Worksheets("審査").Cells(15, "D").Value
.SelStart = 0
.SelLength = .TextLength
.Copy
End With
Call 電子管理システム
Application.Quit
With ThisWorkbook
.Saved = True
.Close False
End With
End Sub
Sub output_pdf(PA As String, sh_name As String, f_Name As String)
On Error GoTo SaveError
Worksheets(sh_name).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=PA & "\" & f_Name & ".pdf"
Exit Sub
SaveError:
MsgBox ("保存先パス、対象シート名、保存ファイル名が適切ではありません")
Application.ScreenUpdating = True
Application.Quit
wb.Close False
End Sub
があります、マクロを実行すると
指定セル値がファイル名にてPDFファイル形式にて保存されます。
このマクロを実行したタイミングで
指定シート「青紙表」の指定セル「O27」にマクロを実行した日付を表示できる方法を教えてください。
「O27」に表示された日付はそのままの日付で翌日になっても実行した日付としたいです。
宜しくお願い致します。

A 回答 (1件)

マクロの中で単に日付をセットしたいセルに日付を代入すればよいだけです。



Cells(1, 1) = Date

日付の書式を指定したい場合は上記の右辺でFormat()を使えばよいでしょう。

参考まで。
    • good
    • 0
この回答へのお礼

回答
早速試してみます。

お礼日時:2023/01/20 15:41

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!