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

ワークブックコード

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

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に登録済みレコード数が表示されます。