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

Step 7 最後のレコードへ移動するボタンを追加

入力フォームにレコードの移動ボタンを追加します。
始めに、最後のレコードへ移動するボタンを設置します。
Excelの最終行からデータがある位置をEnd(xlUp).Rowで検索します。
見つかった行が1ならばデータは登録されていないことになります。

メニューに戻る

スポンサードリンク



実行画面

■入力フォーム

「最後へ >>」のコマンドボタンを追加しました。
クリックすると最後のレコードを捜し、見つかれば表示します。見つからなければ「データが登録されていません。」とメッセージが表示されます。
最後のレコードへ移動した入力フォーム

スポンサードリンク



実行コード

■ InputForm

'最後へのボタン
Private Sub CommandButton4_Click()
    Dim last As Long
    
    '最後の登録セルを捜す
    last = Workbooks("Data.xls").Worksheets("Sheet1").Range("A65536").End(xlUp).Row
    If last > 1 Then
        'ID
        TextBox1.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 1)
       '日付
        TextBox2.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 2)
        'メモ
        TextBox3.Value = Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 3)
    Else
        MsgBox "データが登録されていません。"
    End If
End Sub

スポンサードリンク





メニューに戻る

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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved