2つのブックで、1レコードの3列の値が同じ行のセル選択するには？

質問

2つのブックで、1レコードの3列の値が同じ行のセル選択するには？

Windows XP　Home Edition
Office XP Personal 2002
Excel 2002

画像のように、
左.xls　のB5（赤色セル）を選択したら　
右.xls　のB10（B9ではありません）を選択させたいのですが、
うまく行きません。
左右のブックの赤色セルの各行番号は同じではありません。

1レコードの「 B列 と C列 と D列 」の「3列の値が同じ行のセル」を選択したいのです。
この行は、必ず1つしかありません。
しかし「 B列 と C列 」「 B列 と D列 」などの「2列の値が同じ行のセル」は複数あります。

また、
左.xls　のB6（青色セル）を選択した場合は、　
右.xls　のB12（B11ではありません）を選択させたいのです。

Ｂ列（ 日付、実際には西暦 2010/05/05 です ）だけは、全く同じデータとなっております。

●2つのブックを左右に並べて、
　同じ行データを閲覧したいわけでございます。

下記コードは、B列だけしか参照できません。

ややこしくて、恐れ入りますが、
何卒、ご教示のほどをお願い致します。

Sub TEST()
Const wBook = "右.xls" '表示させたいBook名
Const wSht = "Sheet1" '表示させたいSheet名
Dim Target As Range
Dim TargetVa As Integer

TargetVa = ActiveWindow.ActiveCell.Value

With Workbooks(wBook).Sheets(wSht)
　　For Each Target In .Range("B1", .Range("B65536").End(xlUp))
　　　If Target.Value = TargetVa Then
　　　　Workbooks(wBook).Activate
　　　　Sheets(wSht).Activate
　　　　Target.Cells.Select

　　　End If
　　Next Target
　End With
End Sub

回答No.1

keithin · ベストアンサー

では，あまりひねらずシンプルに。

準備追加：
TargetVa = ActiveWindow.ActiveCell.Value
TargetC = ActiveWindow.ActiveCell.offset(0, 1).Value
TargetD = ActiveWindow.ActiveCell.offset(0, 2).Value

変更前：
If Target.Value = TargetVa Then

変更後：
If target = targetva and target.offset(0, 1) = targetC and target.offset(0, 2) = targetD then

などのように。

お礼

早速のご回答、誠に有難うございました。
質問コードが使えるんですね。
使えないと思っておりました。

回答No.3

kmetu

#2です

.Offset(1, 0).Offset(2, 0)じゃなくて.Offset(0, 1),.Offset(0, 2)
でした

回答No.2

kmetu

If Target.Value = TargetVa Then
のところを
If ActiveWindow.ActiveCell.Value & ActiveWindow.ActiveCell.Offset(1, 0).Value & ActiveWindow.ActiveCell.Offset(2, 0).Value _
= Target.Value & Target.Offset(1, 0).Value & Target.Offset(2, 0).Value Then

とかどうですか。

お礼

早速のご回答、誠に有難うございました。
このような、記述方法もあるのですね、
大変参考になりました。
gooの画面が変わったようで、次点がつけられなくて、申し訳ありません。