V/v sử lý code (1 người xem)

[GTK-PM]

1. Code của Worksheet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Address <> "$Q$2" Then Exit Sub
    Sheet3.Range("A11:AH3000").Select
    Selection.ClearContents
    Sheet1.Range("GE1:HL5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheet3.Range("AI1:AJ2"), CopyToRange:=Sheet3.Range("A10:AH10"), Unique:=False
End Sub

2. Code module

Sub CAPMAXTHU()
' CAPMAXTHU Macro
    Sheet3.Range("A11:AH3000").Select
    Selection.ClearContents
    Sheet1.Range("GE1:HL5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheet3.Range("AI1:AK2"), CopyToRange:=Sheet3.Range("A10:AH10"), Unique:=False

Nhờ anh chị giúp đỡ phân tích câu lệnh 2 đoạn code trên. Và có thể hướng dẫn cho em vào đâu để có thể dùng marco ghi lại để có 2 đoạn code trên. Chân thành cảm ơn anh chị

 

[haonlh]

...
Và có thể hướng dẫn cho em vào đâu để có thể dùng marco ghi lại để có 2 đoạn code trên. Chân thành cảm ơn anh chị

Không thể dùng marco ghi lại để có 2 đoạn code trên. Vì nó có các lệnh như IF...
Chỉ co thể chép (bôi đen và copy), mở cửa sổ viết code và paste vô. Việc này nếu chưa biết thì nói lại.

 

[GTK-PM]

Không thể dùng marco ghi lại để có 2 đoạn code trên. Vì nó có các lệnh như IF...
Chỉ co thể chép (bôi đen và copy), mở cửa sổ viết code và paste vô. Việc này nếu chưa biết thì nói lại.

Phần code của Worksheet bạn có thể giải thích từng đoạn đc không

 

[quanluu]

1. Code của Worksheet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Address <> "$Q$2" Then Exit Sub
    Sheet3.Range("A11:AH3000").Select
    Selection.ClearContents
    Sheet1.Range("GE1:HL5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheet3.Range("AI1:AJ2"), CopyToRange:=Sheet3.Range("A10:AH10"), Unique:=False
End Sub

2. Code module

Sub CAPMAXTHU()
' CAPMAXTHU Macro
    Sheet3.Range("A11:AH3000").Select
    Selection.ClearContents
    Sheet1.Range("GE1:HL5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheet3.Range("AI1:AK2"), CopyToRange:=Sheet3.Range("A10:AH10"), Unique:=False

Nhờ anh chị giúp đỡ phân tích câu lệnh 2 đoạn code trên. Và có thể hướng dẫn cho em vào đâu để có thể dùng marco ghi lại để có 2 đoạn code trên. Chân thành cảm ơn anh chị

Đọc cái code này thấy nó kiểu gì ấy
"If Target.Count > 1 Or Target.Address <> "$Q$2" Then Exit Sub"

Mình nghĩ thay dòng đó bằng dòng Target.Address = "$Q$2" Then ....end if
theo ý hiểu của mình cho đoạn sheet_change như sau

Nếu giá trị tại Q2 thay đổi thì
+ Xóa dữ liệu vùng A11:AH3000 của sheet3
+ DÙng advance filter cho vùng "GE1:HL5000" của sheet1 với điều kiên là vùng "AI1:AK2", sau khi lọc thì copy giá trị lọc sang sheet3 bắt đầu từ A10

 

[GTK-PM]

Không thể dùng marco ghi lại để có 2 đoạn code trên. Vì nó có các lệnh như IF...
Chỉ co thể chép (bôi đen và copy), mở cửa sổ viết code và paste vô. Việc này nếu chưa biết thì nói lại.

Rất mong bác chỉ giáo, nếu có số phone cho em xin để thực tập

 

[GTK-PM]

Mình có file excel bên dưới, bạn có thể hướng dẫn giúp mình những bước cần để tạo ra code, có điều kiện. Khi biểu mẫu đã được lược bỏ những phần không cần thiết so với bên sheet Dữ liệu
Trong bảng tính dưới:
Mình muốn thống kê: Theo điều kiện tại ô Tài khoản: ô H5
Theo điều kiện, tài khoản và công trình tại ô H5, H6 và theo ngày H1, H2
Nếu 1 ô nào để trắng là mặc định thống kê 2 điều kiện còn lại

Với mình, mình đã sử dụng được Advanced kết hợp marco nhưng chỉ giải quyết được bài tập trên, các hàng và nội dung bên sheet ChiTiet phải y hệt hàng nội dung bên Data sheet QuyTM, vì nếu làm như vậy không cần thiết lắm, nên muốn tạo 1 bảng biểu theo ý mình, và thống kê theo điều kiện mình đặt ra, nhưng mình gặp khó là khi điều kiện chỉ là 1 ô H5 mà phải dò tìm bên sheet QuyTM những nơi nào có dữ liệu H5 và đặt các nội dung thông tin của điều kiện H5 đặt đúng vị trí là các vị trí mình mong muốn, là vấn đề mình rất lơ mơ. Rất mong nhận được sự giúp đỡ !