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

Option Explicit

Private Sub Workbook_Open()
    Dim RecordCount As Long

    bDataChangeFlag = False
    
    RecordCount = GetRecordCout
    Sheets("メイン").Range("E3") = "( /" & RecordCount & " )"
    Sheets("メイン").Range("E3").Font.Color = vbBlack
    Sheets("メイン").Range("D3:D14") = ""End Sub

標準モジュールコード

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

Option Explicit

'データ変更の有無
Public bDataChangeFlag As Boolean
'抽出結果の修正レコード
Public EditRecordNo As Long

抽出フォームコード

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

'修正ボタン
Private Sub CommandButton7_Click()
    EditRecordNo = TextBox14
    Unload Me
End Sub

メインフォームコード

'抽出ボタン
Private Sub CommandButton7_Click()
    Dim srow As String
    Dim tRange As Range
    
    Frm抽出.Show
    If EditRecordNo <> 0 Then
        '1行目から検索
        Set tRange = Sheets("T取引先").Columns(1)
        Set tRange = tRange.Find(What:=EditRecordNo, LookIn:=xlValues, LookAt:=xlWhole)
        If Not tRange Is Nothing Then
            srow = tRange.Address(RowAbsolute:=False, ColumnAbsolute:=False)
            ExDataDisp srow
        End If
    End If
End Sub