求助！！VBA文本框判断重复值时报错

fengziiiiii

我需要在输入日期的时候判断这个日期在A列有没有重复过
当A列没有值的时候，代码就会报错，报错如下

当A列有日期的时候，即如下图

我再输入一个重复的日期，就能正常运行，如下图

我是菜鸟，不知道问题出在哪里，求大神指教。
附件： 工作簿2.zip (15.77 KB, 下载次数: 1)

2020-1-18 23:08 上传

点击文件名下载附件

1. Private Sub CommandButton1_Click()
   
2. Dim wks As Worksheet
   
3. Dim addnew As Range
   
4. Set wks = Sheet1
   
5. Set addnew = wks.Range("A65356").End(xlUp).Offset(1, 0)
   
6. If rq.Text = "" Then
   
7. MsgBox "请输入日期"
   
8. ElseIf Not IsDate(rq.Text) Then
   
9. MsgBox "日期格式不正确"
   
10. rq.SetFocus
    
11. End If
    
12. Dim r As Integer
    
13. arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    
14. For i = 1 To UBound(arr)
    
15. If arr(i, 1) = rq.Text Then r = i - 1
    
16. Next
    
17. If r <> 0 Then
    
18. judge = MsgBox("此日期已登记", vbYesNo)
    
19. ElseIf judge = vbNo Then Exit Sub
    
20. r = Cells(Rows.Count, 1).End(xlUp).Row
    
21. Else
    
22. addnew.Offset(0, 0).Value = rq.Text
    
23. End If
    
24. End Sub

复制代码

excel海

你A列没日期的时候,arr=[A1],是个字符串,不是数组,所以出错

fengziiiiii

excel海 发表于 2020-1-18 23:33
你A列没日期的时候,arr=[A1],是个字符串,不是数组,所以出错

谢谢回复，但是我看的好懵，没明白。

fengziiiiii

excel海 发表于 2020-1-18 23:33
你A列没日期的时候,arr=[A1],是个字符串,不是数组,所以出错

应该怎么改？谢谢