Excel - データの新規登録｜カード型データベースを作ってみよう

入力フォームの「登録」ボタンがクリックされた場合、入力値をデータファイルに書き込みます。

・他のExcelファイルのシート指定方法
　Workbooks(Excelファイル名).Worksheets(シート名)

・最終空行の取得方法　（A行を調査しています）
last = Workbooks(Excelファイル名).Worksheets(シート名).Range("A65536").End(xlUp).Row + 1

実行画面

■入力フォーム
「登録」ボタンをクリックします。
カードに入力

■データファイル
2行目に入力したデータがセットされています。
ID・日付・メモが表示されている

実行VBAコード

■メインシート

Option Explicit

Private Sub CommandButton1_Click()
    Dim last As Long
    Dim lid As Long

    '未入力の最終行を調査
    last = Workbooks("Data.xls").Worksheets("Sheet1").Range("A65536").End(xlUp).Row + 1

    lid = Val(Workbooks("Data.xls").Worksheets("Sheet1").Cells(last - 1, 1))
    TextBox1.Value = lid + 1
    'ID
    Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 1) = TextBox1.Value
    '日付
    Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 2) = TextBox2.Value
    'メモ
    Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 3) = TextBox3.Value

End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

カード型データベースを作ってみよう

Step 3 データの新規登録

実行画面

実行VBAコード

Step 3　データの新規登録