求助，为什么这句老出错

huhuaping1973

Private Sub CommandButton1_Click()
i = Application.WorksheetFunction.Match(Sheets("SHEET1").[A20], Sheets("SHEET1").Range("A3:A13"), 0)
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox "更改信息不齐全!", 1 + 64, "系统提示"
Else
   If Sheets("SHEET1").[B20] = TextBox1.Text Then
      If TextBox3.Text = TextBox2.Text Then
      Sheets("SHEET1").Cells(i, 2).Value = TextBox2.Text
      MsgBox "密码更换成功!,请牢记密码!"
      Unload UserForm4
      Else
      MsgBox "确定密码输入有误,请重新输入!", 1 + 64, "系统提示"
      TextBox3.SetFocus
      End If
    Else
    MsgBox "原密码输入错误,请重新输入!", 1 + 64, "系统提示"
    TextBox1.SetFocus
    End If
End If
End Sub




i = Application.WorksheetFunction.Match(Sheets("SHEET1").[A20], Sheets("SHEET1").Range("A3:A13"), 0)

bosslxt

因为A3:A13区域不存在A20单元格的值，找不到就会出错了。