[[20061222100544]] 『行列に色を付ける』(苦学生) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『行列に色を付ける』(苦学生)

 [[20030910025935]]を見て

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Then
        Exit Sub
     End If
    Cells.Interior.ColorIndex = xlNone
    Columns(Target.Column).Interior.ColorIndex = 34
    Rows(Target.Row).Interior.ColorIndex = 35
    Selection.Interior.ColorIndex = 36
 End Sub

 を使わせてもらっています。大変便利です。

 ただ,欲が出てきまして。印刷する時その色は不要なので入力範囲の外に
 置いて印刷していますが,その部分まで印刷するので紙が余分に3枚どいります。
 印刷指定で「現在のページ」にすればよいのでしょうが,それを理解していない
 人たちも使います.
 入力ページに縦横の色の付いたまま,印刷してもその色は
 印刷されないようにはならないものでしょうか。ページの背景に色は付いていませ
 ンが,日曜祭日の日付は赤色を使っています。他の文字は黒色だけなんですが・・・
 (XP)2003です。

 こんにちは。
印刷はエクセルの上にある印刷マークで印刷しているのですか?
もしそうなら
マクロで印刷を設定してボタン登録してみたらいいのではないでしょうか?
あまり詳しくないので このくらいしか 分からないです。
すみません。(れいまま)

 ThisWorkbookモジュールに以下のコードを貼り付けてはどうでしょうか。
 (ROUGE)
'----
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("入力ページ").Cells.Interior.ColorIndex = xlNone
End Sub

 (れいまま)さん(ROUGE)さんありがとうございました。
 マクロでの印刷設定は難しそうなので今回 
 (ROUGE)さんの方法でやったらうまくいきました。
 (苦学生)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.