【Excel VBA】印刷時だけセルの文字を非表示にして印刷が終わったら再度表示させる方法!(「NumberFormatLocal」プロパティ)

目次

印刷する際だけセル上の文字を「非表示」にして、印刷が終わったら再度「表示」させるマクロを作りました。
使うものはシンプルで「NumberFormatLocal」を使います。これで、ユーザ定義 の「;;;」を指定すると、文字情報は残るけれど、画面上には表示されない状態にできるので、切り替えて使います。

内容は以下の通りです。

Sub Print()

    ' セルの非表示
    ActiveSheet.Range("E2").NumberFormatLocal = ";;;"
    
    ' 印刷プレビュー
    ActiveSheet.PrintOut Preview:=True
    
     ' 印刷範囲の設定解除
    ActiveSheet.PageSetup.PrintArea = False
    
    ' セルの再表示
    ActiveSheet.Range("E2").NumberFormatLocal = "G/標準"

End Sub

印刷プレビューの前に、「E2」セルを非表示にして、
プレビューが終わったら「E2」セルを再度表示させます。

よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

目次