VBで、開いているExcelシートのアクティブセルの情報を取得

VBのモジュールで、開いているExcelシート上のアクティブセルの座標、値を
取得するにはどうすればよろしいのでしょうか。まずVBモジュールと参照対象のExcelシートを起動します。次ににExcelシート上のあるセルを選択し、VBモジュールの[セル情報]等のボタンにより、選択されているセルの座標、値をメッセージボックスに表示したいのです。よろしくお願いいたします。

No.1 ベストアンサー 回答者： sgh 回答日時： 2002/02/19 13:11

下記コードで実現できそうです。

Sub test()
Dim t As Range
Set t = Application.ActiveCell
MsgBox t.Address, vbInformation + vbOKOnly, "座標"
End Sub

この回答への補足

Rangeというデータ型がVB6.0ではコンパイルエラーになるのですが？

補足日時：2002/02/19 13:26

この回答へのお礼

Range データ型は Excel.Rangeで定義すればよろしかったのですね。
ありがとうございました。完璧です。

お礼日時：2002/02/19 14:50