[[20061008220857]]　『アクティブセル位置の取得について』（わかば）　ページの最後に飛ぶ

『アクティブセル位置の取得について』（わかば）

名前ボックスにセルの位置（アドレス）が表示されます。
これを任意のセルに名前ボックスの様に、表示したいと思っています。

Sub ca()

　Range("A1")=ActiveCell.Address(False,False)

End Sub

これでは、実行したときにしか表示しません。

Function ca()

　ca = ActiveCell.Address(False, False)

End Function

これだと、関数を設定したセルでしか表示されません。

セルを移動する度、名前ボックスのように自動的に名前の表示が切り替わるには、

どのようにしたらよいのか、アドバイスお願いしたします。
できれば、関数として使用したいですので、

"Function"だと助かります。よろしくお願いいたします。

 やりたいことが見えてないので、外してるかもですが。。。
　
 標準モジュール
'-----------------
Function ca()
    ca = ActiveCell.Address(False, False)
End Function
　
 シートモジュール
'-----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
End Sub
　
 （キリキ）（〃⌒o⌒)b

 ご返答、誠にありがとうございます。
 ＞．．．外してるかも．．．
 そんなことはありません、このようにしたかったのです。
 しかしながら、シートモジュールで、イベントの感知を
 （セルの移動、→やEnter等で．．．）させていますが、
 ユーザー定義関数で、イベントを感知させ、セルのアドレスを戻す。
 そんなことはできないものでしょうか？
 是非、ご指導下さい。よろしくお願いします！

 こんな感じでもよろしいのでしょうか？
 ※Function は使用していません。
　
Dim RC As Integer
Sub auto_open()
    EntKey
End Sub
Sub EntKey()
    Application.OnKey "~", "ENTER"
    Application.OnKey "{ENTER}", "ENTER"
    Application.OnKey "{UP}", "UP"
    Application.OnKey "{DOWN}", "ENTER"
    Application.OnKey "{RIGHT}", "RIGHT"
    Application.OnKey "{LEFT}", "LEFT"
End Sub
Sub ENTER()
    RC = 1
    Cal
End Sub
Sub UP()
    RC = 2
    Cal
End Sub
Sub RIGHT()
    RC = 3
    Cal
End Sub
Sub LEFT()
    RC = 4
    Cal
End Sub
Sub Cal()
    On Error Resume Next
    Select Case RC
        Case 1: ActiveCell.Offset(1, 0).Select
        Case 2: ActiveCell.Offset(-1, 0).Select
        Case 3: ActiveCell.Offset(0, 1).Select
        Case 4: ActiveCell.Offset(0, -1).Select
    End Select
    Range("A1") = ActiveCell.Address(0, 0)
    '↑
    '表示させたいセルに変更してください。
End Sub
　
キー命令をキャンセルする場合は、下記を実行
Sub End_EntKey()
    Application.OnKey "~"
    Application.OnKey "{ENTER}"
    Application.OnKey "{UP}"
    Application.OnKey "{DOWN}"
    Application.OnKey "{RIGHT}"
    Application.OnKey "{LEFT}"
End Sub
　
 追加
　上記コードをコピペの後、一旦ファイルを保存し立ち上げてからお試しください。
 （キリキ）（〃⌒o⌒)b

 ありがとうございます。
 かさねて、お礼申し上げます。
 問題は解決しました。

コメント返信：

[ 一覧(最新更新順) ]

[[20061008220857]] 『アクティブセル位置の取得について』（わかば） ページの最後に飛ぶ

[[20061008220857]]　『アクティブセル位置の取得について』（わかば）　ページの最後に飛ぶ