- ベストアンサー
選択されたセルが赤くなる方法を教えてください。
- みんなの回答 (7)
- 専門家の回答
質問者が選んだベストアンサー
すみません、確認漏れをしていました。 セルのみの場合は以下の数式を =OR(CELL("row")=ROW(), CELL("col")=COLUMN()) 以下のように変更してください。 =AND(CELL("row")=ROW(), CELL("col")=COLUMN()) OR → AND への変更となります。
その他の回答 (6)
- takibo
- ベストアンサー率57% (116/200)
こちらの質問のNo.1の回答で、ご希望の結果が得られるはずです。 http://okwave.jp/qa2089225.html 条件付き書式を使っているのでもともと塗りつぶした色は保持されます。 ただ、その後の回答にもあるように、ファイルの内容によっては条件付き書式はそれなりの負荷がかかります。 あまり重くなるとクリックと色が変わるタイミングのずれが大きくなってしまうので気をつけてください。
- merlionXX
- ベストアンサー率48% (1930/4007)
マクロが走ると画面がちらつくのが気になりますね。 ちょっと変えてみました。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range, SRng As Range Set Rng = Range("C3:K20") If Not Intersect(Target, Rng) Is Nothing Then Set SRng = Selection With Application .ScreenUpdating = False Sheets("damy").Range("C3:K20").Copy .EnableEvents = False Rng.PasteSpecial Paste:=xlPasteFormats SRng.Select SRng.Interior.ColorIndex = 3 .EnableEvents = True .ScreenUpdating = True End With End If Set Rng = Nothing Set SRng = Nothing End Sub
- merlionXX
- ベストアンサー率48% (1930/4007)
> やはりマクロを有効とする範囲にその他の色の塗りつぶしを行うのは不可能なのでしょうか。 不可能ではありませんが一筋縄では行きませんね。 では、こうしましょうか。 新たにdamyという名前のシートを挿入します。 damyシートに、マクロを有効とする範囲(以下では"C3:K20")と同じ範囲を、対象シートの"C3:K20"と同じ書式にしておきます。要は控えをとっておくんです。 コードを以下に変えてください。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range, SRng As Range Set Rng = Range("C3:K20") If Not Intersect(Target, Rng) Is Nothing Then Set SRng = Selection Sheets("damy").Range("C3:K20").Copy Application.EnableEvents = False Rng.PasteSpecial Paste:=xlPasteFormats SRng.Select Application.EnableEvents = True With SRng.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If Set Rng = Nothing Set SRng = Nothing End Sub いかがでしょう?
- merlionXX
- ベストアンサー率48% (1930/4007)
puchipuriさんこんにちは、merlionXXです。 > 元々塗りつぶしを行っていた全てのセルの塗りつぶしが解除(白くなる)されますが・・・ それでしたら、セルの塗りつぶしが解除されていい範囲=クリックしたとき赤く変わる範囲 を設定することで解決できます。 仮にその範囲を C3:K20 とした場合、以下の記述となります。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range Set Rng = Range("C3:K20") If Not Intersect(Target, Rng) Is Nothing Then Rng.Interior.ColorIndex = xlNone With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If Set Rng = Nothing End Sub
お礼
merlionXXさん、回答ありがとうございます。 範囲指定によりほぼ理想通りとなることが出来ましたが、やはりマクロを有効とする範囲にその他の色の塗りつぶしを行うのは不可能なのでしょうか。 といいますのは、元々記入間違いを防止するために1行置きに灰色の塗りつぶしを行っており、さらにその確立を減らすために、ハイパーリンクで飛んできたセルに赤色を表示させたかったのです。赤色に表示された後に灰色に戻るのは無理なのでしょうか。 何度も質問してしまい申し訳ありませんが、ご教示いただけますと幸いです。
- merlionXX
- ベストアンサー率48% (1930/4007)
以下の手順でやってみてください。 1.対象とするシートのタブを右クリックし、「コードの表示」を選択。 2.出てきたVisualBasicEditor(白い部分)に下記のコードをコピペ。 '*****ここから下をコピペ***** Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With End Sub '*****ここより上までをコピペ***** 3.Alt+F11キーでワークシートへもどります。
お礼
回答ありがとうございます。 ご教示いただいた通りにマクロを実行したところ、問題なく動作しました。 追っての質問で申し訳ありませんが、ご教示頂いたマクロを実行すると、元々塗りつぶしを行っていた全てのセルの塗りつぶしが解除(白くなる)されますが、元々の設定を残したまま、このマクロを実行することは可能でしょうか。 宜しくお願い致します。
上のバーか下のバーにペンキ缶の形をした「塗りつぶしの色」というアイコンがありませんか? これをクリックすれば、選んだセルに色をつけられます。色を選ぶのは、すぐ右にある小さな下向き矢印です。 選択セルをずらしたときに自動的に色も変える方法というのは、わかりません。選択したセルに対してもう一度「塗りつぶしの色」アイコンをクリックすれば、同じように色はつきますけれど。
関連するQ&A
- とびとびのセルの選択の方法
エクセル2007で教えてください。 以前のエクセルのバージョンで、とびとびのセルを選択したい場合、1つ目のセルを選択後、CTRLキーを押しながらドラッグすると追加できましたが、エクセル2007ではできないのです どうやればいいのでしょうか?
- ベストアンサー
- その他(インターネット・Webサービス)
- Excelの複数セルの選択方法
Excelで、Ctrlキーを押しながらクリックし、複数のセルを選択している途中で、間違ったセルをクリックしてしまいました。 こんな場合、この間違ったセルの選択だけを解除する方法はありませんでしょうか? WindowsXP・Excel2002&2003を使用しています。
- ベストアンサー
- オフィス系ソフト
- Excel2003でセルの選択をする場合
職場でExcel2003を使っています。 Ctrlキーを使って離れたセルを複数選択するような場合、 普通はセルが青くなってどこを選択しているか分かると思うんですが、 職場のExcelは色も変わらないし、選んだセルの見た目に何の変化もなく、 選択の間違いがないか確認したくても全く分かりません。 これは何かの設定で直るものなんでしょうか? よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 色の付いたセルのみの選択は可能ですか?
エクセルで表を完成させた際に、 不要となった複数行を一括して削除したいのですが、 削除する行は、A列のセルに黄色が色づけされています。 このような場合、色の付いたセルのみ選択して削除することは可能でしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルのセル色を好きな色に
エクセルでセルの色を変える際に、ペンキ缶のツールバーをクリックすると色を選択できますが、この際、自分の好きな色を作ってセル色にすることはできるのでしょうか。 「図形描画」で作成した四角マスなどの色指定は、「その他の色…」という項目が選択できますが、このセルの場合は、この選択が出てきません。。。 エクセル2003を使用しています。 どなたかご教授ください。
- ベストアンサー
- オフィス系ソフト
- セルのランダム選択の解除方法は?
エクセルのセルを飛び飛びに選択する場合、コントロールキーを押しながら、クリックしていく方法がありますが、いくつか選択した後に間違ったセルを選択していることに気づいた時、間違ったセルのみ選択を解除するには、どうすればよいのでしょうか? 上記の方法以外で選択すれば可能ならば、そちらの選択方法を教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCELなどでのセルの複数選択について
EXCELとかで、複数のセルを選択するときCtrlを押しながらクリックしていくと 好きなところのセルを選択できると思うんですが、 いくつか選択されている状態で、ある場所の選択だけを解除したいときはどうやればいいんでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelで、離れたセルの範囲選択をする方法
Windows XPで、Microsoft Office Excel 2003を使っています。 1. 離れたセルを、Ctrlを押しながら範囲選択をしていました。 ところが、今回、離れたセルの範囲選択後に、「そのコマンドは、複数の選択に対して実行できません」というメッセージが表示されて、離れたセルの範囲選択ができなくなりました。 2. また、必要な範囲をクリックでドラッグして青色に選択しても、指を離すと色が消えて、選択ができなくなりました。 そのため、色が出ている状態でShiftを押しておくと、色は消えずに選択ができます。 以上の2点につき、正常な状態に戻す方法を教えてください。
- ベストアンサー
- Windows XP
- エクセル2013で選択したセルの表示
塗りつぶしなしのセルに白い字を書くと通常は見えない状態になるかと思います。 エクセル2010では、これらのセルを選択すると選択色の中に白い文字が浮かぶかと思います。 エクセル2013では、セルを選択してもグレーになるだけで文字が読めません。 2010のように選択したときに文字を表示させることはできないでしょうか? ついでに、 2013では「ウインドウの色とデザイン」で「選択項目」で指定した色に関係なくグレーにしかなりませんが変える方法はないでしょうか?
- ベストアンサー
- Excel(エクセル)
お礼
回答ありがとうございます。 現在のところ、動作も軽く問題は解決しました。 追っての質問で申し訳ありませんが、今回教えていただいた方法は、そのセルの行列の表示が変わりますが、そのセルのみの表示を変えることも可能でしょうか? よろしくお願いいたします。