Lỗi gán giá trị của biến kiểu Date vào ô trong excel

[LEHOC]

Em có đoạn mã bị lỗi ở dòng

Sh1.Range("A" & i).Value = Format(StartDate, "dd-mm-yyyy")

mà không biết cách sửa, anh/chị nào biết chỉ em với ạ.
Giá trị trong ô A11: "Từ ngày 01-07-2019 đến ngày 05-08-2019"
Đoạn mã của em ạ:

Sub Calling()
    Dim test
    Dim StartDt, EndDt As String
    Dim RngStart As String
    Dim i As Integer
    Set Sh2 = Sheet2
    RngStart = Sh2.Range("B1").End(xlDown).End(xlToRight).Address()
    i = Sh2.Range(RngStart).Row + 1
    StartDt = Format(Mid(Sh2.Range("A11"), 9, 10), "dd/mm/yyyy")
    EndDt = Format(Mid(Sh2.Range("A11"), 29, 10), "dd/mm/yyyy")
'    MsgBox StartDt & " - " & EndDt
    test = getDates(StartDt, EndDt, i)
End Sub
Function getDates(ByVal StartDate As Date, ByVal EndDate As Date, ByVal i As Integer) As Variant
    Dim varDates()      As Date
    Dim lngDateCounter  As Long
    ReDim varDates(1 To CLng(EndDate) - CLng(StartDate))
    For lngDateCounter = LBound(varDates) To UBound(varDates)
        varDates(lngDateCounter) = CDate(StartDate)
        Sh2.Range("A" & i).Value = Format(StartDate, "dd-mm-yyyy")
        i = i + 1
        StartDate = CDate(CDbl(StartDate) + 1)
    Next lngDateCounter
    getDates = varDates
ClearMemory:
    If IsArray(varDates) Then Erase varDates
    lngDateCounter = Empty
End Function

Em cảm ơn anh/chị!

 

[HieuCD]

Em có đoạn mã bị lỗi ở dòng

Sh1.Range("A" & i).Value = Format(StartDate, "dd-mm-yyyy")

mà không biết cách sửa, anh/chị nào biết chỉ em với ạ.
Giá trị trong ô A11: "Từ ngày 01-07-2019 đến ngày 05-08-2019"
Đoạn mã của em ạ:

Sub Calling()
    Dim test
    Dim StartDt, EndDt As String
    Dim RngStart As String
    Dim i As Integer
    Set Sh2 = Sheet2
    RngStart = Sh2.Range("B1").End(xlDown).End(xlToRight).Address()
    i = Sh2.Range(RngStart).Row + 1
    StartDt = Format(Mid(Sh2.Range("A11"), 9, 10), "dd/mm/yyyy")
    EndDt = Format(Mid(Sh2.Range("A11"), 29, 10), "dd/mm/yyyy")
'    MsgBox StartDt & " - " & EndDt
    test = getDates(StartDt, EndDt, i)
End Sub
Function getDates(ByVal StartDate As Date, ByVal EndDate As Date, ByVal i As Integer) As Variant
    Dim varDates()      As Date
    Dim lngDateCounter  As Long
    ReDim varDates(1 To CLng(EndDate) - CLng(StartDate))
    For lngDateCounter = LBound(varDates) To UBound(varDates)
        varDates(lngDateCounter) = CDate(StartDate)
        Sh2.Range("A" & i).Value = Format(StartDate, "dd-mm-yyyy")
        i = i + 1
        StartDate = CDate(CDbl(StartDate) + 1)
    Next lngDateCounter
    getDates = varDates
ClearMemory:
    If IsArray(varDates) Then Erase varDates
    lngDateCounter = Empty
End Function

Em cảm ơn anh/chị!

VBA không hiểu sh2?
Sheet2.Range("A" & i).Value = Format(StartDate, "dd-mm-yyyy")
Code chưa hợp lý, nhưng mới tập viết là giỏi rồi

 

[VetMini]

VBA không hiểu sh2?
Sheet2.Range("A" & i).Value = Format(StartDate, "dd-mm-yyyy")
Code chưa hợp lý, nhưng mới tập viết là giỏi rồi

Không phải code mới tập viết. Đây là code cắt xén và sửa đổi.

 

[snow25]

Không phải code mới tập viết. Đây là code cắt xén và sửa đổi.

Sửa đổi nhưng hiểu là được anh à.

 

[VetMini]

Sửa đổi nhưng hiểu là được anh à.

Chỗ nào chứng minh với bạn là người cắt ghép hiểu code?
Tôi thì thấy rõ ràng là cắt ghép loạn lên hết.

 

[LEHOC]

Chỗ nào chứng minh với bạn là người cắt ghép hiểu code?
Tôi thì thấy rõ ràng là cắt ghép loạn lên hết.

Em fix được rồi bác ơi.
Cảm ơn bác đã quan tâm.

Bài đã được tự động gộp: 10/8/19

Chỗ nào chứng minh với bạn là người cắt ghép hiểu code?
Tôi thì thấy rõ ràng là cắt ghép loạn lên hết.

Em tham khảo code và tuỳ biến, nhưng do chưa thành thạo nên code còn rối, bác chỉ giúp em chỗ "cắt ghép loan" để em sửa đổi với ạ.
Cảm ơn bác.