エクセルVBAで自動的に連番をつける方法

住所録や商品管理をエクセルでやっていませんか？

エクセル住所録では、一番左の列は「通し番号」として連番を割り振っています。

とりっぷぼうる

連番＝顧客数＝顧客番号として管理しているからです。

名前を入力すると、通し番号が自動的に付与されると便利だと思いませんか？

名前登録すると自動連番が付与される
1. 使うVBAはDo While～Loop

名前登録すると自動連番が付与される

エクセルシートのB列に直接名前を入力する方法でもいいのですが、せっかくなのでユーザーフォームを使って名前を入力しましょう。

上の図のように、テキストボックスにに名前を入れて、新規登録ボタンを押すとA列に自動的に「通し番号」1から順に「連番」が割り振られるようにします。

住所録なので図のように生年月日・住所・電話番号などの項目がありますが、ここでは省略します。

エクセルVBAで住所録入力フォームを作る方法

エクセルで住所録などを入力や修正するのに探すのって面倒ですよね？ユーザーフォームを使えば一瞬で検索・修正ができるのに、使わないなんて損していると思いませんか？

本来は入力フォームを使って各項目を入力するのが普通ですが、分かりやすくするために名前だけにしてみました。

使うVBAはDo While～Loop

ここではユーザーフォームに配置したコマンドボタンにVBAコードを書いていきます。

但し、1行目に図のように名前などの項目があることが前提になっていますよ！

自動連番VBA

Private Sub CommandButton1_Click()
If Range(“B1”).Offset(1).Value = “” Then
Range(“B1”).Offset(1).Value = TextBox1.Value
Else
Range(“B1”).End(xlDown).Offset(1).Value = TextBox1.Value
End If
Dim i As Integer
i = 1
Do While Cells(i + 1, “B”).Value <> “”
Cells(i + 1, “A”).Value = i
i = i + 1
Loop
End Sub

VBA解説