Excel2007で顧客管理ソフトを作ってみよう

'次へボタン
Private Sub CommandButton3_Click()
    Dim sr As String
    
    If Range("E3") = "" Then
        CommandButton1_Click
    Else
        If IsNumeric(Sheets("一覧").Range("CT5")) Then
            If ExDataChangeMsg = False Then
                Exit Sub
            End If
            
            ExCopyToSheetCheck Sheets("一覧").Range("CT5"), sr
            ExDataDisp sr
        Else
            Beep
        End If
    End If
End Sub


'IDからセル位置を探す
Private Function ExCopyToSheetCheck(id As Long, ByRef srow As String) As Boolean
    Dim lrow As Long
    Dim tRange As Range
    Dim s As String
    
    srow = ""
    ExCopyToSheetCheck = False
    s = ""
    
    lrow = Sheets("一覧").Range("A1048576").End(xlUp).Row
        
    If lrow = 1 Then
        srow = "A2"
    Else
        Set tRange = Sheets("一覧"). _
            Range("A2", Sheets("一覧").Range("A2").Offset(rowOffset:=lrow)). _
            Find(What:=id, LookIn:=xlValues) '
        If Not tRange Is Nothing Then
            srow = tRange.Address
            ExCopyToSheetCheck = True
        Else
            srow = "A" & lrow + 1
        End If
    End If
End Function