Excelで取引先表を作ってみよう

Step 10 登録レコード数の表示

メニューに戻る

スポンサーリンク






ワークブックコード

下のコードに変更してください。

Option Explicit

Private Sub Workbook_Open()
    Dim ln As Long
    
    bDataChangeFlag = False
    
    ln = GetRecordCout
    Sheets("メイン").Range("E3") = "( /" & ln & " )"
    Sheets("メイン").ToggleButton2.Value = True
    Sheets("メイン").ToggleButton1.Value = False
End Sub

標準モジュールコード

下のコードを追加してください。

Public Function GetRecordCout() As Long
   Dim last As Long
    Dim i As Long
    Dim count As Long
    Dim minrow As Long
    
    '捜す最小の行
    minrow = 5
    '最終行を取得
    last = Sheets("T取引先").Range("A65536").End(xlUp).Row
    'データが入力されている場合
    If last >= minrow Then
        count = 1
        '1行づつ捜す
        For i = last - 1 To minrow Step -1
            'データが入力されている場合
            If Sheets("T取引先").Range("A" & i) <> "" Then
              count = count + 1
            End If
        Next
    End If
    '結果の表示
    GetRecordCout = count
End Function

スポンサーリンク



メインフォーム

E4に登録済みレコード数が表示されます。
登録済みレコード数が表示

スポンサーリンク






メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved