
現在、印刷ボタンを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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
空白セルをとばして転記
Visual Basic(VBA)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
未記入がある場合はマクロを実行させない方法
その他(Microsoft Office)
-
5
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
6
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
7
VBAで空白セルにのみ数値を代入する方法
Excel(エクセル)
-
8
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
9
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
12
VBAで空白のセルを飛ばして差込印刷をするコード
Excel(エクセル)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
空白行を無視してコピーするマクロについて
Excel(エクセル)
-
15
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
-
16
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
17
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
18
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
19
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
20
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パソコンの印刷の事で質問です...
-
【EXCEL】【VBA】空欄は飛ばし...
-
特定のファイルのみ印刷がされ...
-
メールの画像が印刷できません。
-
プリンターの設定「印刷部数」...
-
バックグラウンドとは?何度再...
-
PDFファイルがカラー印刷できない
-
PDFファイルを印刷すると黒くなる
-
右クリックができないページの...
-
PVC(ポリ塩化ビニール)の有害...
-
エクセルを使って名簿を連続印...
-
一部ごとの連番印刷の方法を教...
-
手紙で字が汚い時の添え書きは?
-
Accessのレポートフッターの印...
-
会社に提出する地図(自宅から...
-
印刷の行間が飛んで印刷される
-
印刷する時に出るファイル名を...
-
テプラー:KING JIM SR720 連...
-
PDFの印刷が途中で終わってしま...
-
大学のパソコンに印刷履歴は残...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のファイルのみ印刷がされ...
-
【EXCEL】【VBA】空欄は飛ばし...
-
PDFファイルがカラー印刷できない
-
PDFファイルを印刷すると黒くなる
-
印刷したらWordの「改行マーク...
-
Twitterの投稿を印刷コピーしたい
-
メールの画像が印刷できません。
-
エクセルを使って名簿を連続印...
-
パソコンの印刷の事で質問です...
-
バックグラウンドとは?何度再...
-
印刷をキャンセル
-
手紙で字が汚い時の添え書きは?
-
印刷の行間が飛んで印刷される
-
エクセルで複数ページを1枚に...
-
エクセルでコメント印刷すると...
-
PVC(ポリ塩化ビニール)の有害...
-
会社に提出する地図(自宅から...
-
Webぺージの印刷が途中まで...
-
モバイルSuicaから利用履歴を印...
-
Excelでナンバリング印刷をしたい
おすすめ情報