備忘録

エクセルでＤＢ（データーベース）の入力方法

動画どおり入力していくと、入力済み表を確認しながら修正表に入力していく手順の必要性を感じ別途入力済み画面をVlookup関数で作成した。

修正画面に使われた元のマクロ部分をエクスポートし標準モジュールを保存(basファイル)する。モジュールを応用しながら修正表を作成、ようやく横長列の離れたセルに入力を終えた。とても参考になった。感謝の至りだ。

ファイル保存時にマクロ有効ブックで保存することが必須だ。

Sub 登録()
'入力フォームからDBへ
  Dim 管理番号 As Long
  管理番号 = Sheets("フォーム").Cells(3, 3)
  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 0) = 管理番号

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 1) = Sheets("フォーム").Cells(4, 3)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 2) = Sheets("フォーム").Cells(4, 5)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 3) = Sheets("フォーム").Cells(5, 3)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 4) = Sheets("フォーム").Cells(5, 5)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 5) = Sheets("フォーム").Cells(6, 3)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 6) = Sheets("フォーム").Cells(6, 5)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 7) = Sheets("フォーム").Cells(7, 3)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 8) = Sheets("フォーム").Cells(7, 5)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 9) = Sheets("フォーム").Cells(8, 3)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 10) = Sheets("フォーム").Cells(8, 5)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 11) = Sheets("フォーム").Cells(9, 3)

  Sheets("DB").Cells(管理番号 + 1, 1).Offset(0, 12) = Sheets("フォーム").Cells(9, 5)

 

End Sub