Giúp mình lập trình ẩn dòng không có dữ liệu dc không? (1 người xem)

[valentino9002]

MÌnh có 1 sheet tên là Bán Hàng và 1 sheet tên là Bản In, bản in là chiết xuất dữ liệu từ sheet bán hàng, vùng chiết xuất dữ liệu của bản in là dòng 5 đến dòng 20, mình muốn làm là khi chiết xuất dữ liệu có 5 dòng thì những dòng không có dữ liệu tự động ẩn đi (chỉ áp dụng trong vùng dữ liệu, từ dòng 21 thì giữ nguyên), khi chiết xuất có 10 dòng thì tự động hiển thị 10 dòng, đang dùng office 2003

 

[vu_tuan_manh_linh]

Dùng Autofilter đi bạn!

 

[Hong.Van]

MÌnh có 1 sheet tên là Bán Hàng và 1 sheet tên là Bản In, bản in là chiết xuất dữ liệu từ sheet bán hàng, vùng chiết xuất dữ liệu của bản in là dòng 5 đến dòng 20, mình muốn làm là khi chiết xuất dữ liệu có 5 dòng thì những dòng không có dữ liệu tự động ẩn đi (chỉ áp dụng trong vùng dữ liệu, từ dòng 21 thì giữ nguyên), khi chiết xuất có 10 dòng thì tự động hiển thị 10 dòng, đang dùng office 2003

Bạn thử áp dụng bài này vào bài thực tế của bạn!

 

[vu_tuan_manh_linh]

Bạn thử áp dụng bài này vào bài thực tế của bạn!

Xem sheet1 đi bạn! Có gì khó khăn đâu.

 

[valentino9002]

bạn ơi nhưng mình muốn ẩn đi dòng để trống luôn (hide luôn) để khi in ra không thấy dòng để trống, trước giờ mình toàn phải làm bẳng tay, hide di không à, đến khi nhiều hơn thì lại phải unhide cho hiện ra hết rùi lại hide những dòng không có dữliệu, vậy mất công wá, có cách nào máy tính tự ẩn tự hiện ra cho mình không nhỉ?

mà bạnchỉ cho mìnhlàm cái như của bạn di, mình cũng cần như vậynữa, làm cái biểutượngcóchữ lọc đó, mình làmđường link chuyển sheet bằng cách nhần ctrl+K, mình muốn làm thêm biểutượng cho dễ nhìn màkhi nhấn vào chữ có đườnglink cũngdễ nữa

bạnchỉ thêm cho mình làm cái cell màbạn tô màuvàng đó, làm sao đểlấy được danh sách đó, nó dò danh sách dài wácó dược không, mình có đến 10.000 dòng

 

[hoangvuluan]

bạn ơi nhưng mình muốn ẩn đi dòng để trống luôn (hide luôn) để khi in ra không thấy dòng để trống, trước giờ mình toàn phải làm bẳng tay, hide di không à, đến khi nhiều hơn thì lại phải unhide cho hiện ra hết rùi lại hide những dòng không có dữliệu, vậy mất công wá, có cách nào máy tính tự ẩn tự hiện ra cho mình không nhỉ?

mà bạnchỉ cho mìnhlàm cái như của bạn di, mình cũng cần như vậynữa, làm cái biểutượngcóchữ lọc đó, mình làmđường link chuyển sheet bằng cách nhần ctrl+K, mình muốn làm thêm biểutượng cho dễ nhìn màkhi nhấn vào chữ có đườnglink cũngdễ nữa

bạnchỉ thêm cho mình làm cái cell màbạn tô màuvàng đó, làm sao đểlấy được danh sách đó, nó dò danh sách dài wácó dược không, mình có đến 10.000 dòng

Bạn gửi file mẫu (với 1 ít dữ liệu) và ghi yêu cầu vào đó, mọi người có thể dễ hình dung và viết code cho bạn, sau đó bạn chỉ cần copy dữ liệu thật vào là được.

 

[Ba Tê]

File của bạn đâu?
Không cần 10.000 dòng, chỉ cần khoảng 100 dòng thôi.
Hỏi chung chung sao thấy bạn coi thường mọi người quá.

 

[valentino9002]

mình không có ý đó, mình mới nên cho phép mình hỏi điều này dc không, chỉ mình gửi file đínhkèm với

 

[Ba Tê]

Bấm vào nút <Đổi sang khung lớn> dưới khung trả lời, phía dưới có nút <Tải file từ máy>.
Tiếp tục theo hướng dẫn.

 

[valentino9002]

bên sheet xuất trên đầu có chữ bản in và chiết cóchứa link chuyển sheet , giờ mình muốn làm biểu tượng nổi để nhìn dễ và nhấn cũng dễ nữa như file đính kèm của bạn đã gửi ở trên (biểu tượng cóchữ lọc đó)

Còn vấn đề thứ 2 làmình muốn ẩn đi những dòng ko có dữ liệu, shêt bản in củamình ý, nó ẩn dòng 14 > 33 (cái đó là mình hide bằng tay), mình muốn làm là khi dữ liệu đến dòng 16 thì nó sẽ ẩn dòng 17 > 33 mà thôi, trước giờ mình toànphải unhide rùi lại hide nhữngdòng ko có dữliệu

 

[PHONGGANHHAO]

Còn vấn đề thứ 2 làmình muốn ẩn đi những dòng ko có dữ liệu, shêt bản in củamình ý, nó ẩn dòng 14 > 33 (cái đó là mình hide bằng tay), mình muốn làm là khi dữ liệu đến dòng 16 thì nó sẽ ẩn dòng 17 > 33 mà thôi, trước giờ mình toànphải unhide rùi lại hide nhữngdòng ko có dữliệu[/QUOTE]

Kiểm tra có đúng ý bạn không nhe

 

[vu_tuan_manh_linh]

Còn vấn đề thứ 2 làmình muốn ẩn đi những dòng ko có dữ liệu, shêt bản in củamình ý, nó ẩn dòng 14 > 33 (cái đó là mình hide bằng tay), mình muốn làm là khi dữ liệu đến dòng 16 thì nó sẽ ẩn dòng 17 > 33 mà thôi, trước giờ mình toànphải unhide rùi lại hide nhữngdòng ko có dữliệu

Khổ quá cơ! Cái autofilter nó chạy ầm ầm, mình đã gửi file mà bạn vẫn chưa hài lòng!

 

[valentino9002]

mình gửi file kháccho các bạn dễ hiểu hơn

bên sheet bản in là dể mình in cho khách hàng, bằng cách dánh số thừ tự bên sheet xuất cột A thì sẽ được chiết xuất wa bên sheet bản in để in cho khách hàng, điều mình muốn nói là mình muốn máy tự động ẩn đi những dòng mà dữ liệu là khoảng trắng, mình không phải làm bằng tay là chọn dòng ko có dữ liệu đó rùi chọn hide, đến khi in người khác nhiều dòng hơn hoặc ít dòng hơn thì lại phải hide tiếp

mình muốnlà máy tựđộng hide những dòng ko có du liệu và tự động thêm dòng khi in khách hàng có nhiều dòng hơn khách hàng trước đó

trươớ giờ mình in kháchhàng có 5 dòng chẳng hạn, thì mình ẩn đi những dòng ko có dữ liệu, rùiin khách hàngcó 8 dòng lạiphải unhide cho hiện ra rùi lại hide đi những dòngko có dữ liệu, có cách nào tự động ko?

 

[valentino9002]

ý quên file đính kèm của mình nè

 

[valentino9002]

Khổ quá cơ! Cái autofilter nó chạy ầm ầm, mình đã gửi file mà bạn vẫn chưa hài lòng!

không bạn ơi, mình muốn là bên sheet bản in, là để mình in hoá đơn cho khách, không cần những dòng trống

 

[vu_tuan_manh_linh]

không bạn ơi, mình muốn là bên sheet bản in, là để mình in hoá đơn cho khách, không cần những dòng trống

Bạn mở file này ra, vào sheet Bản in, chọn ô Thành tiền, xổ cái mũi tên chọn NonBlank xem nó có Hide đi những dòng trống hay không!

 

[Hong.Van]

không bạn ơi, mình muốn là bên sheet bản in, là để mình in hoá đơn cho khách, không cần những dòng trống

Lấy từ J15:J45 làm chuẩn, xem đúng ý chưa
-------------------------
Tôi thấy rất nhiều Thầy cô & anh chị giúp bạn và hình như bạn quên câu ...

 

[hoangvuluan]

Bạn xem trong file đã được chưa. Nút lệnh có tính bật/tắt các dòng ẩn.

 

[Ba Tê]

không bạn ơi, mình muốn là bên sheet bản in, là để mình in hoá đơn cho khách, không cần những dòng trống

Lỡ dùng code rồi thì dồn chung vào code luôn. Thay đổi tên khách hàng là xong.

 

[valentino9002]

Bạn xem trong file đã được chưa. Nút lệnh có tính bật/tắt các dòng ẩn.

bật tắt như thế nào vậy chỉ mình đi, bạn thử qua bên Xuất xoá bớt ký tự bên cột A đi (đang là từ 1 > 6, giờ xoá đi còn là 1 > 4 đi) là bên Bản In sẽ có 2 dòng trống, làm sao cho nó ẩn tự ẩn đi

 

[hoangvuluan]

Bạn có biết dùng macro (hoặc VBA) không? Nếu chưa thì phải học cách cho phép macro được phép thực hiện trong Excel.

 

[thuanviet]

Sao không lọc được cùng lúc 2 cột vậy các bạn. Mình áp dụng rồi nhưng chỉ lọc có 01 cột ah

 

[jack nt]

dùng hàm phía dưới kiểm tra xem dòng r có là dòng trống hay không

Public Function IsEmptyRow(Sh As Object, r As Long) As Boolean
'Return: true if row is empty
'-----------------------------------------------------------
If Application.CountA(Sh.Cells(r, 1).EntireRow) = 0 Then
IsEmptyRow = True
End If
End Function