Sub ngay()
Dim Range1 as range
Dim lr as interger
lr = Cells(Rows.Count, "A").End(xlUp).Row
For each Range1 in Range("A:A"&lr)
Next Range1
End sub
Sub ngay()
Dim Range1 As Range
Dim lr As Long, Ms
lr = Cells(Rows.Count, "A").End(xlUp).Row
For Each Range1 In Range("A1:A" & lr)
If IsDate(Range1) Then Ms = Ms & " " & Range1
Next Range1
MsgBox Ms
End Sub@befaint Cảm ơn Anh đã hướng dẫn!
Sub Date()
Dim WS_count as Interger
Dim j as interger
Dim Range1 as range
Dim lr as Long
lr = Cells(Rows.Count, "C").End(xlUp).Row
WS_Count = ActiveWorkbook.Worksheets.Count
For j = 1 To WS_Count
For Each Range1 In ActiveWorkbook.Worksheets(j).Range("C1:C" & lr)
If TypeName(Range1) = "Date" Then
Debug.Print Range1
End IfSub Date()
Dim WS_count as Interger
Dim j as interger
Dim Range1 as range
Dim lr as Long
lr = Cells(Rows.Count, "C").End(xlUp).Row
WS_Count = ActiveWorkbook.Worksheets.Count
For j = 1 To WS_Count
For Each Range1 In ActiveWorkbook.Worksheets(j).Range("C1:C" & lr)
If IsDate(Range1) Then
Debug.Print Range1
End IfEm viết giùm cho người bạn..tiện cũng để học thêm.
Bạn chạy thử Code này xem sao
Sub CodeDate()
Dim Ws As Worksheet
Dim Rng As Range, lr As Long
For Each Ws In Worksheets
If Ws.Visible = True Then
lr = Ws.Range("C65535").End(3).Row
Set Rng = Ws.Range("C1:C" & lr)
For Each Cll In Rng
If IsDate(Cll) Then
Debug.Print Cll
End If
Next
End If
Next
End Sub@PacificPR Cảm ơn Anh!
Cái đó là nó duyệt qua tất cả các Sheet trong file tương tự như dòng này vậy For j = 1 To WS_Count ............ Next J
Em chưa tìm ra chỗ sai....khi nào tìm ra em sẽ post
Chẳng biết tại sao phải duyệt qua từng cell trong khi ta có thể "bắt" toàn bộ các cell date 1 phát mà không cần phải vòng lập
Sub CodeDate()
Dim ws As Worksheet
Dim rng As Range, lr As Long
For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
On Error Resume Next
Set rng = ws.Range("C1:C60000").SpecialCells(xlCellTypeConstants, 1)
If Not rng Is Nothing Then Debug.Print rng.Address(, , , True)
Set rng = Nothing
On Error GoTo 0
End If
Next
End Subws.Select để làm cái gì?
----------------
Sub TinhLai_Ngay()
Dim Ws As Worksheet
Dim Rng As Range, lr As Long
For Each Ws In Worksheets
If Ws.Visible = True Then
lr = Ws.Range("C65535").End(3).Row
Set Rng = Ws.Range("C1:C" & lr)
For Each Cll In Rng
If IsDate(Cll) Then
Ngay = DateDiff("d", Cll, Cll.Offset(0, 5)) ' Cll chứa ngày vay tiền, Cll.Offset(0, 5) chứa ngày trả tiền
Debug.Print Ngay
End If
Next
End If
Next
End SubSub TinhLai_Ngay()
Dim Ws As Worksheet
Dim Rang1 As Range, lr As Long
lr = Cells(Rows.Count, "C").End(xlUp).Row
For Each ws In Worksheets
If ws.Visible = True Then
ws.Select
Debug.Print ws.Name
For Each Cll In Range("C1:C" & lr)
If (IsDate(Cll)) Then
Ngay = DateDiff("d", Cll, Cll.Offset(0, 5))
If (IsDate(Cll.Offset(0, 5))) Then
Debug.Print Ngay
Cll.Offset(0, 9).Value2 = Ngay
Debug.Print Range1.Offset(0, 9).Value2
End if
End if
Next Cll
End if
Next ws
End subKhi viết code VBA người ta hạn chế mấy cái vụ Select, vì nó làm cho màn hình giật giật rất khó chịu (có thể khiến cho tốc độ code giảm xuống)
Nếu vậy thì biến lr này thiết lập sai luôn. Đúng phải là
Số 1 đúng đang nói đến number. Mà trong Excel thì number là nói chung tất cả dạng dữ liệu có thể TÍNH TOÁN được (cộng trừ nhân chia) nên đương nhiên Date cũng thuộc number (vì Date cũng cộng trừ nhân chia được)
