[[20040611091533]]　『文字入力後、Enterを押して違うセルに飛ぶ方法』（すがやっち）　ページの最後に飛ぶ

『文字入力後、Enterを押して違うセルに飛ぶ方法』（すがやっち）

早速質問させていただきます。宜しくお願いします。

A1に文字(ひらがな)を入力します。Enterで確定後、再度Enterを押すと、通常ですと

すぐ下のA2にカーソルが移動しますが、それをC1に移動するようにしたいのです。

おそらくマクロでそのような設定が出来ると思いますが、方法を教えてください。

もう一つ、C1にカーソルが移動した後に、同時に、A1に入力した文字列が消えるような

設定も、もし出来るのであれば教えていただきたいです。

 おはようございます。
 すがやっちさんは何を目論んではるんやら？
 下のコードを標準モジュールにコピペして
 jnpを実行すると文字入力のEnterキーにお望みのマクロが（右２個のセルに飛ぶ）
 割り当てられます。
 end_jnpで元に戻ります。
 試しに遊んでみておくんなはれ。
 　　　（弥太郎）
 '---------------------------
 Sub jnp()
    Application.OnKey "~", "macro"
 End Sub
 '------------------------   
 Sub macro()
    ActiveCell.Value = ""
    ActiveCell.Offset(, 2).Select
 End Sub
 '---------------------------
 Sub end_jp()
    Application.OnKey "~"
 End Sub

弥太郎さん、ありがとうございます。

標準モジュールに設定ということですが、このマクロはシート単位で設定しても大丈夫

でしょうか？

それと、事情が変わりまして、カーソル移動後に、元のセルに入力した値は消さない

方向になりました。

具体的には、A3に文字列(ひらがな)を入力して、漢字に変換後確定してからEnterを

押すと、M3にカーソルが飛ぶようにマクロの設定をしたいと思います。

(2つ隣ということではなく、具体的にセルを指定してそこにカーソルを飛ばす

ようなマクロがあれば、教えていただきたいのです)

わがままを申し上げて申し訳ないですが、宜しくお願いいたします。

 Sheet毎に設定するんでっか？
 ほんなら該当するシートモジュールに貼り付けておくんなはれ。
 そしてコードの（文字列とちゃいまっせぇ）’を交互に外して（[m3]から始まる行
 とApplicationから始まる行とを）都合のええ方を使うてくだはい。
 　　　　　　（弥太郎）
 '----------------------------
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address <> "$A$3" Then Exit Sub
        '[m3].Select '←　単にM3に飛ぶ場合
        'Application.Goto reference:=[m3], scroll:=True
                    '↑M3が左上に来るように飛ぶ
 End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20040611091533]] 『文字入力後、Enterを押して違うセルに飛ぶ方法』（すがやっち） ページの最後に飛ぶ

[[20040611091533]]　『文字入力後、Enterを押して違うセルに飛ぶ方法』（すがやっち）　ページの最後に飛ぶ