エクセル（Excel）で困っています

質問

Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　
１
２ 氏名　得点　氏名　得点
３ あ君　９０　い君　８５
４ い君　８０　う君　７５
５ う君　７０　あ君　６５
６
７
８
９

以上の様な表を作りました。（わかりにくくてすみません。）

そこで例えば、セル番号A1に『う君』と入力すると、
セル番号A5の「う君」と
セル番号B5の「７０」と
セル番号C4の「う君」と
セル番号D4の「７５」だけが、
太字になるような方法を、お教え下さい。

わかりにくい説明で申し訳ございませんが、よろしくお願いいたします。

回答No.5

jindon · ベストアンサー

条件付書式ですか・・

A3からB列の最後まで選択 -> 挿入 -> 条件付書式 -> 数式が で
=$A3=$A$1
として書式設定。

C3からD列の最後まで選択 -> 挿入 -> 条件付書式 -> 数式が で
=$C3=$A$1
として書式設定

で氏名・得点両方太字になるはずです。

回答No.4

imogasi

VBAなら簡単です。
別の指定をすると、今までのBoldセルを解除します。
名前だけにしてます。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cl As Range
If Target.Address = "$A$1" Then
For Each cl In Range("a2").CurrentRegion
If cl = Target Then
cl.Font.Bold = True
Else
cl.Font.Bold = False
End If
Next
End If
End Sub

条件付書式は簡単にA3:C７を範囲指定して
数式が－式を　=A3=$A$1　にして、書式を設定すればよい。

お礼

みなさんありがとうございます。
ＶＢＡと、いうのはチンプンカンプンです。
したがって、条件付書式でいきたいのです。

しかし、みなさんの方法だと、「う」しか太字にならないのです。
その横のセル（得点）も太字に変わるようにしたのですが・・・。

よろしくお願いいたします。

回答No.3

jindon

VBAでは？
エクセル画面で、
該当シートのシートタブ（シートの名前部分）を右クリック -> コードの表示をクリック
右側の大きな空白部分に下のコードをコピーして張り付けて、Xをクリックしてエクセル画面に戻る。

A１の値が変わるたびに、該当者の氏名と得点が太字になります。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
With Target
If .Address <> "$A$1" Then Exit Sub
Range("a2").CurrentRegion.Font.Bold = False
For Each r In Range("a2").CurrentRegion
If r.Value = .Value Then
r.Resize(1, 2).Font.Bold = True
End If
Next
End With
End Sub

回答No.2

Ultramanvaio

misatoannaさんの代わりにお答えします
アクティブセルとはカーソルの位置のセルのことを指しているのです。
例題のA3のあ君のセルに条件式を入力するためにマウスをA3にクリックして持って行きますね。そこがアクティブセルになります。式を入力しようとしたそのセルのことです。ですのでこの場合=$A$1=A3と条件式を入力します

回答No.1

misatoanna

A3:A5とC3:C5を選択しての条件付書式
　数式が　=$A$1=A3 で「太字」
B3:B5とD3:D5を選択しての条件付書式
　数式が　=$A$1=A3 で「太字」

数式内の A3 の部分は、実際のアクティブセル（選択範囲で白く
反転しているセル）のアドレスを入力します。

補足

早速の回答ありがとうございます。
しかし、エクセル初心者の私には、ちょっと・・・。
条件付き書式までは理解できるのですが、アクティブセルがわからないのです。
すみません。