Lỗi định dạng ngày tháng khi dùng hàm format trong VBA ?

[Nguyen Rem]

Em chào các anh chị
Em lại gặp một lỗi trong quá trình viết code^^ mong các anh cùng em khắc phục lỗi này nhé :>
Hiện tại em có một file và muốn chỉnh sửa định dạng ngày ở cột A và em có viết code như sau:

Nhưng sau khi chạy xong thì :
Cứ ngày nào có số 0 ở đầu thì nó nhảy sang bên tay phải , còn cứ ngày nào có số đầu tiên mà khác không thì ngày đó bị nhảy sang bên trái mặc dù em kiểm tra tất cả đều là định dạng "Date"

Em không rõ nguyên nhân vì sao định dạng ngày nó bị nhảy như vậy . Mong các anh chị giải thích và khắc phục lỗi dựa vào file code em viết giúp em :> ( Em lưu code ở trong Module 1)

 

[SA_DQ]

Bạn cho mình hỏi, tại sao khi lastRow lớn hơn 7.000 dòng thì khi chạy báo lỗi type mismatch, mình có gắn file đính kèm bạn xem giúp mình nhé

Sub Format1()
 Dim Arr(), lastRow As LongLong, R As Long
 On Error GoTo LoiCT
 lastRow = Cells(Rows.Count, "A").End(xlUp).Row
 If lastRow < 2 Then Exit Sub
 Arr = Sheet1.Range("A2:A" & lastRow + 1).Value  ' lay du 1 dong
 For R = 1 To UBound(Arr) - 1               'Không Xét Dong Lây Du  '
    Arr(R, 1) = DateSerial(Mid(Arr(R, 1), 7), Mid(Arr(R, 1), 4, 2), Mid(Arr(R, 1), 1, 2))
 Next R
 Sheet1.Range("A2").Resize(UBound(Arr, 1)).Value = Arr
GPE:
    MsgBox R, , UBound(Arr()):              Exit Sub
LoiCT:
 If Err = 13 Then
    Cells(R, "A").Interior.ColorIndex = 38
    Resume Next
 Else
    MsgBox Err:                             GoTo GPE
 End If
End Sub

& chúc bạn vui!

 

[ptm0412]

On Error GoTo LoiCT

Chỉ cần If len(Arr(R, 1)) > 4 Then

(vì dùng hàm Mid chứ dùng cách khác thì chỉ cần len > 0 không chừng)