• ベストアンサー

EXCELでこんなことできませんか

deecyanの回答

  • ベストアンサー
  • deecyan
  • ベストアンサー率38% (89/233)
回答No.2

条件付書式では3色までしかでけへんし VBAでやるしかないんとちゃう? Sheet1に 貼り付けて Private Sub Worksheet_Change(ByVal Target As Excel.Range)   If Target.Text = "S" And Target.Column < (256 - 29) Then    Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 29)).Select    Selection.Interior.Color = Target.Interior.Color    Target.Select   End If End Sub

kogoro
質問者

お礼

できました! 感激です。 あれから、いろいろ試してみたのですが、やっと成功です。 おかげで、いろいろ勉強になりました。 有難うございました。

kogoro
質問者

補足

ありがとうございます。 VBAはど素人で、新しいマクロの記録でしか作ったことがありません。 Sheet1に 貼り付けて とありますが、具体的にどうすればよいのでしょうか。 宜しくお願いします。

関連するQ&A

  • EXCELで・・・

    EXCELである条件で、セルの塗りつぶしをしたいのですが。 たとえば、A1のセルを塗りつぶしの赤にしてSと入力した時、右方向に29セル分を同じ赤に自動で塗りつぶすことはできるでしょうか。 A1、B1,C1,・・・・・AA4が赤になるイメージです。 ただし、どのセルにSを入れるかは変動します。 Sと入力したところからSの入ったセル色にしたいのです。 どなたか、宜しくお願いします。

  • excelについての質問です。

    EXCEL2003条件付き書式についての質問です。 セル「A1:H15」に条件付き書式で設定します。 ■「セルの値が 次の値に等しい =""」 ■塗りつぶし 黄色 すると、「A1:H15」に何か入力されてれば黄色の塗りつぶしはなくなります。 そして、この状態で現在「A1:H15」までの空白のセルが塗りつぶされていることになります。 ここからが、質問の内容です。 16行目の「H16」に何か入力した場合、現状ではセルに変化はおこらないですが、 入力完了したら、15行目までに設定した「条件付き書式」を自動的に継承したいのです。 16行目の「A16:G16」を、条件付き書式の設定をわざわざすることなく、 自動的に黄色く塗りつぶしたいんです。 ちなみに、16行目以降どんどんデータはふえます。 増える予想範囲まで条件つき書式を設定すると、 文字が入力されていない行まで塗りつぶされてしまいます。 これだと業務上支障がでるんです。 どなたか、教えてください。どうかよろしくお願いします。

  • EXCEL 関数

    EXCEL2002で、ファイルを開いたときに、実施事項としてファイルを開いた日(本日)が、交付日から10日を超えた場合は、セルCを黄色、交付日から60日をこえた場合はセルを赤色にしたいのです。 戻り日は未入力の状態でです。ファイルを開いたときに〆日が過ぎていることを気づかせたいのです。  A   |B   |C      |D 交付日 |戻り日|赤or黄色  |=TODAY()       セルCに条件付書式で 条件1=AND(D-A>0,D-A>60) 赤 条件2=AND(D-A>10) 黄 ただ上記の書式にするとAが未入力の状態だとセルCが赤になってしまいます。 何かいい方法はありますでしょうか。教えてください。

  • EXCEL 関数

    EXCEL2002で、ファイルを開いたときに、実施事項としてファイルを開いた日(本日)が、交付日から10日を超えた場合は、セルCを黄色、交付日から60日をこえた場合はセルを赤色にしたいのです。 戻り日は未入力の状態でです。ファイルを開いたときに〆日が過ぎていることを気づかせたいのです。  A   |B   |C      |D 交付日 |戻り日|赤or黄色  |=TODAY()       セルCに条件付書式で 条件1=AND(D-A>0,D-A>60) 赤 条件2=AND(D-A>10) 黄 ただ上記の書式にするとAが未入力の状態だとセルCが赤になってしまいます。 何かいい方法はありますでしょうか。教えてください。

  • エクセルでのセルの色づけ方法

    教えてください。 エクセルで、8000行、15列程度の表があります。 例えば、A2に、Aと入力すると、A2とA1の両セルが水色 Bと入力すると、A2とA1の両セルが黄 Cと入力すると、A2とA1の両セルが赤 他にも、例えば C4に、Bと入力すると、C4とC3の両セルが赤 Bと入力すると、C4とC3の両セルが黄 Cと入力すると、C4とC3の両セルが赤   などのように、A=水色   B=黄色   C=赤になるように 条件付き書式を設定し、その書式を他のセルへコピーして、 1000行位までは、ちゃんと保存できたのですが、8000行程度まで、コピーして、保存すると、『保存できません』と表示されてしまい、1000行以上は条件付き書式のコピーをしても、コピーはできますが、保存できないため、大変困っています。。。もしかして、条件付き書式には、書式のコピーができる制限があるのでしょうか?あとは、VBなどで対応 するしかないのでしょうか。VBもまったく分かりません。。 是非、よろしくお願いいたします。

  • エクセルの条件付き書式について

    A1セルに「100」が入力された場合、B1セルの色を赤に、同様にして200:青、300:黄、400:緑、500:赤、600:青、700:黄、800:緑という風にB1セルの色を変えたいと思います。 条件付き書式は3つまでしかないのですが、色のパターンは4種類なので、元の書式と合わせると4パターンです。 条件付書式で、A1セルの値が200又は600ならB1セルの色を青にするにはどうすればよろしいでしょうか。 つたない文章でわかりにくいかと思いますが、よろしくご回答ください。

  • エクセル教えてください!

    一定の条件を満たした場合、セルが黄色になるように条件付き書式で設定しています。 ここで質問なのですが、、、 そのセルが黄色になった場合に、関連したデータが入力されている他のセルも自動的に黄色になるようにしたいのですが可能ですか? 例) 1、2、3 … 7と入力されたセル   【条件付き書式で条件を満たすと「5」のセルが黄色になる】   「5」と入力されたセルが黄色になった場合に、   他のセルに入力されている、月、火、水 … 日と入力された   セルのうち、「金」のセルが自動的に黄色になる。  ↑簡単に説明するとこのようなことがしたいのです。 どなたか教えてください!お願いします。

  • エクセル条件付き書式?

    お世話になります。 複数の条件でセルの色を変える方法を教えて下さい。 (1)A1にVLOOKUPで○と入力されたらセルが赤色、☆なら青色、♯なら黄色、それ以外なら無色。 このような具合です。 (2)またA1が赤になったら A5まで列が赤になる。 このような設定もお願いします。 エクセルは2010です。 言葉足らずでしたら補足させて頂きます。何卒宜しくお願い致します。

  • Excel で 条件付き書式について

    Excel 条件付き書式で以下の設定式を教えて下さい。 A1セルに0から50 の数値入力の場合は、B1セルが赤色に A1セルに51から70 の数値入力の場合は、B1セルが黄色に A1セルに71から100 の数値入力の場合は、B1セルが青色に 以上、よろしくお願いいたします。

  • エクセル 条件付き書式で複数設定する方法を教えてください。

    こんにちは。いつも大変お世話になっています。 エクセルの条件付き書式の1つめに =mod(row(),2)=0 と入力して、1行おきにセルの色を黄色に変えるようにしました。 次に条件2つめとして、=a1 だったら、文字色を赤に変えるようにしました。 すると、条件1で設定した、セルの色が変わらない方ならば、=a1の場合、文字が変わるのですが、セルの色が黄色だと、文字色は黒のままなのです。 これを、1行おきにセルは黄色で、なおかつ=a1の時は文字を赤くするにはどのようにしたら良いのでしょうか? どうぞよろしくお願いします。