Excelで自動的に入力した後、次のセルに移動するにはどうすればよいですか？

この記事では、ExcelでEnterキーを押さずに、カーソルを次のセルに自動的に移動してシーケンス番号を入力する方法を紹介します。

VBAでEnterキーを押さずに4桁の入力を行うと、次の右のセルに自動的に移動します

4桁のシリーズをKutoolsforExcelで自動入力

VBAでEnterキーを押さずに4桁の入力を行うと、次の右のセルに自動的に移動します

これは、Enterキーを押さなくても、4桁の入力後に次の右のセルに自動的に移動するのに役立つVBAコードです。

1。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール 下のVBAコードをに貼り付けます モジュール 脚本。 スクリーンショットを参照してください：

VBA：4桁の数字を入力すると、次の右のセルに自動的に移動します。

Sub FourCharEntry1()
'UpdatebyExtendoffice20160614
    Dim xStr As String
    Dim I As Integer
    Dim K As Integer
    xStr = Application.InputBox("Enter string", "Kutools for Excel", , , , , , 2)
    K = 0
    Application.ScreenUpdating = False
    For I = 1 To Len(xStr) Step 4
        ActiveCell.Offset(0, K) = "'" & Mid(xStr, I, 4)
        K = K + 1
    Next
    Application.ScreenUpdating = True
End Sub

3。 押す F5 コードを実行するためのキー、および Kutools for Excel ダイアログがポップアップし、区切り文字なしでシーケンス番号を入力できます。 スクリーンショットを参照してください：

4。 クリック OK。 これで、4桁ごとがXNUMXつのセルに左から右に配置されました。

先端：セルに5桁、6桁…を入力する場合は、コード内で4から5、6などに変更できます。

4桁のシリーズをKutoolsforExcelで自動入力

連絡先 Kutools for Excel –便利なツールで、Enterキーを押さなくても、シリーズ番号を範囲に自動入力できます。 シーケンス番号を挿入 ユーティリティ。

後 無料インストール Kutools for Excel、以下のようにしてください：

1.シリーズに入力する列または行を選択し、をクリックします クツール > インセット > シーケンス番号を挿入。 スクリーンショットを参照してください：

2。 の中に シーケンス番号を挿入 ダイアログ、クリック 新作 ダイアログを展開します。 スクリーンショットを参照してください：

3.次に、必要に応じてシリーズを指定します。 スクリーンショットを参照してください：

4。 クリック Add > 充填範囲、次に、選択した範囲にシーケンス番号が自動的に入力されます。

先端：With シーケンス番号を挿入 ユーティリティ、繰り返しシリーズを挿入することもできます。 小切手 終了番号 ダイアログのオプションで、必要な終了番号を右側のテキストボックスに入力すると、シリーズ番号が10個ごとに繰り返し入力されます。 スクリーンショットを参照してください：