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

'削除ボタン
Private Sub CommandButton8_Click()
    Dim ans As Integer
    Dim lrow As Long
    Dim tRange As Range
        
    If NowDispId = 0 And bDataChangeFlag = False Then
        Beep
        Exit Sub
    End If
    
    Beep
    ans = MsgBox("削除してもよろしいですか？", vbOKCancel, "取引先表")
    If ans = vbCancel Then
        Exit Sub
    End If
        
    If Range("D3") = "" Then
        ExInputClear
    Else
        '1行目から検索
        Set tRange = Sheets("T取引先").Columns(1)
        Set tRange = tRange.Find(What:=Range("D3"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not tRange Is Nothing Then
            lrow = tRange.Row
            Sheets("T取引先").Range("A" & lrow & ":" & "L" & lrow) = ""
        End If
        ExInputClear
    End If
End Sub