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



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

Copyright (c) 2006 excel_ninpou All rights reserved.