EndモードにしないEndキー

EXCELでEndキーを押すと，ステータスバーに「END」モードの表示が出ます。ENDモードにしないで，アクティブセルと同じ行の一番右端（データの含まれている範囲で）に移動させるにはどうしたら良いのでしょうか？
EXCEL2000です。

No.4 ベストアンサー 回答者： pkh4989 回答日時： 2007/05/21 15:58

こんにちは。

以下のマクロで、試してみて下さい。

Private Sub auto_Open()
Application.OnKey "{END}", "Set_EndColumn"
End Sub
Sub Set_EndColumn()
wRow = ActiveCell.Row
Range("IV" & wRow).End(xlToLeft).Select
End Sub

'マクロ貼付
(1) Alt+F11 (ツール → マクロ → Visual Basic Editor) →「挿入」→「標準モジュール」で表示される画面に貼り付け
(2) Excelを再起動して試しください。

No.3 回答者： Wendy02 回答日時： 2007/05/20 01:49

こんばんは。

個人用マクロブックの、VBE の「ThisWorkbook」というところに、以下を貼り付けて、Excelを再起動すれば、設定されます。
ただし、IV列にデータがある場合は、無視されます。

Private Sub Workbook_Open()
　Application.OnKey "{END}", "ThisWorkbook.JumpMacro"
End Sub
Sub JumpMacro()
　If ActiveCell.End(xlToRight).Column < 256 Then
　　 ActiveCell.End(xlToRight).Select
　End If
End Sub

No.2 回答者： uro_tan 回答日時： 2007/05/20 00:20

Ctrl + →ではどうでしょうか。

この回答へのお礼

回答ありがとうございます。
その方法を試してみましたが，同じ行に1つでも空白セルがあると，その直前で止まってしまいます。”データの含まれている範囲”には空白もところどころにあるので，意図している動きではないんです。

お礼日時：2007/05/20 19:18

No.1 回答者： hikari_ab 回答日時： 2007/05/20 00:12

ｆ５キーでジャンプ、ではだめですか？

この回答へのお礼

回答ありがとうございます。
教えてくださった方法では，キー1つで移動できないので・・・。

ありがとうございます。

お礼日時：2007/05/20 19:14