Trích lọc chứ có phải tính toán không đâu!
Tất nhiên là được! Tôi làm cho bạn bằng cách đơn giãn nhất, từ từ bạn hãy nghiên cứu thêm nhé!
Không phải đâu! Hình như ai đó thí nghiệm macro rồi vô tình để lại (quên xóa), nó chẳng có ý nghĩa gì cả
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1, r2, r3, i As Long
Dim rng As Range
r1 = [A65536].End(xlUp).Row
If Not Intersect(Range("H1:J1"), Target) Is Nothing Then
Range("A3:C" & r1).Copy
[G3].PasteSpecial Paste:=xlPasteValues
For i = 3 To r1
Set rng = Range(Cells(i, 7), Cells(i, 10))
If Cells(i, 7) <> Cells(1, 8).Value Or Month(Cells(i, 8)) <> Cells(1, 10).Value Then
rng.ClearContents
End If
Next
r2 = [I65536].End(xlUp).Row
Range("G3:I" & r2).Sort Key1:=[G3], Order1:=xlAscending
r3 = [I65536].End(xlUp).Row
Cells(r3 + 1, 9).Value = Application.WorksheetFunction.Sum(Range(Cells(3, 9), Cells(r3, 9)))
Cells(r3 + 1, 7).Value = "Tong Cong"
[H1].Select
End If
End Sub
Mới biết vụ này lần đâu! Cứ nghĩ là người ta "gộp" lại rồi Dim 1 lần cho gọn! Nào ngờ...
Tại sao phải cần đến Application.EnableEvents nhỉ? Trong code đã có câu lệnh Intersect(Range("H1:J1"), Target) rồi mà
Vì sự kiện Worksheet_Change sẽ thực hiện khi có sự thay đổi trên bảng tính, vì thế đôi khi vô tình ta buộc nó chạy nhiều lần không cần thiết. Vì vậy mình ngăn không cho nó thực hiện trong quá trình xử lý bằng câu lệnh trên anh à. Trong nhiều trường hợp nó cải thiện tốc độ chương trình đến kinh ngạc đó (giông giống như Caculation vậy)
Cái này đồng ý!
Tôi cũng đồng ý, nhưng ý tôi muốn nói trong file cụ thể của Hoangdanh282vn thì ko thể có chuyện "vô tình" dc... vì đã có điều kiện If Not Intersect(....) đặt ở đầu rồi, chỉ khi Target nằm trong vùng đ/k thì code mới làm việc cơ mà... Tôi nghĩ đại khái thế, ko biết có sai ko?
Nếu IF thoả thì tiếp theo chương trình sẽ được thực hiện và khi đó mọi sự thay đổi trên sheet cũng đều tác động tới Worksheet_Chage cả anh à.
Chắc ý bạn muốn làm 1 hàm tự tạo?
Vậy tôi cũng hiểu ý bạn rồi: Bạn muốn "ăn sẳn"... mang về xài luôn, tiện dụng và khỏi suy nghĩ
Option Base 1
Function TongHop(MangDL As Range, HangHoa As String, Thang As Byte)
Application.Volatile (False)
Dim i As Long, iR As Long, m As Integer, Tim As Boolean, Ma As Range
Dim MangTemp(1 To 10000, 3) As Variant
If MangDL.Rows.Count = 0 Then Exit Function
For i = 1 To MangDL.Rows.Count
If MangDL(i, 1) = HangHoa Then
If Thang = 0 Or Month(MangDL(i, 2)) = Thang Then
iR = iR + 1
MangTemp(iR, 1) = MangDL(i, 1)
MangTemp(iR, 2) = MangDL(i, 2)
MangTemp(iR, 3) = MangDL(i, 3)
End If: End If
Next
TongHop = MangTemp
End FunctionLàm sao có chữ Tháng trong Tháng 3 vậy bạn,vui lòng chỉ giúp
Cảm ơn bạn đúng ý mình rồi
