Sub Print_Out_1()
'セルに値を設定しながら連続印刷する。印刷対象:アクティブシート
Dim Message As Long
Message = MsgBox("印刷してもいいですか??", vbOKCancel, "メディカルG")
If Message = vbOK Then
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="0630"
ActiveSheet.PageSetup.PrintArea = "B11:O30"
'定数
Const conStart As Long = 1 '開始
Const conStep As Long = 1 '間隔
Const conCell As String = "K7" 'セル番地
'変数
Dim i As Long
Dim conEnd As Integer '終了
With Application
.ScreenUpdating = False
conEnd = Val(.ActiveSheet.Range(conCell).Value)
If conEnd >= 1 Then
For i = conStart To conEnd Step conStep
Range(conCell).Value = i '←追加コード
ActiveSheet.PrintOut
Next
End If
.ScreenUpdating = True
End With
Application.ScreenUpdating = True
MsgBox "印刷が完了しました。"
ActiveSheet.PageSetup.PrintArea = False
ActiveSheet.Protect Password:="0630"
End If
End Sub
のようなコードが書かれたExcelがあります。
通常にXを押してExcelを閉じると何故か次に立ち上げて使用した時、数式が消えてしまいます。
消えないようにしたいのですがわかりません。教えて頂けないでしょうか・・・
No.1ベストアンサー
- 回答日時:
こんばんは
>数式が消えてしまいます。
何処の数式でしょうか?K7セルならば
Range(conCell).Value = i '←追加コード
K7セルに書き込んでいますね 目的は?
もし、印刷の内容に必要な事ならば(印刷範囲に入っていない気がしますが)違うセルに変更するか・・・
VBAコードを下記のように変えてみてください
式を一旦 変数に入れ 処理の最後に戻して(書き込み)います
Sub Print_Out_1()
'セルに値を設定しながら連続印刷する。印刷対象:アクティブシート
Dim Message As Long
Message = MsgBox("印刷してもいいですか??", vbOKCancel, "メディカルG")
If Message = vbOK Then
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="0630"
ActiveSheet.PageSetup.PrintArea = "B11:O30"
'定数
Const conStart As Long = 1 '開始
Const conStep As Long = 1 '間隔
Const conCell As String = "K7" 'セル番地
'変数
Dim i As Long
Dim conEnd As Integer '終了
Dim tmp_Formula As String
'変数に入れる
tmp_Formula = ActiveSheet.Range(conCell).Formula
With Application
.ScreenUpdating = False
conEnd = Val(.ActiveSheet.Range(conCell).Value)
If conEnd >= 1 Then
For i = conStart To conEnd Step conStep
Range(conCell).Value = i '←追加コード
ActiveSheet.PrintOut
Next
End If
.ScreenUpdating = True
End With
Application.ScreenUpdating = True
MsgBox "印刷が完了しました。"
'戻す
ActiveSheet.Range(conCell).Formula = tmp_Formula
ActiveSheet.PageSetup.PrintArea = False
ActiveSheet.Protect Password:="0630"
End If
End Sub
ありがとうございます。
できました。助かりました・・・;;
書き込み?
まだまだ初心者でどこが悪いのかさっぱりわからなかったので・・・;;
本当にたすかりました・・m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷要求順番と印刷出力順番が...
-
イベントプロシージャ 印刷が...
-
VBscriptでPDFファイルを直接印...
-
webページの印刷制限について
-
PDFファイルを印刷し終了するには
-
vbaでPDFファイルが印刷されない
-
プリンタの印刷ジョブを削除し...
-
VB.NET+ActiveReports で印刷...
-
VB6でのネットワークプリン...
-
ActiveReportsを使って[印刷ダ...
-
VBAで不特定枚数印刷をしたいで...
-
VBからのプリンタ制御について
-
オートメーションエラー(214741...
-
Eclipseを使ってソースを印刷し...
-
VB2005から複合機を使い自動FAX...
-
Javaのソースコードをカラーで...
-
.NETプログラムからの印刷
-
VB2008で0ページの印刷ジョブを...
-
VB6上から印刷ダイアログを表示...
-
ファイルのパス指定での印刷方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
プリンターを指定して印刷するには
-
vbaでPDFファイルが印刷されない
-
VBAで不特定枚数印刷をしたいで...
-
VB.NET+ActiveReports で印刷...
-
ACCESSで設定した帳票の用紙サ...
-
PHPでPDFファイルの直接印刷
-
PDFファイルを印刷し終了するには
-
印刷ダイアログを表示させたくない
-
VBからプリンタに出力する時に...
-
EXCELファイルの複数ダウンロー...
-
webページの印刷制限について
-
VBscriptでPDFファイルを直接印...
-
A4の2枚をA3の1枚にする編集方法?
-
VBSでExcelファイル印刷時のプ...
-
リンク先のページを印刷したい
-
2回以上PDFをコピーや印刷がで...
-
VBAにて指定したセルをプルダウ...
-
ActiveReportsを使って[印刷ダ...
おすすめ情報