Lỗi code---Xác định array

[phuvacgach]

If d = 2 Then
password.Show
Else:
Dim arrXuat()
Dim DataNoPxuat As Range
Set DataNoPxuat = wsD.Range("I3:I" & d)
ReDim arrXuat(1 To d - 2, 1)
arrXuat = DataNoPxuat
If IsInArray(SoPxuat, arrXuat) Then
MsgBoxUni UNC("Sè phiÕu nµy ®· ®­îc l­u")
Else:
password.Show
End If
End If

Em chạy đến dòng code này cứ báo lỗi chô arrXuat = DataNoPxuat, bác nào biết tại sao không chỉ em vs.
Bình thưởng chạy sub khác vẫn ổn, em làm như trên luôn mà sao giờ không được.
Cảm ơn các bác.

 

[tintam7251]

Theo mình, câu lệnh arrXuat = DataNoxuat đâu có vấn đề gì. Tốt nhất là bạn đưa code đầy đủ lên thì người khác mới có thể giúp bạn được.

 

[thanhlanh]

Em chạy đến dòng code này cứ báo lỗi chô arrXuat = DataNoPxuat, bác nào biết tại sao không chỉ em vs.
Bình thưởng chạy sub khác vẫn ổn, em làm như trên luôn mà sao giờ không được.
Cảm ơn các bác.

Có lẽ do d < 4
Bạn thử đặt msgbox d phía trước thử xem?