Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40771 / 76732

←次へ　｜　前へ→


	【41052】セルの値が空白のときは印刷しない

よん - 06/7/28(金) 13:18 -


	引用なし

	パスワード

はじめまして。

初心者です。教えてください。
お願いします。

現在、繰り返し印刷するマクロが設定してあります。（以下）

Sub 発行()
Worksheets("Ｂ").Activate
For 伝票 = 1 To Application.Count(Worksheets("Ａ").Range("A1:A10"))
Range("B2") = 伝票
印刷
Next 伝票
End Sub

Sub 印刷()
　　Range("A1:G3").Select
　　ActiveSheet.PageSetup.PrintArea = Selection.Address
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

シートＡのデータに空白がある場合、
入力されているデータだけを繰り返し印刷したいのですが、
空白分も印刷されてしまいます。
いろいろ調べて、挑戦してみましたができませんでした。。（以下）
どなたか教えてください。
お願いいたします。

Sub 発行()
Worksheets("Ｂ").Activate
For 伝票 = 1 To 10
Worksheets("Ｂ").Cells(伝票, 1) = Range("B2")
If Not IsNull(Range("B2")) Then
印刷
End If
Next 伝票
End Sub

0 hits

▼

【41052】セルの値が空白のときは印刷しない よん 06/7/28(金) 13:18

≪