• ベストアンサー

エクセルで入力した数字と同数のセルを着色したい

1~4の数字をエクセルの列に入力すると、自動的にその横のセルが数字分塗られるようにしたいのです。 具体的には、J1に1と入れると、K1ひとマスが青くなり、J2に4と入れると、K2,L2,M2,N2の4マスが青くなると言うように、数字を入れるとどの項目がどのレベルかと言うことが、表のように一目でわかるようにしたいのです。 マクロは全く素人ですので、わかるように教えて頂けると助かります。 皆様、宜しくお願い致します。

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

  • ベストアンサー
  • MackyNo1
  • ベストアンサー率53% (1521/2850)
回答No.1

エクセルのバージョンが記載されていませんので2003の例で説明します。 K1セルからL100セル(色を付けたい範囲)を選択し、「データ」「条件付き書式」で「数式が」にして「=11+$J1>COLUMN(K1)」の式を入力して「書式」でパターンタブで塗りつぶしの色を青に設定してください。 #Officeソフトはバージョンによって使用できる機能や操作方法が大きく異なりますので、質問の際には必ずバージョンを明記するようにしましょう。

0211suzu
質問者

お礼

ありがとうございます!出来ました!こんなに簡単にできるなんて、まるでマジックですぅぅぅ。。 本当にありがとうございました! ビバ!OKwebです!

その他の回答 (2)

  • MackyNo1
  • ベストアンサー率53% (1521/2850)
回答No.3

訂正と補足です。 エクセル2003以前のバージョンの場合、条件付き書式は「データ」ではなく、「書式」メニューから選択してください。 エクセル2007以降のバージョンなら、ホームタブの条件付き書式から「新しいルール」で「数式を使用して・・・・・」を選択して、No1の回答の数式を入力し、「書式」から「塗りつぶし」タブで適宜色を選択してください。

0211suzu
質問者

お礼

さっそくありがとうございます。魔法のように解決しました。 今回素早くご回答頂いた皆様、本当にありがとうございました。

  • nattocurry
  • ベストアンサー率31% (587/1853)
回答No.2

シートモジュールに書いてください。 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Columns("J")) Is Nothing Then If IsNumeric(Target.Value) Then If Target.Value > 0 And Target.Value = Int(Target.Value) Then Target.Offset(, 1).Resize(, Target.Value).Interior.Color = vbBlue End If End If End If End Sub 素人なんでしょうけど、あとは自分で調べてください。

0211suzu
質問者

お礼

さっそくありがとうございます。解決しました。 今回は別のやり方で解決しましたが、このやり方も試してみます。

関連するQ&A

  • セルへの入力を簡単にしたい

    エクセル2002で12x12=144マスに1から144までの数字を入れて迷路を作っています。A列にデータを144入れて、1と表示のマスに”=A1", 2のマスに”=A2", 3のマス”=A3" となるようにしたいのです。最初から”=A1"と打っていけば済むことですが、144もあるので数字だけの方が入力が楽なのです。マクロの記録を使うと列も変わってしまいます。138は”=A138"になってほしいのです。138のセル位置を読取ることができればいいのですが。いろいろと調べて試してみましたがどれもうまくいきません。よい方法があれば教えてください。

  • エクセルでセルに入っている数字と数字を|でつなぎ一つのセルに

    横に並びあう複数のセルに文字列で5桁の数字が入っています。 これらを"|"をつかってつなげ、一つのセルに入れたいのですが、 いい方法はないでしょうか。 ▼最終形がこのようになり、一つのセルに入れたいのです。 20432|20433|20434 どうぞよろしくお願いいたします。

  • EXCELのセルに入力した数字より背景色の塗りつぶしを行いたいのですが

    EXCELのセルに入力した数字より背景色の塗りつぶしを行いたいのですがどうすればよいのでしょうか? 閲覧ありがとうございます。 今仕事の資料を作成しています。 かなりの初心者ですので、宜しくお願いします。 使用ソフトのバージョンは EXCEL 2003 SP3になります。 現在表を作成しており、行に数字を入れ、数字にあわせ背景色をつけたいと考えています。 ※列で数値をCountifにより集計し、1がいくつ、2がいくつ・・・・とカウントしています。 セルには1~15の数字を入れ、それぞれ数字に合わせ自動で背景色を塗りつぶすことを行いたいと考えています。 書式の条件付書式により色をつけることを考えましたが、3つの条件までしか作ることが出来ずに困っています。 おそらくVBAやマクロ等を使用しないといけないと思いますが、可能なのでしょうか? プログラミングの知識が無いので、ぜひご教授のほどよろしくお願いします。

  • excelでセルに数字があるときの入力

    excelでセルに数字があるときに同じ行の数字がある隣のセルに文字を入力したいのですがその方法をご教授下さい。 お世話になります。 今 1行に 地域名 商品名1 金額1 判定1 商品名2 金額2 判定2 の表があります。 金額1に数字が入っている場合には判定1の列に”有”の文字を 金額2に数字が入っている場合には判定2の列に”有”の文字を 入力したいのですがどのようにしたらよいかわからず困っています。 どなたかご教授のほどよろしくお願いします。 以上です。

  • Excel97で対照セルのみの合計

    Excel97を使っています。 表の中で、I列に「○」がついているセルの H列の数字だけを M2のセルに表示させたいのですが、可能でしょうか。

  • エクセルマクロでセルの数字を処理

    エクセルのマクロで以下の処理をしたいのですが、少し複雑でうまく出来ません。できればどのようなマクロを用いればよいか教えてください。 A列に数字がならんでいます。 1、A1から順番に下方向にこの数字を調べます。 2、100未満の場合はそのまま下に移動します。 3、セルの数字が100を超えていたら、100を超えていたセルを起点(1番目)として、下方向にセルの数字を調べ、起点となるセルの数字より10%以上多いセルが見つかれば、それと起点のセルとの差を調べ、見つからなければ起点のセルと30番目のセルとの差を調べます。 4、3の処理が終わったら、再び起点となったセルから1つ下に移動してA列の数字を調べ、100以上なら、再び3からの処理を繰り返します。 調べるA列のセルより下のセルが30個より少なければ終了です。 3で調べた数字の総和を求めるのが目的です。 よろしくお願いします。

  • エクセルのセルの横が数字になってしまいました。

    アクセル表の横セルが数字になってしまいました。 いつものセルは横セルが英語です。 作成がやりずらいです。 良識者の方アドバイスお願いいたします。

  • すでに入力されている数字で計算をしたい

    数字が入力されている表があります D列E列F列の数字をそれぞれB列の数字で割り算をしたいと考えています 割り算の答えは同じそのセルに上書きするようにします 別のセルで計算した結果を値貼り付けでもってきていたのですが、 マクロで処理できればと考えております 2行目から数字が入力されているのですが、 最終行が決まっておりません。 答えは全て小数点第2位までで表示したいと考えています どなたかご教授いただけますでしょうか よろしくお願い致します

  • 4つのセルを1つの塊り(マス)ととらえて塗潰す方法

    どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に、a~n、1~10の合計140個のセルに数字が1~99迄の重複有りで 入っています。a1,a2,b1,b2の4つのセルで1つのマスとみなすと、 140個のセルは縦:5マス、横:7マスの合計35マスとなります。 この条件で、検索値欄に1つ数字を入れたら、 一致した数字が入っているマス(4つのセルの集合)を塗潰すにはどうすればよいですか? 〇例題  a b c d e f g h i j k l m n 1 02 05 08 09 14 13 15 16 17 28 22 32 33 37 2 03 03 05 14 13 28 99 31 23 32 31 36 32 37 3 05 01 07 06 15 07 20 08 26 12 27 19 32 37 4 04 03 08 10 10 14 12 17 24 18 30 22 37 24 5 08 01 13 02 16 04 25 09 28 15 34 24 36 34 6 01 06 05 12 18 14 22 19 23 30 26 35 28 36 7 02 03 04 11 06 16 20 21 25 26 29 27 31 29 8 07 07 08 10 09 14 17 15 18 21 19 26 20 34 9 01 02 10 04 11 05 18 13 27 20 28 33 30 34 10 12 11 16 14 19 24 24 25 27 26 33 32 35 35 検索値: 07 【結果】 検索値に07を入れたら、下記の3マス(12セル)が塗潰される。 c3,d3,c4,d4 e3,f3,e4,f4 a7,b7,a8,b8 〇注意事項  ・使用するエクセルは2010です。  ・1マス=4セルです。※a1,a2,b1,b2で1マスです。  ・セルに入っている数字はランダムで、同じ数字の重複は35マス(140セル)全体で   4個迄です(1つのマスに4個入る事も有るし、4つのマスに1個ずつ入る事も   あります。)  ・検索値欄に入力できる数字は1~99迄の1つです。  ・セルの数字は表示上、2桁で表しています。(例:1ではなく01) 以上、よろしくお願いします。

  • Excelの関数について

    質問についてうまく表現が出来ないのでセル番地等を記します。 I1とJ1を結合して2005/12(文字列で入力) K1とL1を結合して2005/11(同じ) M1とN1を結合して2005/10(同じ)           ・           ・ AE1とAF1........2005/01 まで I2,K2,L2,N2・以降1個とび・・・AE2に個数という項目名 J2,L2,N2,P2・以降1個とび・・・AF2に単価という項目名 I3~AF3までに数値が入ります。 I3~AF3までの範囲の最新の単価を表示させる為の関数はどうしたらよいのでしょうか? 個数と単価は空白のセルも出てきます。 考え方的にはI3~AF3の範囲で0又は空白セル以外の項目のうち一番左側のセルの値を表示させるようにすれば良いのですが、関数がわかりません。 よろしくお願いいたします。

専門家に質問してみよう