
現在、印刷ボタンをEXCEL上に作成して以下のコードが入っています
Private Sub CommandButton1_Click()
Dim LastRow, R
LastRow = Worksheets("データ").Cells(Rows.Count, 1).End(xlUp).Row '---最終行を取得
For R = 2 To LastRow '---数字の転記
ActiveSheet.Cells(5, 23) = Worksheets("データ").Cells(R, 1) '---印刷
ActiveSheet.PrintOut
Next R
MsgBox "印刷しました"
End Sub
動作
1.データSheetのA列2行目以下に入力されている数字を転記
2.ActiveSheetを印刷
3.データSheetのA列の次の数字を転記
4.ActiveSheetを印刷
5.最終セルまで繰り返し
今のままでもデータセルのリストをうまく操作すれば使えるのですが
現状だとデータSheetA列先頭のセルやA列の先頭が歯抜けに数字が入力されていた場合に
空欄を転記してしまい不要な印刷を行ってしまいます。
「A列のセルが空欄の場合は処理をしない」という処理にしたく、
IF文を使うのだろうと思うところまではいけるのですが
単純にコードの使い方が悪いのでしょうがエラーで処理が進まなくなってしまいました
データSheetA列の数字を転記するときに何も入力されていないセルの場合は処理をスキップする方法がありましたら、ご教授お願いいたします。
また、最後の印刷処理をした場合に印刷した数をメッセージに空欄で飛ばした場合の数は含めずに
”◯件印刷しました”と出すことは可能でしょうか。
こちらもよい方法がありましたらお手数ですが合わせてご教授お願いいたします。
よろしくおねがいします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
>ータSheetA列の数字を転記するときに何も入力されていないセルの場合は
>処理をスキップする方法がありましたら
値を転記する前に、単純に値が空白かどうかを判断すればよいだけでは?
具体的には
IF Worksheets("データ").Cells(R, 1)<>"" Then '空欄で無ければ実行
’転記と印刷の処理
End If
>”◯件印刷しました”と出すことは可能でしょうか。
あらかじめ件数を数える変数を用意しておいて(例えばn)、印刷するごとにカウントを+1してゆけば、変素nの値が「○件」の◯に当たるので、これを利用して表示すれば良いです。
上記の例で言えば、「転記と印刷の処理」のところに、 n = n + 1 という形でカウントをしてゆく処理を加えておけば、「1回印刷するとnが1加算される」ことになり、印刷回数を数えることができます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
空白セルをとばして転記
Visual Basic(VBA)
-
-
4
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
5
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
8
VBA 列が空白なら別のマクロへ移動したい
Visual Basic(VBA)
-
9
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
10
マクロで空白セルを詰めて別シートに転記
Visual Basic(VBA)
-
11
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
12
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
13
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
14
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
15
Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range
Excel(エクセル)
-
16
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
17
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
18
Excelマクロで空白セルを詰めて別シートに転記するにはどうすればよいでしょうか?
Excel(エクセル)
-
19
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
20
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷(プリント)
-
会社で新聞とかをコピーして配...
-
Twitterの投稿を印刷コピーしたい
-
PDFの印刷が途中で終わってしま...
-
特定のファイルのみ印刷がされ...
-
スクリーンショットの印刷がは...
-
booking com.で予約された方 ...
-
WordでA4、4ページ分をA3、1枚...
-
OutLookメールの一部分だけを印...
-
メールの画像が印刷できません。
-
Webぺージの印刷が途中まで...
-
印刷スプーラーとは何なんでし...
-
ワードなどのB6を原寸でB5...
-
右クリックができないページの...
-
【EXCEL】【VBA】空欄は飛ばし...
-
Wordで複数枚印刷しようと...
-
印刷の行間が飛んで印刷される
-
PDF印刷 一枚だけカラーにする方法
-
Webページの印刷時、必要な部分...
-
印刷した履歴書
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のファイルのみ印刷がされ...
-
Twitterの投稿を印刷コピーしたい
-
会社で新聞とかをコピーして配...
-
【EXCEL】【VBA】空欄は飛ばし...
-
メールの画像が印刷できません。
-
OutLookメールの一部分だけを印...
-
スクリーンショットの印刷がは...
-
WordでA4、4ページ分をA3、1枚...
-
PDFの印刷が途中で終わってしま...
-
PDF印刷 一枚だけカラーにする方法
-
手紙で字が汚い時の添え書きは?
-
ワードなどのB6を原寸でB5...
-
右クリックができないページの...
-
Webぺージの印刷が途中まで...
-
印刷の行間が飛んで印刷される
-
Wordで複数枚印刷しようと...
-
PDFファイルがカラー印刷できない
-
PDFファイルを印刷すると黒くなる
-
印刷をキャンセル
-
エクセルを使って名簿を連続印...
おすすめ情報