- ベストアンサー
エクセルの24行毎にカラーの背景色を出したい。
nishi6の回答
- nishi6
- ベストアンサー率67% (869/1280)
これだけの行数があると条件付き書式を使うのは考えてしまいますね。 条件付き書式の判定についてはRow()なので、計算負荷は余りないかもしれませんが、色を付ける列数が増えれば、このためにファイル容量がどんどん増えていく可能性があります。（全体の23/24についてはある意味、無意味？な算式になるわけですね） １Bookに何枚のシートがあるかで、算式の量も増えてしまいますね。 マニュアルで色を付けたシートを作成しテンプレートとして使用する方法と比較することも大事でしょう。 下は色を付けるマクロです。最初の５行（***の箇所）で動作を設定します。色を付けたいシートを出しておいて実行します。 ツール→マクロ→Visual Basic Editor で VBE画面に移り、標準モジュールを挿入し 標準モジュールに貼り付けます。 Sub Paint24() Const startRow = 2 '*** 行ステップをカウントする最初の行 Const lastRow = 9000 '*** 最終行 Const startPaintCol = "A" '*** 色を付ける最初の列名 Const lastPaintCol = "K" '*** 色を付ける最後の列名 Const myColorIndex = 35 '*** 色の指定 34、35などを試してみてください Const stepRow = 24 '行ステップ数 Dim rw As Long '行カウンタ Application.ScreenUpdating = False For rw = startRow + stepRow - 1 To lastRow Step stepRow Range(startPaintCol & rw & ":" & lastPaintCol & rw).Interior.ColorIndex = myColorIndex Next Application.ScreenUpdating = True End Sub
関連するQ&A
- エクセルで特定の背景色を持つセル内の数値を検査したいのですが
エクセルでブック内の全シートに対して、B列からE列に数値が設定されているブックがあり、 A列にデータのナンバーが振られており、最後のデータの一つ下にはデータの終わりを告げる、EOFという文字列が入っています。 その数値群の中で、特定の背景色を持つセルには必ず0が入っているはずなのですが、手入力のミスでいくつかのセルに他の数値が入っていました。 手作業ですとミスが発生してしまうので、エクセルの機能かマクロで以下の条件で検索をかけ、NGデータがあるかどうかの検査をしたいと考えていますが、可能でしょうか。 条件１：セルの背景色=灰色(エクセルの背景色選択画面で一番薄い灰色です) 条件２：セルの数値=0以外の数値や文字列 データの構造例 A列 / B列 / C列 / D列 / E列 / 1行目 1 /10(背景白)/0(背景灰)/0(背景灰)/10(背景青)/ 2行目 2 /10(背景白)/0(背景灰)/2(背景灰)/10(背景青)/ 3行目 3 /10(背景灰)/0(背景赤)/0(背景赤)/10(背景青)/ 中略 145行目 145 /55(背景白)/0(背景白)/0(背景灰)/0(背景青)/ EOF 上記の場合だとセル2Dに誤った数値が入っていることを告知するようなものを考えています。 シート総数は140シートで、エラーが見つかった時点で検索を終わっても問題ありません。（最後にたどり着くまで修正、チェックを繰り返しますので）
- ベストアンサー
- オフィス系ソフト
- 表の1行おきに背景色をつけたい
ビルダーＶ９を使っています。 ５列３００行ほどの表があるのですが これを１行おきの列毎に背景色をつけたいのです。 ＥｘｃｅｌのようにＣｔｒｌキーを押しながら 複数行指定できないので、困っています。 作業をラクにする方法はありませんか？ 何卒宜しくお願い致します。
- ベストアンサー
- ホームページ作成ソフト
- アクセスにおける行の抽出
お世話になります。 アクセスにて行を抽出したいのですが、どのようにしたらよいのか悩んでます。 教えていただけますでしょうか？ 以下のようなデータがあります。 場所 色 ----------------- 東京 赤 東京 青 秋田 白 秋田 緑 秋田 青 大阪 青 大阪 白 福岡 青 色の優先順位 1.赤 ２．青 ３．白 4.緑 で、 東京の場合、「東京 赤」 秋田の場合、「秋田 青」 大阪の場合、「大阪 青」 福岡の場合、「福岡 青」(福岡は1行なので、ダイレクトに行を抽出する。） という具合に行を抽出したいのですが、 この場合、クエリにて条件を設定すると思いますが、どのようにしたらよいでしょうか？ たぶんiif関数を使うのかなと思いますが・・・・・・ またこの元データはエクセルで、2つのエクセルデータを統合して新たな表を作るイメージです。 もちろんエクセルで作成できてもいいのですが、データを操るにはアクセスと思っておりますので、なんとかアクセスできないか思案しております。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル表で、複数行おきにセルの背景色が変わるように設定したいのですが
エクセル表で、複数行おきにセルの背景色が変わるように設定したいのですが、どのように設定すればよいでしょうか? 対象の複数行を網かけし、他の複数行と見分けやすくなるようにすることはできますが、上書きすると網かけが消えてしまうので困っています。 よろしくお願いいたします。
- ベストアンサー
- 財務・会計・経理
- エクセルの背景デザインについて
エクセルで表を作成した際に、行の背景色を自動で交互につけたいのですがどうしたらよいのでしょうか？ WindowsでExcel2003を使っています。
- 締切済み
- その他(業務ソフトウェア)
- エクセルで行頭にある数字で行を揃えたい
エクセルの使い方で質問です。 エクセルにのA列にID（01～10）が10行入っており、B列に01黒、04白、10赤、C列と4行、さらにC列には02大、05小、06中、08中、09小、と5行入っている状態です。 この表にはは空白がなく上に詰まっている状態です。 つまり1行目には 01 01黒 02大 2行目には 02 04白 05小 と入っている状態です。これらの表を先頭の数値に合わせて整理したいのですが、どのような方法がいいでしょうか？ つまり1行目には文字列の先頭が「01」のものが、2行目には文字列の先頭が02のものがならび、該当する文字列がない場合は空白にしておきたいです。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルで背景の色を点滅させる方法について
エクセル2013で作成した表の数値をある条件の元でセルの背景の色を点滅させる方法を教えてください。 条件 下記条件の元でカーソルの背景の色を点滅させる。 データ範囲は Ｃ3～Ｇ14 0～500までは青の点滅 501～750までは緑の点滅 751～1000までは黄色の点滅 1000以上は赤の点滅 合計の欄は点滅対象外とする。 ※色付けは条件付き書式設定による色付けとフォントの塗りつぶしと2通りあります。 方法が違うなら別々に教えてください。
- 締切済み
- Excel（エクセル）
- マウスが触ったら表中の1行の背景色変えたい
一覧表を作成しておりますが、その表のある列を触ったら、その列にあるすべてのセル（1行を選択したかのようなイメージ）の背景色を変えたいのですが、どのようにしたらよいでしょうか。 できればＣＳＳで実現したいのですが、無理ならJavaScriptでも結構です。 宜しくお願いいたします。
- 締切済み
- JavaScript
- エクセル2003で行を列にしたい
エクセル2003で 行にならんだ数値を他のシートに列にならべてコピーしたい。 一行ごと、或いは表データを回転させたいのですが 方法はないでしょうか。
- ベストアンサー
- その他MS Office製品
お礼
nishi6様へ ご回答ありがとうございます。 私は、マクロの世界はまだ触れたことがありません。 見慣れない単語がたくさんありまして、頭がついて いけるかな？と思えますが、時間を見つけて 必ず上記の方法で挑戦します。 お時間をとらせて、申し訳ありませんでした。