エクセルの関数

質問

エクセルで
http://jisaku.155cm.com/src/1371930716_9b9006528605642980beed48a8998013b0731e4b.jpg
のようにＡ列のテスト４をクリックしたときにＣ列のテスト４が一発で解るようにしたいです。
もちろん、テスト１１をクリックしたときは、テスト４塗りつぶしは解除され、
テスト１１が塗りつぶされるようにしたいです。
写真は塗りつぶししていますが、解るようにしたいだけなので、塗りつぶしにはこだわっていません。
あと、Ｅ、Ｆ、Ｇ列は解りやすく並べているだけで、実際はＡ、Ｂ、Ｃ列だけです。
それと、Ｃ列は関数を使って表示してあります。

回答No.2

tom04 · ベストアンサー

こんばんは！
VBAになってしまいますが、一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてA列データを選択してみてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
Dim i As Long
Range("C:C").Interior.ColorIndex = xlNone
If Application.Intersect(Target, Range("A:A")) Is Nothing Or Target.Count <> 1 Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Cells.interio.ColorIndex = xlNone
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, "C") = Target Then
Cells(i, "C").Interior.ColorIndex = 3
End If
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

※　C列データは関数で表示されている！というコトですので、
C列1行目～C列最終行までFor～Nextでループさせています。
すなわちデータ量が多い場合は表示されるまで少し時間を要するかもしれません。

※　生データに直してもよいのであれば、オートフィルタが使用できますので、
若干時間の短縮が可能だと思います。m(_ _)m

お礼

ありがとうございます。
やりたかった通りのことができました＾＾
助かりました。

回答No.3

keithin

「アクティブセルの行（列）に色を付ける」というTipsを、ちょっと応用してみます。

手順：
Ｃ１：Ｃ１５を選択、条件付き書式▼から「セルの強調表示ルール」を右に開いて「指定の値に等しい」を開始
記入欄に
=INDEX(A:A,CELL("ROW")/(CELL("COL")=1))
と記入、書式ボタンでユーザー定義の書式からセルの塗色を設定してＯＫ

シート名タブを右クリックしてコードの表示を開始
現れたシートに下記をコピー貼り付ける

private sub Worksheet_SelectionChange(byval Target as excel.range)
application.screenupdating = true
end sub

ファイルメニューから終了してエクセルに戻り、Ａ列のセルを選択する。

回答No.1

noname#196973

やりたいことはA列のセルを選択するとC列の中で同じことが書かれているセルがわかるようになる、ということでしょうか？

条件付き書式である文字が入力されている場合だけ色がつくとか、マクロを使って似た反応をさせることはできますが、この情報だけではどのやり方がいいのかわかりかねます。
セルに色をつけるのは関数では無理です。

補足

さっそくのレスありがとうございます。
おっしゃる通り、Ａ列の文字を選択したときに、Ｃ列の同じ文字をすべて解るようにしたいということです。
むずかしいでしょうか？