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

Step 3 データの新規登録

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

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

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

メニューに戻る

スポンサーリンク






実行画面

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

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

スポンサーリンク



実行コード

■メインシート

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

スポンサーリンク






メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved