[[20050812104701]] 『作業しているセルをわかりやすくする』(バンババン) >>BOT

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

 

『作業しているセルをわかりやすくする』(バンババン)

 度々すみません。
 タイトルの通り「作業しているセルをわかりやする方法」をさがしておりまして
 下記のような回答があるのを見つけ使わせていただいております。
 ↓

 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

 使い方もあまりわかっていないのに「便利だー!」とのんきに使っておりましたら
 ある問題に衝突しました。
 印刷すると色の変化したセルは印刷されてしまうんですね・・・。
 印刷されないようにするにはどのようにすればよろしいでしょうか?
 以前のみなさんのやりとりを拝見させていただいておりましたが印刷の事では触れて
 いなかったようなので・・・。読み漏れでしたらスミマセン。
 編集枠外にセルを持っていけばよいのですが、現在編集しているデータは画面(セル)を
 多く使っており、端まで持っていくのが面倒でして。
 宜しくお願いします。


 ページ設定−シートタブの白黒印刷にチェックを入れたらどうでしょう?
(純丸)(o^-')b


 回答ありがとうございます。
 このような印刷方法があったのですか。
 なのでやってみました。が・・・すみません。私の表には−(マイナス)数値には
 赤で表記されるようになっておりまして、その赤数字も黒に変化してしまいます。
 セルの色だけを印刷されないように(赤数値は印刷される)するにはどのようにしたら
 良いでしょうか?

 重ねて質問で申し訳ありません。
 上記のVBA(?)をコード表ではまずいのでこのVBAを削除しようと思い、同じくコード
 表を開いて消しました。が、色の付いたセルが消えないまま、かつ色の付いたまま止まってしまい 動きません。
 VBAを削除する寸前に置いていたセルの部分に色が残ってしまっています。
 VBAを消す方法の過去を見ましたがどの方法をやっても消えません。
 焦っているので回答をいただける間にもう一度いろいろやってみます。
 宜しくお願いします。(T△T)

 >同じくコード表を開いて消しました。
 >が、色の付いたセルが消えないまま、かつ色の付いたまま止まってしまい 動きません。
これは、当然です。VBAによって色が付けられたのですから。コードを削除した後
手作業で色をなくすか、上のコードだと
Cells.Interior.ColorIndex = xlNone
の部分で色をなくしていますのでVBAで塗つぶしをなくすかの必要が有ります。
(kenbou)


 そ!そうだったんですか!!!!!
 わかりました!手作業で消します!
 本当に助かりました。ありがとうございますm(__)mm(__)m

 ThisWorkbook が持つ印刷前のイベント
 Workbook_BeforePrint で色を消しても良いかも知れません。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.Interior.ColorIndex = xlNone
End Sub
(ご近所PG)扱い注意

 せっかくなのでリンクぺたぺた。
[[20030910025935]] 『カーソルのある行・列を目立たせたい』(Achilley) 
(ご近所PG)

コメント返信:

[ 一覧(最新更新順) ]


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