Excelマクロのヘルプ
私は印刷された各シートに1日前回進む日付列でシートを印刷しようとしています.私はこのためにマクロが必要なことを知っていますが、私はどのように進行するかわからない.あらゆる助けが大いに感謝されます.
返信リスト(回答:6)
もっと詳しくは解決策を提供するのに役立ちます.
同じシートの複数のコピーを印刷していますか?
各シートのシングルコピーをワークブックに印刷していますか?
日付を持つセルのアドレスとは何ですか?
GORD
応答1# ->にスキップ2 #TDriesb連続した日付(2017年4月24日、2017年4月25日、2017年4月26日など)で印刷するには、スプレッドシートを14部印刷する必要があります.各スプレッドシートの同じ列に複数のセルがあり、この連続した日付が必要になります.必要になります
各印刷実行の開始日を指定できるようにします.
応答2# ->にスキップ4 #GordDibワークシートを印刷するたびに、セルの範囲に日付が必要であると想定します.
初めてワークシートが印刷されるとき、今日の日付はそれらのセルにあります.
次のコピーでは、日付が1日増えます.
Sub PrintCopies_ActiveSheet_1()
Dim CopiesCount As Long
Dim CopieNumber As Long
CopiesCount=Application.InputBox( "何部必要ですか"、Type:= 1)
For CopieNumber=0 To CopiesCount
With ActiveSheet
'この例では、増分された日付を範囲
.Range( "A1、A5、B3、F4").Value=Format(Date + CopieNumber)
'で出力します.シートを印刷します
.PrintPreview'PrintOut
End With
Next CopieNumber
End Subゴード
応答3# ->にスキップ5 #GordDib 1時々忘れてしまいます.
InputBox fot startdate..
Sub PrintCopies_ActiveSheet_2()
Dim CopiesCount As Long
Dim CopieNumber As Long
Dim TheString As String、TheDate As Date
CopiesCount=Applicationを使用した修正version.InputBox( "いくつのコピーが必要ですか"、Type:= 1)
TheString=Application.InputBox( "Enter A Start Date")
If IsDate(TheString)Then
TheDate=DateValue(TheString)
Else
MsgBox "Invalid date"
End If
For CopieNumber=0 To CopiesCount
With ActiveSheet
'この例では、増分された日付を範囲内に出力します
.Range( "A1、A5、B3、F4").Value=Format(TheDate + CopieNumber)
'シートを印刷
.PrintPreview' PrintOut
End With
Next CopieNumber
End Subゴード