Em có đoạn mã bị lỗi ở dòng
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 ạ:
Em cảm ơn anh/chị!
PHP:
Sh1.Range("A" & i).Value = Format(StartDate, "dd-mm-yyyy")
Giá trị trong ô A11: "Từ ngày 01-07-2019 đến ngày 05-08-2019"
Đoạn mã của em ạ:
PHP:
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
File đính kèm
Lần chỉnh sửa cuối: