Bỏ filter và tạo công thức

Liên hệ QC

phuongntv

Thành viên mới
Tham gia
27/7/07
Bài viết
4
Được thích
0
Bạn nào có thể giúp tôi 02 đoạn code VBA sau:
1. Nếu trong sheet hiện hành đang có Filter thì marco này sẽ gõ bỏ.
2. Tạo công thức SubTotal tính trong 1 range: [(a,b):(c,d)] với a,b,c,d là biến số
Cảm ơn nhiều !
 
Chào bạn... Đễ remove Filter bạn có thể chạy code sau:
Sub RF()
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
End Sub

Nếu muốn nó tự động chạy khi mở file thì bạn thêm 1 con Auto_Open nửa là dc
Còn cái Subtotal mà bạn nói thì.. tôi chưa hiểu lắm... có thể nói rõ hơn ko?
Mến
ANH TUẤN
 
Upvote 0
Nguyễn Xuân Sơn đã viết:

TH này không cần bạn ạ.

Chỉ khi viết lệnh sau then mà xuống dòng thì mới cần thiết. Còn trên cùng 1 hàng thì các lệnh cách nhau dấu : là được.

Thân!
 
Upvote 0
Ko cần Endif luôn... Bạn thử xem... hi... hi...
ANH TUẤN
 
Upvote 0
Cám ơn Anh Tuấn và các bạn nhiều nhé ! Về Subtotal, do khi xuất dữ liệu từ 01 chương trình kế toán ra excel các dòng và cột rất lộn xộn và không theo ý nên rất khó xử lý. Mình đã viết macro xắp xếp dữ liệu ngay ngắn rồi nhưng không biết cách tạo công thức tính tổng bên dưới mỗi cột số liệu. Ví dụ từ X5:X10 và cho ra kết quả SubTotal tại X12, tuy nhiên địa vùng và kết quả sẽ thay đổi do dữ liệu nhiều hoặc ít. Vì vậy bạn có thể viết code SubTotal của Xn:Xy tại Xy+2 với x,y là biến số (biến số này mình đã có biết). Rất cảm ơn !
 
Upvote 0
Bắp có hiểu ko vậy? Nếu hiểu thì giúp người ta đi... chứ tôi chỉ.. hơi hơi hiểu (cũng xem như hổng hiêu), hỏi lại hoài ngại quá.. hi... hi...
 
Upvote 0
SubTotal của Xn:Xy tại Xy+2 với x,y là biến số (biến số này mình đã có biết)
Vậy thì quá dễ
Sub TaoSubTotal()
Dim i As Integer 'Khai báo biến i, dòng cuối dữ liệu
Sheets("sheet1").Select ' Mở sh hiện hành
i = Range("X65000").End(xlUp).Row 'số dòng dl là từ X65000 trở lên
'Range("X" & i + 2).Value là giá trị của Cells X tại dòng cuối + 2
'R5C là dòng 5 (X5), R[-2]C là dòng i+2 -2, ie là Xi
Range("X" & i + 2).Value = "=SUBTOTAL(9,R5C:R[-2]C)"

End Sub
 
Upvote 0
Học ... một mình không tày học bạn ! Thanks all
 
Upvote 0
Web KT

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

Back
Top Bottom