A B C D E
6 * 名前 名前 名前 名前
7 * 社名 社名 社名 社名
8 * 名前 名前 名前 名前
9 * 社名 社名 社名 社名
・
・
・
上記のようなExcelの表があり、一人ずつ名前を網掛けにして印刷という作業を繰り返すため下記のようなコードをVBAで作成しました。
(一番左の数字は行数を表しています。A列は空白ではなく、データが入っています。)
Sub test()
Dim j As Long, i As Long, x As Long
x = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row - 5
For j = 1 To 4
For i = 1 To x Step 2
With Cells(5 + i, 1 + j).Interior
.ColorIndex = 0
.Pattern = xlGray25
.PatternColorIndex = xlAutomatic
End With
Application.ActivePrinter = "EPSON *** on LPT1:" '***には機種名が入っています。
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="EPSON *** on LPT1:", Collate:=True
With Cells(5 + i, 1 + j).Interior
.ColorIndex = 0
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next
Next
End Sub
「もしセルが空白ならばそのまま何もせず次のセルへ」
というコードを追加したいのですが、うまくいきません。
For i = 1 To x Step 2
If Cells(5 + i, 1 + j)="" Then
Exit For
Else
With Cells(5 + i, 1 + j).Interior
・
・
・
End With
End If
とすると空白セルのところで終了してしまいました。
Exit ForをNext i 等とするとエラーになってしまいます。
何処に、何と入れればよいのかご教授下さい。
Excel 97 使用です。不明な点があれば補足しますのでよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
空白行になるまでループし、印刷するマクロを教えて下さい
その他(コンピューター・テクノロジー)
-
-
4
Wordの差し込み印刷で空白行が飛ばせない
Word(ワード)
-
5
エクセルの空白セルをのぞいて印刷するには?
Excel(エクセル)
-
6
VBA 複数セルが空白なら印刷させない
Visual Basic(VBA)
-
7
エクセルで140人をマクロをつかって連続印刷?
その他(データベース)
-
8
ちょっと特殊な連続印刷のマクロを教えてください
Excel(エクセル)
-
9
エクセル VBA 条件つきの印刷
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
(株)と株式会社の違いって?
-
会社名の前はスペースを空けま...
-
ビジネス文書 ひとつの文書に複...
-
請求書の宛名を(株)と略すのは...
-
「御社名」の読み方を教えてく...
-
来賓の方が座る机に貼る札?
-
株式会社(有限会社)と社名の...
-
国立研究開発法人の略し方
-
◎◎株式会社●●●営業所▽所長に手...
-
社名変更は、お祝いを贈ったほ...
-
A/Sって何の略ですか?
-
総称について
-
S.Aって?
-
口語で「ご社名をお伺い」する...
-
来客時のネームプレート表記方...
-
現金書留を会社に送ったらちゃ...
-
電話対応で、相手が名前しか名...
-
Excelで社名と名前を分けたい
-
エクセルVBAでOutlookメールの...
-
"○○株式会社殿"という表現は正...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
会社名の前はスペースを空けま...
-
(株)と株式会社の違いって?
-
請求書の宛名を(株)と略すのは...
-
京都の碍子メーカーの松風工業...
-
ビジネス文書 ひとつの文書に複...
-
「御社名」の読み方を教えてく...
-
株式会社(有限会社)と社名の...
-
来賓の方が座る机に貼る札?
-
◎◎株式会社●●●営業所▽所長に手...
-
口語で「ご社名をお伺い」する...
-
国立研究開発法人の略し方
-
三菱電機とメルコの関係
-
社名変更は、お祝いを贈ったほ...
-
電話対応で、相手が名前しか名...
-
総称について
-
A/Sって何の略ですか?
-
S.Aって?
-
株式会社Ringは詐欺だと思いま...
-
親戚が兼松江商という会社に勤...
-
来客時のネームプレート表記方...
おすすめ情報