• ベストアンサー

エクセル VBA 色が付いているセルを無色にする

ham_kamoの回答

  • ベストアンサー
  • ham_kamo
  • ベストアンサー率55% (659/1197)
回答No.3

すみません、何がやりたいのか今ひとつわかってないのですが、 > この状態からH7~K7の色が付いてしまうと消えないので > ダブルクリックで消したいのです よろしくお願いいたします。 E3:E6の範囲のように、H7:K7の範囲のセルをダブルクリックしたらそのセルに色がついて、その他のセルを無色にしたいのであれば、 myRng.Interior.ColorIndex = 37 の前に Rng.Interior.ColorIndex = xlColorIndexNone を挿入したらいいでしょう。 そうでなくて、H7:K7の範囲のセルをダブルクリックしたら色がつき、もう一回ダブルクリックしたら色が消える、ということをしたいのであれば、 myRng.Interior.ColorIndex = 37 の部分を、 If myRng.Interior.ColorIndex = xlColorIndexNone Then  myRng.Interior.ColorIndex = 37 Else  myRng.Interior.ColorIndex = xlColorIndexNone End If のようにすればいいかと思います。

nanny
質問者

お礼

お返事遅くなりませて申し訳ありません 今回は下の構文をいただきました。 わかりにくい文章ですいませんでした。 色々教えていただきありがとうございました。 また次回もよろしくお願いいたします

関連するQ&A

  • エクセル VBA セルをクリックすると色が変わる

    いつも皆様には大変お世話になっております。 早速ですが、VBAでセルをクリック(もしくはダブルクリック)するとそのセルの色が変わるといったようなマクロが組めるでしょうか。 色を変えたいのは、A1~A4までの4個のうち1個だけなのでA1がクリックされればA2~A4までは『色なし』にしたいのです。 そんなことは出来るでしょうか? よろしくお願いいたします。

  • エクセル セルの色について

    エクセルについて教えてください。 セルに塗りつぶしで色をつける。 そのセルを移動すると色も移動してしまいます。 シート内に設定した各セルの色を固定にする方法を 教えてください。 他の人が作った表が 1行ごとにカラー、無色と交互になっていて  データを上下に移動しても 全体の配色は変わらないように なっていてこれはいいなと思ったのですが やり方がわかりません。 よろしくお願いします。

  • VBA  セルの色づけ

    Excel知識が乏しく、質問させていただきます。 まったくの初心者です… セルのA5~A30までの セルごとにそれぞれ色をつけます。 色は、無色または赤です。 セルA5に赤色をつけたときには、同一シート内のセルC10からC13とD10からD12までセルA5と同じ色になるように。 A5が、無色のときには上記同一セルも無色にするようなイメージです。 同様にA6が赤色の時に、E3~E7、F3~F6に赤色がつく。 そんな設定ができるようにするマクロが必要です。 日々変わる色設定を手作業で行うのが困難になってきました…。 方法についで教えていただきたいです。

  • エクセル セルの色を数えたい

    いつもお世話になっております。 すみません、列にセルに色(黄色)がついています。 文字が入って、セルに色のがついています。 a1 a2 黄色 a3 a4 黄色 a6 式、黄色が2と表示する式を教えて下さい。

  • エクセルのセル塗りつぶしについて(VBA)

    いつもお世話になっています。 エクセルシートで、任意のセルに数値を入力したとき、入力したセルから右側に向けて、その数値分、自動で塗りつぶすようにしたいのですが、どのようにすれば良いのでしょうか? 色は何でも構いません。 画像添付します。

  • エクセルVBAで元のデータと変わった時に色を・・・

    いつも皆様には大変お世話になっております 早速の質問ですが エクセルVBAで元のデータの入っているセルが色をつけておりまして その元のデータが変わった時にその色を無しにしたいという状況です。 色を変えたいセルはC49からC70までのセルなので Private Sub Worksheet_Change(ByVal Target As Range) For n = 49 To 70 If Cells(n, 3) <> "" Then Target.Interior.Color = xlColorIndexNone End If Next End Sub 一応こんな感じで作ってみたのですが・・・ 上記マクロで謎が2点ありまして (1)なぜかセルのデータを変えたときに薄い青の色がつく (2)どのセルのデータを変えても反応してしまう の2点です まだ(2)の反応してしまうのは何となくわかるのですが(どう直していいかはわかりません;;) (1)の薄い青色がつくのが謎です・・・xlColorIndexNoneって書いているのに・・・ マクロでダブルクリックしたらとか、シートを替えるとといった様なマクロは動かしているのですが、セルのデータを変えて動くようなマクロはまだ作っていないため何かとバッティングしている様な事は無いと思うのですが・・・ 皆様よろしくお願いいたします。

  • エクセルのセルの色が「塗りつぶしの色」で変更できず

    エクセル2003を使っています。 テンプレートとして配布されたファイルの表に、1行おきに灰色で着色してありました。これを通常の状態の白色(無色)にしようとして、画面最上部の「塗りつぶしの色」をクリックして「塗りつぶさない」をクリックしましたが、色は変わりません。 どうすれば色を変えられるでしょうか?

  • エクセルのマクロで複数のセルに色付する方法

    エクセル2003にて質問です。 ダブルクリックをすると、その行のAからHのセル (例えば1Bでダブルクリックすると1Aから1Hまで、3Hでダブルクリックすると3Aから3Hまで)が、一番薄い灰色に塗られる という設定って可能でしょうか??? 無理なら、?Aでダブルクリックすると?A~?Hでも構いません。 よくA~Hまでの横の行に対して灰色やピンクなどで色付けするのですが横スクロールを伴いますし、他のセルも間違って選択してしまう等で困っています。 また、もう一度ダブルクリックで元にもどるって機能もあれば最高です。 誰かわかる方おしえてください。 よろしくお願いします。

  • エクセル/検索したときにセルに色を付けたい。

    いつもお世話になっています。 例えば、B列を選択して検索します。 選択したB列は色が反転しますよね。 そして、検索されたセルは色が元に戻っている。 このセルに色を付け(もしくはセルの縁に色などを付ける)て、検索されたセルをわかり易くしたいのですが。 出来ますでしょうか? 宜しくお願いします。

  • 2013 数式の対象セルの色

    Excel2013で 数式バーで数式を選択すると 図2のように対象セルに色がつきます。 Excel2003の時は、数式を入力したセルのダブルクリックで 対象セルに色がついたと思いますが Excel2013でも2003の時と同じように数式を入力したセルのダブルクリック で対象セルに色をつけたいのですがどなたかその方法を ご存知ありませんか