GPE Giúp em giải thích code để ứng dụng cho báo cáo khác
em có báo cáo hôm nọ bác BATE đã giúp em tạo được theo yêu cầu. Code của bác ấy đây.
Private Sub Worksheet_Activate()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Tem As Long
With Sheet2
Rng = .Range(.[A5], .[A65000].End(xlUp)).Resize(, 8).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 8)
For I = 1 To UBound(Rng, 1)
If Rng(I, 7) >= Date - 3 Then
K = K + 1: Arr(K, 1) = K
For J = 2 To 8
Arr(K, J) = Rng(I, J)
Next J
End If
Next I
With Sheet1
.[A5:H100].ClearContents
If K Then .[A5].Resize(K, 8).Value = Arr
End With
End Sub
Các bác giúp em với. Chèn code vào sheet 1 thì em biết làm rồi. Nhưng em ko biết code để chỉnh sửa lại theo cái mẫu biểu mới cũng theo điều kiện như vậy nhưng nó có nhiều cột hơn, vị trí khác vơới cột báo cáo kia.
em có báo cáo hôm nọ bác BATE đã giúp em tạo được theo yêu cầu. Code của bác ấy đây.
Private Sub Worksheet_Activate()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Tem As Long
With Sheet2
Rng = .Range(.[A5], .[A65000].End(xlUp)).Resize(, 8).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 8)
For I = 1 To UBound(Rng, 1)
If Rng(I, 7) >= Date - 3 Then
K = K + 1: Arr(K, 1) = K
For J = 2 To 8
Arr(K, J) = Rng(I, J)
Next J
End If
Next I
With Sheet1
.[A5:H100].ClearContents
If K Then .[A5].Resize(K, 8).Value = Arr
End With
End Sub
Các bác giúp em với. Chèn code vào sheet 1 thì em biết làm rồi. Nhưng em ko biết code để chỉnh sửa lại theo cái mẫu biểu mới cũng theo điều kiện như vậy nhưng nó có nhiều cột hơn, vị trí khác vơới cột báo cáo kia.