![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VBA初心者です。以下のように他サイトを参考にしてプログラムを作成しました。
Sub 作業日報一括印刷()
'
' Macro3 Macro
'
If MsgBox("すべての作業日報が印刷されます。本当に印刷しますか?", vbYesNo, "確認") = vbNo Then
Exit Sub
End If
Range("G1").Select
ActiveCell.FormulaR1C1 = "1"
If Range("s2") = 0 Then MsgBox "印刷対象がありません。"
If Range("s2") = 0 Then Exit Sub
Exit Sub
If Range("s2") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
Range("G1").Select
ActiveCell.FormulaR1C1 = "2"
If Range("s2") = 0 Then Exit Sub
If Range("s2") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
・
・~省略~
・
Range("G1").Select
ActiveCell.FormulaR1C1 = "100"
If Range("s2") = 0 Then Exit Sub
If Range("s2") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
End Sub
上記コードを簡素化できますでしょうか?また途中で停止出来るようにしたいです。
よろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
提示のコードで正しく作動していますかね??
一応、想像で編集してみました。
Sub 作業日報一括印刷()
For i = 1 To 100
Range("G1").Value = i & ""
’ i & ""はあえて数値も文字列にしていますが、本当は i だけで数値が正解?
If Range("S2") .Value <> 0 Then
SelectedSheets.PrintPreview IgnorePrintAreas:=False
Next
End Sub
G1セルに1から100まで順に入れて
結果を印刷プレビューします。
>途中で停止出来るようにしたいです
なので
PrintOut を PrintPreview
にしてあります。
それと、コードを張り付けるときに
” が " になったりしていますが、大丈夫でしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- JavaScript 画像の表示位置 3 2022/12/23 08:25
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
このQ&Aを見た人はこんなQ&Aも見ています
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
ATOKをお使いの方、今後もVer U...
-
Ren'Py 8.0.3でプロジェクトの...
-
GarageBandはコレが出来ますか?
-
Macのミュージックデータの格納...
-
OBS studioのメモリ使用量が異...
-
OMRON PLC CP2Eのプログラム
-
フォルダ内にある全ファイルの...
-
最近はPCのソフト(アプリ)も...
-
mp3 ファイルをCDに焼く無料ソ...
-
Windows11のエクスプローラーで...
-
jtrim 1.53cが正常な動きをし...
-
ゆうちょ認証アプリが使えません
-
discordのビデオ通話でカメラ映...
-
スプレッドシートの作業範囲
-
クリーナーソフトの使用
-
CDやCD-Rは、破壊すると有害物...
-
写真の印刷レイアウトについて
-
音声合成AIと動画編集ができる...
-
iTunesでCD作成しています。 書...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル マクロ 印刷 停止
-
PowerPointの表内のカンマ
-
【VBA】PDF出力に任意のファイ...
-
EXCELでタイトル行と一番下の行...
-
LINEのこの空白ってどんな意味...
-
Wordの差し込み印刷で空白行が...
-
エクセルで「-3E+06」と...
-
エクセルでオートサムを使った...
-
Excelのテーブル上のセルの保護...
-
EXCEL 連動したドロップダウン...
-
エクセルの計算式でコンマを付...
-
エクセルでハイパーリンクのコピー
-
exselの質問です
-
エクセルでセル内改行の1行目...
-
エクセルでleft関数の結果が表...
-
16桁以上の「0」に変換されてし...
-
名簿の漢字名を関数で半角カナ...
-
エクセルで、50銭以下切捨て...
-
エクセル 印刷範囲外を非表示...
-
エクセルでエンターを押すと隣...
おすすめ情報