エクセル 別シートのアクティブセルのアドレス

エクセルに詳しい方、教えてください。

(1)　シートＡのアクティブセルのアドレスをシートＢのＣ２０のセルに表示したい
　
(2)　シートＡのアクティブセルの内容をシートＢのＤ２０に表示させたい

以上、しーとＢのＣ２０とＤ２０にはどんな関数を入れたらいいですか？
よろしくお願いいたします。

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2007/06/06 10:34

関数では無理だと思います。

以下の手順をお試しください。

１．シートAのタブを右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。
ただし、Sheets("SheetB")のSheetBは、正しいシートBの名前に直してください。

'*****ここから下をコピペ*****

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Sheets("SheetB").Range("C20") = Target.Address(0, 0)
Sheets("SheetB").Range("D20") = Target.Value
End Sub

'*****ここより上までをコピペ*****

３．AltキーとF11キーを同時に押してワークシートへもどります。

これでご希望のとおりになったと思います。

この回答へのお礼

ありがとうございます。
できました！

お礼日時：2007/06/06 12:23