Mã:
Sub TinhLai()
Dim wb As ThisWorkbook
Dim ws As Worksheet
Dim Range_date_vay As Range
Dim Range_date_tra As Range
Dim Range1 As Range
Dim Range2 As Range
Dim d As Date
Dim so_ngay As Integer
Dim WS_Count As Integer
'For Each ws In ThisWorkbook
WS_Count = ActiveWorkbook.Worksheets.Count
Debug.Print WS_Count
For j = 1 To WS_Count
Set Range_date_vay = ActiveWorkbook.Worksheets(j).Range("C8:C18")
For Each Range1 In Range_date_vay
Range1.Offset(0, 8).Formula = "=datedif(range1, range1.Offset (0,5),""d"")"
'Range1.Offset(0, 8).FormulaArray = "=datedif(range1, range1.Offset (0,5),""d"")"
'ActiveWorkbook.Worksheets(j).Range1.Offset(0, 8) = WorksheetFunction.Datedif(Range1, Range1.Offset(0, 5), "d")
so_ngay = Range1.Offset(0, 8).Value2
Debug.Print so_ngay
Next Range1
Next j
End Sub
Đoạn code tính DateDif của em khi chạy bị lỗi ngay tại đó
Em dùng của sổ Immediate kiểm tra:
=======
?range1
7/29/2008
=========
?range1.Offset (0,5)
1/29/2009
Mong Anh/Chị giúp em tìm ra lỗi.