Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
入力セルのジャンプについて
投稿日時: 19/03/27 20:53:22
投稿者: はじめて

お世話になります。
 
各列の5行にわたりデータを入力しています。今後10行以上に増えることも考えています。(マクロは以下の通りです。)
これは1列の入力が終わりその列の6行目にカーソルがある場合に、「F1」キーを押すことにより次の列の1行目にカーソルが飛び入力可能となります。データが多くなった場合を考え、その列の最後のセルまでカーソルを移動させないで、途中でも次の列の1行目をアクティブセルとすることが出来ないかと思っています。方法はないでしょうか。
 
Sub auto_open()
 
    Application.OnKey "{F1}", "入力セル"
 
End Sub
 
Sub 入力セル()
  
    Selection.Offset(rowoffset:=-5, columnoffset:=1).Select
   
End Sub

回答
投稿日時: 19/03/27 21:41:01
投稿者: simple

 Cells(1, ActiveCell.Column + 1).Select
といったことでしょうか?

投稿日時: 19/03/27 22:04:04
投稿者: はじめて

simple さん
 
早速ありがとうございます。
正常に動作しました。 Cells(1,のところの数字を変えることにより最初の行を変えることも出来ました。
データ量の変更にも対応できます。
重ねてお礼申し上げます。