Deleted Post(s) (1 người xem)

[huutinh85]

Trong code ở bài #2 cũng có câu lệnh để sắp xếp theo cột này đó chú. Sau khi sắp xếp xong thì làm thêm một số thao tác nữa: MergCells, tính tổng, kẻ khung.

cảm ơn bạn rất nhiều nhưng mình ko hiều rõ từng dòng code trên cũng đang tìm hiểu code, nên mong bạn giải thích rõ giùm để mình có thể học hỏi thêm được ko
vì mình muốn tùy biến thêm code để ứng dụng thêm. Gio mình muốn dữ liệu "sheet nhập liệu" bắt đầu từ a4:n4 và dán vào vùng đích sheet "tong hop " cũng từ a4 .vậy chỉnh code thế nào đc, cảm ơn bạn giúp đỡ
không biết 2 dòng này mình hiểu đúng không nữa
[A1].CurrentRegion.Offset(1).Clear ' xóa dữ liệu từ cell a1 offset
Sheet1.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, , [A1:M1] ' tại sheet1 chọn vùng có dữ liệu kể từ cell a1: loc lọc nâng cao và copy đền vùng [a1:m1] cua sheet2
[A1].CurrentRegion.Sort [A1], xlAscending, [C1], , xlAscending, Header:=xlYes 'tại [a1] của sheet2 chọn vùng dữ liệu sắp xếp theo thứ tự cột A1 . nhưng cái mình không hiểu là [c1], mong các bác chỉ giáo. đang mò mẫm vba

 

[huutinh85]

Tôi nghĩ đến PivotTable nhưng mà việc này ngoài khả năng nên tôi sử dụng code sau cho sheet Tong hop:
[GPECODE=vb]Private Sub Worksheet_Activate()
Dim n As Long, Cll As Range, Cll1 As Range
Application.ScreenUpdating = False: Application.DisplayAlerts = False
[A1].CurrentRegion.Offset(1).Clear
Sheet1.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, , [A1:M1]
[A1].CurrentRegion.Sort [A1], xlAscending, [C1], , xlAscending, Header:=xlYes
n = [A65000].End(xlUp).Row - 1
[A2:N2].Resize(n).Borders.Weight = xlThin
Set Cll = [A2]
Do
Set Cll1 = [A1:A65000].Find(Cll, , xlValues, xlWhole, , xlPrevious)
With Range(Cll, Cll1)
.Offset(, 13).Merge
Cll.Offset(, 13) = WorksheetFunction.CountA(.Offset(, 4).Resize(, 9))
.Merge
.Resize(, 14).BorderAround , xlMedium
End With
Set Cll = Cll.Offset(1)
Loop Until IsEmpty(Cll)
With Union([A2].Resize(n), [N2].Resize(n))
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
[A2:I2].Resize(n).BorderAround , xlMedium
Application.ScreenUpdating = True: Application.DisplayAlerts = True
End Sub[/GPECODE]
Bây giờ bạn cứ nhập dữ liệu vào sheet Nhap lieu rồi chọn sheet Tong hop sẽ thấy kết quả.

[FONT=&quot]cảm ơn bạn rất nhiều nhưng mình ko hiều rõ từng dòng code trên cũng đang tìm hiểu code, nên mong bạn giải thích rõ giùm để mình có thể học hỏi thêm được ko
vì mình muốn tùy biến thêm code để ứng dụng thêm. Gio mình muốn dữ liệu "sheet nhập liệu" bắt đầu từ a4:n4 và dán vào vùng đích sheet "tong hop " cũng từ a4 .vậy chỉnh code thế nào đc, cảm ơn bạn giúp đỡ
không biết 2 dòng này mình hiểu đúng không nữa
[/FONT][FONT=&quot][A1].CurrentRegion.Offset(1).Clear ' xóa dữ liệu từ cell a1 offset
Sheet1.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, , [A1:M1] ' tại sheet1 chọn vùng có dữ liệu kể từ cell a1: loc lọc nâng cao và copy đền vùng [a1:m1] cua sheet2
[A1].CurrentRegion.Sort [A1], xlAscending, [C1], , xlAscending, Header:=xlYes 'tại [a1] của sheet2 chọn vùng dữ liệu sắp xếp theo thứ tự cột A1 . nhưng cái mình không hiểu là [c1], mong các bác chỉ giáo. đang mò mẫm vba[/FONT]