エクセルの反転

質問

セルのある場所とは違う場所を、反転させたいのですが。

例えば、Ｂ１０にセルがあるときに、Ｂ１の位置のセルが反転して色が変わって、その場所がわかるように。

お願いします。教えてください。

回答No.10

ka_na_de · ベストアンサー

＃８です。
複数セル選択時にも対応するように訂正します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　With Range("1:1")
　　.Interior.ColorIndex = xlNone 'セルの塗りつぶしなし
　　.Font.ColorIndex = 1 'セルのフォント色：黒
　End With
　With Cells(1, Target.Column).Resize(, Target.Columns.Count)
　　.Interior.ColorIndex = 45 'セルの塗りつぶしオレンジ
　　.Font.ColorIndex = 2 'セルのフォント色：白
　End With
End Sub

お礼

すいません、質問しておきながら忘れてました。
説明の仕方も悪かったようです。
申し訳ありませんでした。

回答No.9

ka_na_de

＃８です。

例のＢ１０以外に拡張した例です。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　With Range("1:1")
　　.Interior.ColorIndex = xlNone　　 'セルの塗りつぶしなし
　　.Font.ColorIndex = 1　　　　　　　'セルのフォント色：黒
　End With
　With Cells(1, Target.Column)
　　.Interior.ColorIndex = 45　　　　 'セルの塗りつぶしオレンジ
　　.Font.ColorIndex = 2　　　　　　　'セルのフォント色：白
　End With
End Sub

回答No.8

ka_na_de

質問の意図は、これでしょうか？

ご参考までに。

http://officetanaka.net/excel/function/tips/tips19.htm

回答No.7

imogasi

既回答で、B10が空白で無いなら、A１が色が付くというらしいものがありますが、
そうではなくて、B1が空白で、これから入力をしようと、B10をクリック（アクチベイト）したら、A１が目立つように色をつけてほしい、という意味ではないですか。
ーー
これは関数レベルではできません。
VBAのイベント（マウス等で何々したら（その瞬間に）、何々したいという仕組み）を使わ無いとできないでしょう。
ーー
参考までに載せるが、要はVBAのわからない方には無理ということ。
Sheet1のせぇｃちおん＿Changeイベントに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$10" Then
Range("A1").Interior.Color = vbYellow
Else
Range("A1").Interior.ColorIndex = xlNone
End If
End Sub
一見たやすく見えることでも、エクセルでは難しいことの例。

お礼

すいません、質問しておきながら忘れてました。
説明の仕方も悪かったようです。
申し訳ありませんでした。

回答No.6

mu2011

B10セルに何か値が入力された時にB1セルの表示が反転するという事で次の方式は如何でしょうか。
（１）B1セルを選択
（２）書式→条件付き書式
（３）「数式が」を選択、数式欄に=$B$10<>""
（４）書式→フォントタブで色を白色、パターンタブで灰色を選択→ＯＫ

お礼

すいません、質問しておきながら忘れてました。
説明の仕方も悪かったようです。
申し訳ありませんでした。

回答No.5

zap35

＞Ｂ１０にセルがあるときに、Ｂ１の位置のセルが反転して色が変わって
…わかりません。用語の定義があまりエクセル風ではない気がします。
まず「反転」の意味をはっきりさせましょう。

「反転」とは「B1セルの背景色を変える」ということですか？　それとも「B1セルがアクティブ（選択された状態にする）」ということですか？

補足に「B10セルで入力しているときB1の色が変わる」とありましたので、後者ではありませんね。すると「B10セルがアクティブのとき、B1セルの背景色を変えたい」という意味で良いですか？

それであればマクロを使用すれば可能です。以下のマクロを「シート名右クリック」→「コードの表示」で開く画面に貼り付けて下さい
ワークシート画面に戻り、B10がアクティブになるとB1セルの背景色が変わるはずです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$10" Then 'アクティブセルがB10のとき
Range("B1").Interior.ColorIndex = 22　'色を22にする
Else
Range("B1").Interior.ColorIndex = xlNone　'B10以外の時無色にする
End If
End Sub

なおColorIndexの一覧は下記です
http://www.relief.jp/itnote/xls_colorindex.php

お礼

すいません、質問しておきながら忘れてました。
説明の仕方も悪かったようです。
申し訳ありませんでした。

回答No.4

saezuri

B1のセルを選択後

書式＞条件付き書式

条件1で『セルの値が』、『次の値に等しい』、『=$B$10』
と入力

書式で色変更→OK

これでB10にB1と同じ言葉（もしくは数字）が入った場合B1に色が付きます。

B1に入力した書式をコピー＞形式を選択して貼り付け＞書式のみ
でコピーすればB10に何か入力したとき該当すれば色が変わるといった感じです。

お礼

すいません、質問しておきながら忘れてました。
説明の仕方も悪かったようです。
申し訳ありませんでした。

回答No.3

koko88okok

> セルのある場所とは違う場所を、反転させたいのですが。

Excelではセルが反転することはありません。
意味不明ですが、勝手に解釈して、

例えば、セルB250 がアクティブのとき、セルB1 をマウスでクリックする以外の方法で、アクティブにする方法の例です。

書式設定ツールバーの左端にある「名前ボックス」に「B1」と入力して「Enter」キーを押すと、セルB1 がアクティブになります。

ご質問の趣旨と違うと思いますが、・・・

お礼

すいません、質問しておきながら忘れてました。
説明の仕方も悪かったようです。
申し訳ありませんでした。

回答No.2

ore-summer

条件付き書式ではだめですか？

お礼

すいません、質問しておきながら忘れてました。
説明の仕方も悪かったようです。
申し訳ありませんでした。

回答No.1

mu2011

ご質問の意味が全く分かりません。
・Ｂ１０にセルがある時とは「何がある」時でしょうか。
・Ｂ１の位置のセルとは、Ｂ１セルを指すのか、Ｂ１セルが表示しているセルを指すのでしょうか。
もう一度、質問内容をご確認の上、補足して下さい。

補足

Ｂ１０で入力しているときに、Ｂ１の色が変わるように。
これで、おわかりでしょうか？