【VBA】ユーザーフォームからデータベースを操作する【入力作業を効率化できます】

[@ポイポイドラドラ]

いつも、ありがとうございます。
とても参考になります。
大助かりです。

[@瀬崎久雄-w7w]

いつも楽しく拝見しています。削除するとNoが欠番になります。これを回避して常に連番にするにはどのようにすれば良いのでしょうか

[@IT-gx8sf]

コメントありがとうございます！
欠番をなくしたい場合は、「連番を振り直す」ということで解決できるかと思います。
値を削除するVBAコードに、連番を振り直すVBAコードを追加したVBAコードは次のようになります。
Private Sub CommandButton3_Click()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = Val(TextBox2.Value) Then
Rows(i).Delete
End If
Next
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
ListBox1.Clear
'下記を追加
j = 0
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
j = j + 1
Cells(i, "A") = j
Next
End Sub
データベースの「No」を2行目から最終行までをループして、連番を振っていくというVBAコードを追加しています。
参考になればと思います（^^）

[@瀬崎久雄-w7w]

有難う御座います。忙しい所本当にありがとうございました。今後も宜しくお願い致します。先生もコロナに気を付けて頑張って下さい。