Excel（エクセル）活用コミュの入力漏れ防止の色分け

シートを40枚ほど使っているデータ内に、
【後日、入力するセル】
【計算式などにより自動で入力されるセル】
【何もかわらない、変更してほしくないセル】
を色分けしたいのですが、印刷時に色をつけたくありません。

他社から頂いたエクセルデータにも、そんな感じの設定がしてあるのを見て、自分もやりたいのですが、これはマクロ設定なのでしょうか。

色々なところで質問しているのですが、質問の仕方も下手で、なかなか知りたいやり方が見つかりません。
→毎回、塗りつぶしを解除して、また戻すとか、、手間が多すぎます。

マクロも、よくわかっていません。よろしくお願いします。

コメント(26)

最初
全て
最新の40件

[1] mixiユーザー 04月07日 11:27

印刷の設定を「簡易印刷」にすれば、セルに付けた色は印刷されません。

[2] mixiユーザー 04月07日 11:28

実際、そのBookを見ていないので分かりませんが
マクロで塗りつぶしをなしにして、再設定しているとか
ページ設定で白黒印刷にしているとかですかね

[5] mixiユーザー 04月07日 13:08

>4
白黒印刷も試しました？

[6] mixiユーザー 04月07日 13:09

トピ主です。

皆様、ご回答ありがとうございます。
罫線が消えてしまうのは困ります。
他に方法はないでしょうか。

＞マリ男さん

時間がありましたら、そのマクロのやり方を教えていただけないでしょうか。

[7] mixiユーザー 04月07日 13:10

＞マリ男さん

すみません。コメント４削除してしまいました。
白黒印刷だと、薄い色でもグレーになってしまいます。

[8] mixiユーザー 04月07日 13:11

>6
塗りつぶしをなしにする、塗りつぶしをするという動作を
マクロの記録で記録すれば、コードは出ますので
それを必要に応じて改変すれば出来るはずです

[9] mixiユーザー 04月07日 13:31

［白黒印刷］というのは、プリンタドライバでの設定ではなく、Excelの［ページ設定］ダイアログの［シート］タブでの設定ですが、それでもグレーで印刷されてしまいますか？

「マクロもよくわかっていない」ということなら、別途、どこかのセルに色を付けるなら「1」、付けないなら「0」と入力しておくなどのルールにしておいて、「条件付き書式」を使って、セルに色を付けるようにしておくという方法もあると思います。そうしておけば、そのセルの値を変えるだけで、色を付けるかどうか切り替えられますよね。

[10] mixiユーザー 04月07日 13:31

マクロを使ったことがないので、今、色々試しているところですが、なかなかできません。
これは、毎回【マクロの実行】のためのショートカットを押すことになるのでしょうか。

できれば、普通の印刷で初期設定のみで済ませたいのですが。
→他の人も入力するので、印刷の仕方がかわるのは厳しいです。

[11] mixiユーザー 04月07日 13:31

>7
白黒印刷を実際に試しましたか？
白黒印刷設定は基本的に背景色なしで
印刷するようになっているはずなんですが

[12] mixiユーザー 04月07日 13:32

>11

はい。グレーででてきました。

[13] mixiユーザー 04月07日 13:36

>11
やっと意味がわかりました。
印刷プロパティーの中の白黒印刷の事だと思っていました。
白黒印刷でできました。
ありがとうございます。

皆様、ありがとうございました。

[14] mixiユーザー 04月07日 13:37

>10
Sheet上にボタンを設けて、そのボタンに
背景色をなしにする→印刷する→背景色を戻す
というようなマクロを登録すれば
そのボタンをクリックするだけで
背景色なしの状態で印刷をし、元の状態に戻すことが可能です

[15] mixiユーザー 04月07日 13:48

http://office.microsoft.com/en-us/excel/HA011366271033.aspx
このVBAマクロを応用してください

わからなければ、残念ですが手動で頑張ってください

[16] mixiユーザー 04月07日 14:04

すみません。
マクロ、全くわかりません。

実行してできる時もありますが、印刷後の色を戻す時、全く違うところに色を塗られてしまいます。

実行できない時は、
【実行時エラー'1004':アプリケーション定義またはオブジェクト定義エラーです】
と出ます。

[18] mixiユーザー 04月07日 14:06

>16
どのようなコードを記述されているのでしょうか？
コードを見れば、どこが間違っているか分かるかもしれません

[19] mixiユーザー 04月07日 14:13

＞１８

マクロの記録→背景なしにする→印刷する→背景色を塗りつぶす→マクロの終了

→マクロの表示→実行→エラー

です。
コードとは、どこを見ればわかりますか。

[20] mixiユーザー 04月07日 14:17

>19
Visual Basic Editor

[21] mixiユーザー 04月07日 14:26

>20

マクロの表示→編集から見れました。
選択セルの位置で変わるような気がしますが。
よろしくお願いします。

Sub Macro13()
'
' Macro13 Macro
'

'
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End Sub

[22] mixiユーザー 04月07日 14:34

>21
現在のコードでは、最初からSelection
つまり現在選択されているセルが対象となっているため
マクロを実行する前に選択されていたセルが対象となります

まず、背景色をなしにしたり、戻したりするセルを
選択する前に、マクロの記録を開始して
その後、セルを選択して、背景色をなくし、印刷、背景色を戻す
という順序で記録すれば、記録を開始した後、選択されたセルが
対象となります
そうすると、最初にRange(～).Selectと
セルを選択するコードが入ると思います

[23] mixiユーザー 04月07日 15:07

できました！
初マクロ、わかりやすく丁寧なご説明、ありがとうございました。

[24] mixiユーザー 04月07日 15:14

出来たようでよかったです

ちなみに、Visual Basic Editor(VBE)は
[マクロの表示]-[編集]からでも開けますが
ショートカットキー、[Alt]+[F11]を押してもを開けます
また、コードを見る限り、バージョンは2007をお使いでしょうか？
でしたら、[開発]-[コード]グループ-[Visual Basic]でも開けるはずです

興味があるのであれば、書籍もいろいろありますし
ネット検索してもいろいろなサイトがありますので
見てみると良いと思いますよ

[25] mixiユーザー 04月08日 09:49

>マリ男さん

2007です。色々やり方があるんですね。
まさか、今回、マクロを使えるようになるとは思いませんでした。
2007の本も買ったのですが、なかなか調べる場所がわからなくて。。。

ネットで調べても2007の説明が少なくて困っていました。
色々勉強してみます。

[26] mixiユーザー 04月08日 12:44

蛇足ながら、「マクロはちょっと苦手」という場合、９の方法も非常に応用範囲の広い方法ですよ。

例えばセルA1に「1」か「0」のどちらか一方を入力することにして、「1」は色付けする、「0」はしない、とルールを決めたとします。

そして色づけしたいセル範囲を選択して入力規則を設定します。
条件設定で「数式が」を選び、
=$A$1
とボックスに入力して、続けてつけたい書式を適宜設定します。

するとA1に「1」の入力がある場合、条件付書式は、「1」の値を見て条件を満たしていると判断して、設定されている書式を対象セルに設定します。

ログインすると、残り3件のコメントが見れるよ