• ベストアンサー

Excel 列の書式を元に戻すマクロ

Excel で、同じ列内に着色パターンのセルがあります。 印刷のとき、その列全体を「パターン」「色なし」にしておき、印刷が終わったらセル選択でまた着色させるのでなく、元の着色に戻すマクロをつくりたいのですが、どうしたらよいでしょうか。 教えて下さい。よろしくお願いします。 (注)「セル選択でまた着色させるのでなく」というのは、セルの選択が面倒なのでそうしたいのです。

質問者が選んだベストアンサー

  • ベストアンサー
  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.1

こんにちは。 >セルの選択が面倒なのでそうしたいのです。 ベージ設定-シート- 白黒印刷 にチェックを入れればよいのではありませんか? 濃い色の場合は、グレーが出るかもしれませんが。

awazo
質問者

お礼

Wendy02さん ありがとうございました。 何でもマクロより、薄い色でこの方法がいちばん簡便でした。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (3)

  • ka_na_de
  • ベストアンサー率56% (162/286)
回答No.4

印刷したいときは、 まず、シート丸ごとコピーを作って、 そのコピーで、列を選択し色無しにして印刷したらどうですか? 印刷後は、そのシートを削除すれば済みます。 もし、マクロでと考えている場合も、 復元とか考えずに、シートをコピーして 使い捨てしたほうが早いような気がしますが、 いかがでしょうか?

awazo
質問者

お礼

ka_na_deさん ありがとうございました。 > 使い捨てしたほうが早い 短時間でできる方法が早いという簡単なことに気付くのが遅かったです。

全文を見る
すると、全ての回答が全文表示されます。
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

エクセルのセルのパターン色の問題ですね。 (1)書式ーセルーパターンー色選択、Interior.ColorIndex  などで設定している場合 (2)書式ー条件付書式ー式が、か値がー書式でセルパターンを設定している の2つのことがあると思いますが、意識しましたか? (1)の場合は最多では、セルの数だけ、 (A)色情報を)個々の変数へ、 (B)配列へ、 (C)一時的使用(テンパラリな)の、セル範囲へ に退避しないとなりません。でないと復元できませんから。 コンピュターは復元するには、前もって必ず退避します。量が多い場合は、ファイルへ退避します。 (C)の方式でCopyして、邪魔にならないコピー先範囲に張り付け コピー元はモノクロにして、印刷。 コピー先から、コピーして元に戻す というのが良いのではないですか。 ファイル’ブック)のコピーを作り、A列の色を除き、印刷して 変更は保存しないで、ファイル保存しないのも考えられる。 ーー 色に関する書式も設定方法に色々ある(RGBとかColorIndex)ので、難しいが、エクセルはCoiorIndex色に絞ってしまうようなので、ただカラーパレットも入れ替えられるようなので、厳密には難しいが、 普通はColorIndexのコードをセルごとに退避すればよいのかと思います。 VBAでやる必要はあります。

awazo
質問者

お礼

imogasiさん ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。
  • koko88okok
  • ベストアンサー率58% (3839/6543)
回答No.2

マクロは分かりませんが、「セルの選択が面倒」であれば、 セルを選択して、「挿入」→「名前」→「定義」で分かりやすい名前を付けておきます。 セルを選択するときは、「Ctrl+G」でジャンプ、「移動先」欄に表示された名前を選択して「OK」で、先に定義したセル範囲が選択されます。 ご参考まで。

awazo
質問者

お礼

koko88okokさん ありがとうございました。 着色セルがときどき変わることを、質問条件から落としていました。すみません。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセル マクロ 列挿入後のカーソル位置

    エクセルで「1列挿入する」だけのマクロを作成した時のことです。 実行させると1列挿入しますが、挿入後のカーソル位置は変わらず、元の列全体が反転表示されてます。ところが、複数シートを選択しマクロ実行すると、列挿入はしますが、カーソルは元の列のひとつ右側の列が反転表示されます。 手作業で1列挿入すると、1シートでも複数シートでも挿入後のカーソルは元の位置です。マクロ作成し複数シートを選択して実行するとカーソル位置が変わるのです。 なぜですか? 特に相対参照でマクロを作る場合、選択するシート数でカーソル位置が変わると困ります。 良い方法はないでしょうか?

  • エクセルで自動で列を反転表示することはできますでしょうか?

    エクセルのシート上で、マウスの動きに合わせて列全体が薄いグレー色などの色に変わるようにできますでしょうか? 列や行ごとに関連する大事なデータがあり隣のセルと間違えて見ないように一列、一行に色が付いてくれるとうれいしのですがいちいちエクセルの端をクリックして行や列全体の選択をするのがめんどうなもので。。。。マウスポインタがある行や列の色が自動で変わってくれると同時に結果的に選択されたような表示になってくれると助かります。 こういう動きをネットなどでも見かけるのですが名前がわからないのと エクセルのVBA等でできるのかどうかを教えて頂きたいと思います。 ご存じのかたいましたら宜しくお願い致します。

  • エクセルのマクロについて教えてください

    エクセルで、その行の中に赤色のセルがある場合は、その行のA列のセルに"○"を入れるというのは、マクロで書く場合はどのように書けばよいでしょうか。 行は1~100まで、列はA~Zまであります。赤色のセルはB列~Z列の所々に点在します。

  • Excel 2007 マクロ セルの色のカウント

    Excel 2007 マクロ セルの色のカウント 表に複数の色がセルについています。 色がついているセルの隣の列に「1」を返したいです。 どのようなマクロになりますでしょうか。 色がついている列は1行でC列になります。 ご回答よろしくお願いします。

  • Excelで列を非表示にするマクロ

    マクロ初心者なのですが、 Excelで印刷前に印刷しなくてよい列を非表示にしたいので、 列を非表示にするマクロを作りたいのですが、 うまくいかないので方法を教えていただきたいです。 表のA~Nにデータが入っていて、 CとGの列を非表示にしたいのですが。 よろしくお願いします。

  • エクセルマクロで

    お世話になります。 エクセルにて、選択した列のセルに年・月・通し番号(201107001) と入力するにはどういうマクロになるでしょうか? また次の行では201107002となります。 よろしくお願いします。

  • マクロ 列ごとの条件付き書式

    マクロで列ごとの条件付き書式を作成したいです 条件としては ・列ごとに上限値が1行目に下限値が2行目に入力されている ・3行目以降に測定値が入力される ・その3行目位以降の測定値のセルの書式を上下限値から外れた値は色を変えたい ・50列ほどデータがある (例) A1 10 A2 5 A3~A100 数字 条件をA3~A100に設定 A1(10)より大きいもの、A2(5)より小さいものはセルの色を黄色 B1 15 B2 7  B3~B100 数字 条件をB3~B100に設定 B1(15)より大きいもの、B2(7)より小さいものはセルの色を黄色 こんな感じで列ごとにデータと規格値が入っているものが50列あります。 どうかよろしくお願い致します。

  • Excelで選択した文字列を結合するマクロ

    Excelで複数選択したセルの文字列を結合するマクロってありますか? CONCATENATEや&でいつも文字列を結合しているのですが、 一度に10セル前後結合するので効率が悪く困っています。 お手数ですがご教授いただけたらと思います。 宜しくお願い致します。

  • エクセルのマクロ

    エクセル2002でマクロを記録しました。 セルD5を選択した状態で、マクロの記録を始めました。(相対参照ボタンをクリックしています) D5のセルの色を黒にして、セルD6を選択して色を白にしました。ここで記録を終了しました。 VisualBasicEditorで見ると以下のような記述がありました。 そこで教えてください。 1)どの部分が相対参照をしているという意味の記述でしょうか? 2)どの部分がD6を選択したという記述でしょうか? 3)「Range("A1").Select」はどういう意味ですか?A1のセルはクリックしていないのですが・・・。 教えてください。 記述は以下です。 With Selection.Interior .ColorIndex = 1 .Pattern = xlSolid End With ActiveCell.Offset(1, 0).Range("A1").Select With Selection.Interior .ColorIndex = 2 .Pattern = xlSolid End With End Sub

  • エクセルで、元の色が残るよう、ポインタのある行と全てに着色する方法

    以前こちらで、エクセルで、ポインタのある行全てに着色するコードを見させていただいて、とても勉強になりました。 自分でも使ってみましたが、もともとセルに色がついていた場合、ポインタを動かしていくと そのセルの元の色が消えてしまいます。 行選択で色がついても、ポインタを動かせば、元のセルの色も残るようにしたいのですが… そのようなことが可能でしょうか?お分かりになる方いらっしゃいましたら、教えてください。 よろしくお願いいたします!

横筋の白抜けトラブルについて
このQ&Aのポイント
  • 製品名【MFC-J738DWN】で起こっている横筋の白抜けトラブルについて相談します。
  • クリーニングを試しても表示されない下部の部分の文字の白抜けが治らない問題についてお知りになりたいです。
  • 使用環境はWindows11で無線LAN接続ですが、関連するソフトやアプリについては特に教えていません。
回答を見る

専門家に質問してみよう