セルの値が数式エラー値の時にはVBAで自動的に空欄にして印刷する方法

当たり前ですがエクセルを使う上で、セルに数式などが入っていて計算させていますが、#DIV/0!や#N/Aなどのエラー値がそのまま印刷されてしまい見苦しい思いをしたことありませんか？

印刷する時だけ、このエラー値を自動的に空白にしたりダッシュ（－）に置き換えてしまいましょう。

印刷ページ設定内の標準機能

意外と知られていないのですが、エクセルの印刷ページ設定を開くと「シート」があり、この中に「セルのエラー」という項目があります。

ここのプルダウンから空白やダッシュ（－）に変更することができます。

意外と知られていないのですが、簡単にできますよね。

ここでは、ユーザーフォームに配置したコマンドボタンにVBAコードを書き、表示中のシートのページ設定（ActiveSheet）で記載しています。

シートを指定する場合はActiveSheetをWorkSheets(“シート名”)に変えるだけです。

セルのエラー印刷表示設定

Private Sub CommandButton1_Click()
With ActiveSheet
.PageSetup.PrintErrors = xlPrintErrorsBlank
.PrintOut
End With
End Sub

VBA解説

これで、エラー値の時のセルがあったら自動的に空白セルにして印刷してくれ、空白の代わりにダッシュ（－）や元に戻すVBAコード、さらになぜかエラー表示（#N/A）に表示する4種類が用意されています。