EndモードにしないEndキー

質問

EndモードにしないEndキー

役に立った：0件

質問者：bilingual
投稿日時：2007/05/20 00:04
困り度：

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

この質問への回答は締め切られました。

こんにちは。

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

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ベストアンサー10pt

回答者：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

通報する