こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

印刷シートを分けたい

excel2010を使用しています、今勉強中の初心者です、
dataシートに履歴を残すようにしています、dataシート列 L列に番号1が表示された場合のみSHEET4を印刷し、そうで無い場合SHEET5を刷したいですが、ご教授ください。
Sub rireki()
Dim val(1 To 12)
Dim lastRow As Long
val(1) = Range("AH5").Value
val(2) = Range("AJ3").Value
val(3) = Range("AJ5").Value
val(4) = Range("AK5").Value
val(5) = Range("G2").Value
val(6) = Range("AI5").Value
val(7) = Range("B2").Value
val(8) = Range("B5").Value
val(9) = Range("E5").Value
val(10) = Range("C3").Value
val(11) = Range("V2").Value
val(12) = Range("V3").Value
Application.ScreenUpdating = False
With Sheets("data")
lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
End With
Sheets("data").Range("A" & lastRow).Offset(1).Resize(, 12) = val
Sheets("Sheet4").PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

投稿日時 - 2016-07-09 11:11:06

QNo.9199185

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

 if文は使っていますか?
L列に番号1が表示された場合というのがよくわからないのですが...

if 条件 then
'Sheet4を印刷
else
'Sheet5を印刷
end if

上のような処理にすれば良いかと思います。
条件には「L列に番号1が表示された」ことを表す条件を入れてください

投稿日時 - 2016-07-30 05:40:52

あなたにオススメの質問