Tính tổng thiết bị tìm thấy sau khi AdvancedFilte dữ liệu (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

doibuonhokem

Thành viên mới
Tham gia
28/3/17
Bài viết
42
Được thích
0
Mình tham khảo bài AdvancedFilte của các bạn và đã đưa vào bài của mình thành công. Sau khi AdvancedFilter mình tự thêm 1 hàng và nhập vào dòng cuối cùng cột G có tên là "Tổng Cộng" và tính trên hàng đó tương ứng tổng của Số Lượng, Thành Tiền, Chuyển và Tồn của các thiết bị tìm thấy. Ví dụ mình tự tính bằng tay như file đính kèm, bây h cần là sau khi AdvancedFilter thì nó tự động tính luôn, mình không phải làm bằng tay nữa.
Rất mong nhận được sự giúp đỡ. Chân thành cám ơn.
 

File đính kèm

Vậy bạn để dòng tổng cộng lên trên cùng của sheet Theodoi rồi đặt lệnh sum.
Chèn thêm 1 dòng ở trên cùng của sheet Data rồi vào sub LOCDULIEU sửa đoạn code
Mã:
.Range(.[A5], .[N6000]).AdvancedFilter 2, [D1:H2], [A4:N4]
thành
Mã:
.Range(.[A6], .[N6000]).AdvancedFilter 2, [D1:H2], [A5:N5]
Như vậy sẽ nhàn hơn
bạn thử xem file mình gửi kèm
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Hi cảm ơn bạn, ý tưởng của bạn mình cũng nghĩ rồi ấy. Do mình thấy 1 bài của thầy Ndu cũng từng làm cách mình hỏi. Nhưng mình đọc không hiểu j cả nên mới đem đi hỏi, vì trình bày nếu tính tổng cộng ở dưới cùng nó sẽ đẹp và bắt mắt hơn.
 
Upvote 0
Vậy mình bổ sung thêm biến lr trong sub LOCDULIEU rồi gán cho nó vị trí xuất hiện của dòng tổng cộng

Bạn xem thử file mình sửa
 

File đính kèm

Upvote 0
Ồ không có chi
Mình thấy file của bạn rất hữu ích. nên mình cũng đã đưa nó vào Sổ tay của mình
 
Upvote 0
Mình chèn hàm đếm số hàng thanh lý vào cộ N bằng công thức đúng là: =COUNTIF(N5:N6500,"THANH LÝ")

Nhưng khi chuyển qua Code
Range("N" & lr + 1) = "=COUNTIF(N5:N" & lr & "THANH LÝ" & ")"
thì nó không chạy được do dấu "" ôm chữ Thanh Lý trong code nó không hiểu, vậy bạn có cách nào sửa không?
 
Upvote 0
Bạn sửa thành
Range("N" & lr + 1) = "=countif(N5:N" & lr & ",""THANH LÝ"")"
:-=
Vẫn ôm nhau đấy thôi
Nếu bạn muốn thêm công thức nào thì bạn cứ tạo 1 file excel nháp, rồi làm cái thủ tục Record Macro. sau đó mở Macro ra xem lại câu lệnh trong VBA
Từ đó áp dụng vào file gốc
Thế nhé
Chào Thân ái và quyết thắng
 
Lần chỉnh sửa cuối:
Upvote 0
Cám ơn bạn, bây h nó nảy sinh vấn đề là mỗi lần Filter thì cái Bottom Border nó không có gọn như File của thầy Ndu. mà mỗi lần Filter nó hiện hết cả lên.

Tức là mỗi lần Filter nó sẽ chỉ kẻ những cột, hàng trong danh mục filter được thôi. Mình gửi cả File thầy Ndu và File mình đã update, các bạn xem có cách nào sửa giúp mình, Cảm ơn nhiều.
 

File đính kèm

Upvote 0
Nếu vậy bạn xóa hết đường lưới bắt đầu từ dòng 5 cho đến dòng 65000 ở sheet THeodoi
Rồi làm thao tác lọc thì sẽ nó sẽ chỉ kẻ những cột, hàng trong danh mục filter
C
òn cái dòng tổng cộng ở cuối cùng nếu bạn muốn chau chuốt nó thì cứ thêm các thuộc tính vào cái đoạn code
Mã:
Range("G" & lr + 1) = "T" & ChrW(7892) & "NG C" & ChrW(7896) & "NG"
        Range("I" & lr + 1) = "=sum(I5:I" & lr & ")"
        Range("J" & lr + 1) = "=sum(J5:J" & lr & ")"
         Range("K" & lr + 1) = "=sum(K5:K" & lr & ")"
          Range("L" & lr + 1) = "=sum(L5:L" & lr & ")"
           Range("M" & lr + 1) = "=sum(M5:M" & lr & ")"
           Range("N" & lr + 1) = "=countif(N5:N" & lr & ",""THANH LÝ"")"
Mình làm ví dụ chữ Tổng cộng các cái khác bạn hoàn thiện nốt nhé:
ví dụ (thêm thuộc tính Bold, font Timenewroman, cỡ chữ 14) cho ô có chữ tổng cộng
Mã:
Range("G" & lr + 1) = "T" & ChrW(7892) & "NG C" & ChrW(7896) & "NG"
Range("G" & lr + 1).Select   
 Selection.Font.Bold = True
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 14
          End With
' Rồi tiếp đến là các dòng còn lại bạn làm tương tự
 Range("I" & lr + 1) = "=sum(I5:I" & lr & ")"
.........................
        Range("J" & lr + 1) = "=sum(J5:J" & lr & ")"
..........................
         Range("K" & lr + 1) = "=sum(K5:K" & lr & ")"
          Range("L" & lr + 1) = "=sum(L5:L" & lr & ")"
           Range("M" & lr + 1) = "=sum(M5:M" & lr & ")"
           Range("N" & lr + 1) = "=countif(N5:N" & lr & ",""THANH LÝ"")"
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Trừ khi xóa đường lưới Sheet DATA thì Sheet theo dõi cũng mất đường lưới. Mấy phương án font chữ + căn chỉnh + tô màu mình tự làm được.
Mình có nghĩ đến PA xóa đường lưới bằng cách Delete Row, nhưng thấy chạy chậm chậm nên thôi --=0. Cách tính Sum của thầy Ndu mới hay mà tìm hiểu không được.
 
Upvote 0
Mình thực hiện theo file của #10, không thực hiện như thầy Ndu (có sẳn thực hiện luôn nho nhanh), bạn xem thử có nhanh hơn không.
 

File đính kèm

Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom