Xin giúp đỡ file tự ẩn kết quả khi bằng 0

[kan1231]

em có 1 file tính tổng số lượng các cỡ xuất hàng, nhưng mỗi mã hàng có cỡ khác nhau
em muôn khi lọc mã hàng thì các cột có tổng bằng 0 sẽ tự động ẩn đi (dòng tổng e dùng hàm subtotal ạ)
mong mọi người giúp e viet code VBA cho file ạ, em không biết gì về VBA code ạ
em xin cảm ơn mọi người ạ

 

[befaint]

Chụp cái ảnh lại cắt cụt hết địa chỉ dòng/ cột đi thì làm ăn gì được. Ráng chỉnh theo thực tế nhé.

Sub anCotTheoDong0()
Const lngDongTong = 100 ' dòng tính tổng theo hàm subtotal '
Const startCol =        ' địa chỉ cột bắt đầu xét tổng '
Const numColsTong = 200 ' số cột tính tổng '
Dim dataTong as variant, iCol as long, rngTong0 as range
Dim ws as worksheet
set ws = activesheet
ws.Rows(1).EntireColumn.Hidden = false
dataTong = ws.Cells(lngDongTong, startCol).Resize(1, numColsTong ).value2
set rngTong0 = ws.Range("XFD1")
For iCol = 1 to numColsTong
if dataTong(1, iCol) = 0 then set rngTong0 = union(rngTong0, ws.Cells(lngDongTong, startCol + iCol - 1) )
Next iCol
rngTong0.EntireColumn.Hidden = True
End Sub
[php]

 

[kan1231]

Chụp cái ảnh lại cắt cụt hết địa chỉ dòng/ cột đi thì làm ăn gì được. Ráng chỉnh theo thực tế nhé

tại em có tải file nên không để ý đến, em cảm ơn anh

 

[kan1231]

Chụp cái ảnh lại cắt cụt hết địa chỉ dòng/ cột đi thì làm ăn gì được. Ráng chỉnh theo thực tế nhé.

Sub anCotTheoDong0()
Const lngDongTong = 100 ' dòng tính tổng theo hàm subtotal '
Const startCol =        ' địa chỉ cột bắt đầu xét tổng '
Const numColsTong = 200 ' số cột tính tổng '
Dim dataTong as variant, iCol as long, rngTong0 as range
Dim ws as worksheet
set ws = activesheet
ws.Rows(1).EntireColumn.Hidden = false
dataTong = ws.Cells(lngDongTong, startCol).Resize(1, numColsTong ).value2
set rngTong0 = ws.Range("XFD1")
For iCol = 1 to numColsTong
if dataTong(1, iCol) = 0 then set rngTong0 = union(rngTong0, ws.Cells(lngDongTong, startCol + iCol - 1) )
Next iCol
rngTong0.EntireColumn.Hidden = True
End Sub
[php]

anh ơi, chỗ Const startCol = ' địa chỉ cột bắt đầu xét tổng '
em sửa là như thế này được không ạ
Const startCol = Sheets("Sheet4 (2)").Cells(10, 2)
hay là như dưới ạ
const startCol = wsSheet4 (2).getRange("j3").getValue()
em không biết gì về VBA luôn ạ

 

[befaint]

không biết gì về VBA

Không biết gì mà viết code ghê gớm thế.

Như thế này mới gọi là không biết gì về VBA nhé:
Bấm ngón tay đếm chữ cái từ A tới J là bao nhiêu thì viết vào đó.

 

[kan1231]

Không biết gì mà viết code ghê gớm thế.

Như thế này mới gọi là không biết gì về VBA nhé:
Bấm ngón tay đếm chữ cái từ A tới J là bao nhiêu thì viết vào đó.

thế ạ, 2 code trên e search trên google ạ

 

[VetMini]

thế ạ, 2 code trên e search trên google ạ

Chỉ giỏi nói dóc.
Const là hằng. Chỉ có thể gán giá trị hằng. Không thể gán giá trị biểu thức như 2 code trên.
Làm sao mà xớt gú gô ra được.

 

[kan1231]

Chỉ giỏi nói dóc.
Const là hằng. Chỉ có thể gán giá trị hằng. Không thể gán giá trị biểu thức như 2 code trên.
Làm sao mà xớt gú gô ra được.

đây bác, cháu không biết gì nên tìm trên google, thấy giống nên cháu áp dụng thử thôi ạ

 

[Maika8008]

đây bác, cháu không biết gì nên tìm trên google, thấy giống nên cháu áp dụng thử thôi ạ
View attachment 262937

Haha. Lấy râu Google sheets cắm cằm Excel

 

[Lê Duy Thương]

em có 1 file tính tổng số lượng các cỡ xuất hàng, nhưng mỗi mã hàng có cỡ khác nhau
em muôn khi lọc mã hàng thì các cột có tổng bằng 0 sẽ tự động ẩn đi (dòng tổng e dùng hàm subtotal ạ)
mong mọi người giúp e viet code VBA cho file ạ, em không biết gì về VBA code ạ
em xin cảm ơn mọi người ạ
View attachment 262893

code ket làm gì cho mệt nếu bạn không rành
trong office 365 có hàm này
=FILTER($A$2:$AP$39,$A$39:$AP$39>0,"")

 

[ptm0412]

code ket làm gì cho mệt nếu bạn không rành
trong office 365 có hàm này
=FILTER($A$2:$AP$39,$A$39:$AP$39>0,"")

Thương test chưa?Nó ẩn hết các cột từ A đến I luôn rồi

 

[VetMini]

đây bác, cháu không biết gì nên tìm trên google, thấy giống nên cháu áp dụng thử thôi ạ

Code bạn thấy đó là code của Google Apps Script.
Lần sau nhớ nhìn cho rõ loại ngôn ngữ trước khi "thấy nó giống"

Mỗi ngôn ngữ có cách định nghĩa Const khác nhau.

- Trong VBA, Const (lưu ý: cũng như mọi keywords trong, VBA, viết hoa) dùng để khai báo một hằng số. Thường thì người ta dùng hằng số để xác định thông số tính toán cho hàm/phương thức.

- Trong hẩu hết các ngôn ngữ khác const (lưu ý: không viết hoa) dùng để khai báo một biến mà trị chỉ gán một lần, và không thể thay đổi. Đối với các ngôn ngữ này, việc gán chỉ một lần này bảo đảm biến không bị thay đổi nửa chừng.
JavaScript là một trong những ngôn ngữ sử dụng const kiểu này. Và Google Apps Script căn bản dựa trên JavaScript.
(const còn một đặc tính khác về tầm vực, nhưng không nên bàn thêm ở đây)

 

[Lê Duy Thương]

Thương test chưa?Nó ẩn hết các cột từ A đến I luôn rồi

có thêm 1 chút thủ thuật mới ok ạ- em quên mất

 

[kan1231]

Code bạn thấy đó là code của Google Apps Script.
Lần sau nhớ nhìn cho rõ loại ngôn ngữ trước khi "thấy nó giống"

Mỗi ngôn ngữ có cách định nghĩa Const khác nhau.

- Trong VBA, Const (lưu ý: cũng như mọi keywords trong, VBA, viết hoa) dùng để khai báo một hằng số. Thường thì người ta dùng hằng số để xác định thông số tính toán cho hàm/phương thức.

- Trong hẩu hết các ngôn ngữ khác const (lưu ý: không viết hoa) dùng để khai báo một biến mà trị chỉ gán một lần, và không thể thay đổi. Đối với các ngôn ngữ này, việc gán chỉ một lần này bảo đảm biến không bị thay đổi nửa chừng.
JavaScript là một trong những ngôn ngữ sử dụng const kiểu này. Và Google Apps Script căn bản dựa trên JavaScript.
(const còn một đặc tính khác về tầm vực, nhưng không nên bàn thêm ở đây)

dạ vâng, cháu cảm ơn bác đã chỉ dạy ạ

 

[ptm0412]

có thêm 1 chút thủ thuật mới ok ạ- em quên mất

Làm vậy tức là đụng vào dữ liệu gốc. Hàm Filter có thể cho nhiều điều kiện mà?

=FILTER($A$2:$AP$39,($A$39:$AP$39>0)+($A$39:$AP$39=""),"")

 

[kan1231]

code ket làm gì cho mệt nếu bạn không rành
trong office 365 có hàm này
=FILTER($A$2:$AP$39,$A$39:$AP$39>0,"")

em có nhiều dữ liệu nên em nghĩ dùng VBA sẽ nhẹ hơn so với dùng hàm ạ, em cảm ơn anh

 

[VetMini]

em có nhiều dữ liệu nên em nghĩ dùng VBA sẽ nhẹ hơn so với dùng hàm ạ, em cảm ơn anh

Câu tâm niệm của dân vòi code trên GPE.

 

[kan1231]

Câu tâm niệm của dân vòi code trên GPE.

hì hì, đây là bài vòi code VBA của cháu ạ, cháu thường vòi công thức bên Hàm và công thức bác ạ