|
>また、A1に入力される数値をヘッダー“RightHeader”に挿入したいです。
これは、マクロ記録をしてもらいたかったです。
Dim PYr As String, PMt As String, kyo As Date, PNo As String
Application.ScreenUpdating = False
With ThisWorkbook
With .Sheets(1)
kyo = Now()
PYr = Format(kyo, "yy")
PMt = Format(kyo, "mm")
With .Range("A1")
If .Value <> "" Then
PNo = Format(Right(.Value, 3) + 1, "000")
Else
PNo = Format(1, "000")
End If
.NumberFormatLocal = "@" '何となく文字列に変えました。
.Value = PYr & PMt & PNo
End With
.PageSetup.RightHeader = PYr & PMt & PNo
.Copy
End With
DoEvents
.Close (True)
End With
Application.ScreenUpdating = True
|
|