お世話になります。
アクティブセルだけ背景色を変えたいと思っています。
以下のサイトを読んで、こちらのコードを利用して
アクティブセルの背景色を変えています。
http://www.excel.studio-kazu.jp/kw/2014102311340 …
このコードは素晴らしくて、よく利用しています。
ですが1つ困ったことがあります。
それはこのコードに
Cells.Interior.ColorIndex = xlNone
が含まれているため、シート上の全てのセルの背景色が
キャンセルされて、塗りつぶしなしの状態になってしまいます。
可能なら、先に背景色を設定したセルは既存の背景色を残したまま、
アクティブセルの背景色だけを変えることが出来るのなら、
活用してみたいと思っています。
もし、そんなことが可能でしたらマクロでも通常の設定でも構いませんので、
設定やコードを教えて下さい。
お手数ですが、詳しい方、説明の上手な方、よろしくお願いします。
追記
シート上でアクティブセルの場所だけ、わかれば良いので、
以下のように書き換えたところ一瞬、セルに背景色が表示されてから
シート全体の背景色がクリアされてしまいました。
このパターンで一瞬だけアクティブセルに背景色を表示して、
すぐに背景色(アクティブセルの)が既存の設定に戻る、、、というのでもいいです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target(1).Interior.ColorIndex = 6
Cells.Interior.ColorIndex = xlNone
End Sub
※すいませんが、お礼、返信、etc.は遅くなると思います。
No.1ベストアンサー
- 回答日時:
こんばんは!
>シート上の全てのセルの背景色が
キャンセルされて・・・
セルの塗りつぶしは手動で行っているのでしょうかね?
もし可能であれば
条件付き書式で塗りつぶされているセルの色は通常のマクロでは消えません。
ただこれではお望みの方法ではないと思いますので
一案です。
どこか使っていないセルに選択セルのアドレスを退避させておいて
そのセル番地を利用する方法はどうでしょうか?
仮にアクティブシートのZ1が使っていないセルだとして
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myAd As String
On Error Resume Next '//←念のため//
With Target
myAd = .Address(False, False)
If Range("Z1") = "" Then
Range("Z1") = myAd
.Interior.ColorIndex = 6
Else
myAd = Range("Z1")
Range(myAd).Interior.ColorIndex = xlNone
.Interior.ColorIndex = 6
Range("Z1") = .Address(False, False)
End If
End With
End Sub
※ 列全体とか、行全体を選択すると
エラーになるかもしれません。m(_ _)m
解答して頂きありがとうございます
お礼が遅くなりすいません。
>もし可能であれば
条件付き書式で塗りつぶされているセルの色は通常のマクロでは消えません。
↓
これは知りませんでした。
関数が入っているセルなので、条件付き書式で
次の値に等しくない、空白、で対応しました。
助かりました。
>セルの塗りつぶしは手動で行っているのでしょうかね?
↓
気にされていたのは、これですね。
条件付き書式を設定して背景色をつける場合は問題がないけれど
マクロを貼りつけたら、セルに新規で背景色を設定(手作業で)できなくなる、
ということですね。
シート上で新規に背景色を設定することはないので(多分)、今回はこれで大丈夫です。
あと、このコードのキモはZ1にアドレスが入るので、
Z1は空白にしておくように、ということですね。
いつも解答して頂きありがとうございます。
機会があれば、またお願いします。
追記
表が大きかったり、セルが細かい時にアクティブセルがどこにあるのか
目立たせるために背景色を流し込むというのは
よくあるパターンのようですね。
自分の忘備録として、今回、参考にさせて頂いたURLを貼りつけておきます。
アクティブセルのみ色をつけたい
※最初に貼り間違えたコード
http://www.excel.studio-kazu.jp/kw/2014102311340 …
アクティブセルのみ色をつけたい
- すでに背景色があるセルにカーソルが乗った時に別の背景色を表示する
https://oshiete.goo.ne.jp/qa/10646516.html
↓
私はベストアンサーのNo.5さんの数式を条件付き書式に貼りつけることが出来ませんでした。
No.4さん(このページではNo.1さん)、あなたはやっぱりスゴイです。
色を設定するには(ColorIndex、Color)
- マクロで色を変える時の12ケタの色コードの対応リスト
http://excel.style-mods.net/topic11.htm
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- その他(Microsoft Office) エクセル 表の移動 2 2023/04/05 20:29
- Excel(エクセル) こんなことできますか?例えば、sheetに貼り付けた図形のタイトルを、セルA1の文字で表示する。 5 2022/04/22 15:25
- Excel(エクセル) エクセルのマクロを教えてください シート内の背景色が赤のセルだけを残して 他のセルは削除したいです。 3 2023/07/12 12:26
- 会計ソフト・業務用ソフト エクセル 背景色のついたセル位置を参考にして固定の数値を取得する 4 2022/07/11 08:44
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
アクティブセルのみ色をつけたい
Excel(エクセル)
-
Excel アクティブセルのみ条件付き書式の色を他の色にしたい。
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
5
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
6
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
Enterキーで順番にセルの移動する。
Visual Basic(VBA)
-
9
Excelにて、ユーザーフォームで作成したテンキーの、表示している数字を セルに転記したい
Yahoo!ショッピング
-
10
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
11
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
12
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
13
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
14
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
15
エクセルの画面にユーザーフォームでテンキーを表示させたい
Excel(エクセル)
-
16
エクセル VBA実行中のApplication.ScreenUpdatingについて
Excel(エクセル)
-
17
ラベルを表示したり非表示にしたりしたい
Visual Basic(VBA)
-
18
エクセル関数で日付かどうかの確認?
Excel(エクセル)
-
19
Application.ScreenUpdating=Falseを使うと・・・。
Access(アクセス)
-
20
VBA シートのボタン名を変更したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
Excel VBA:フォーム←→セルのア...
-
エクセルでセルをクリックする...
-
VBAでの SendKeysの変数指定方法
-
ファイルサーバー上のexcelファ...
-
Excelマクロ セルを行頭に移動
-
Excelでプルダウンからフィルタ...
-
セルをクリックしたら色を変え...
-
エクセルでスピンボタンとスク...
-
エクセル:セルの色のコード番...
-
写真貼り付けを3列で折り返したい
-
excel マクロでの特殊文字入力方法
-
結合セル内の値を、結合解除後...
-
エクセルマクロで「セルのサイ...
-
Excel VBA で色付きのセルの値...
-
エクセルで写真挿入 マクロ
-
Excelで数値の変化をカウントし...
-
エクセル マクロ オートフィ...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
VBAでの SendKeysの変数指定方法
-
エクセルでセルをクリックする...
-
Excelマクロ セルを行頭に移動
-
Excel VBA:フォーム←→セルのア...
-
マクロのデータ削除
-
【VBA】アクティブセルだけ背景...
-
IF関数で違う値もTRUEになる
-
ファイルサーバー上のexcelファ...
-
エクセルマクロで「セルのサイ...
-
ダブルクリックでセルに色をつ...
-
(エクセルVBA)セルを左クリッ...
-
Excel VBA で色付きのセルの値...
-
VBA Rangeの足し算
-
セルをクリックしたら色を変え...
-
【EXCEL-VBA】特定の値の入った...
-
excel マクロでの特殊文字入力方法
-
【マクロ】1つのセルから結合...
-
Excelで数値の変化をカウントし...
-
ExcelVBA コンボボックスに入力...
おすすめ情報