Cần giúp đỡ viết code VBA ẩn dòng trống ko có dữ liệu và co dòng vừa trong trang >> (4 người xem)

Liên hệ QC

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

hình như topic đó tôi trả lời, sao lại kéo tôi dzô đây bạn?
ở topic đó tôi bỏ của chạy lấy người rồi mà............hehehehe
===========
@ lãng tử chung tình
nói về macro 4 thì chắc là sư phụ NDU là số dzách
về ADO thì có lẻ bác HaiLuaMenTay
còn các bậc thẩy "mai danh ẩn tích" thì tui hỏng có biết
tôi cũng có mon men học ADO, nhưng hình nhưng ai rành Acess hay SQL thì dể tiếp cận hơn, dzọc một thời gian tôi đành bỏ cuộc
macro4 thì có vẻ hơi cổ, thấy ít người chơi
bạn mới tập tành code, tôi nghĩ đừng dzọc cao quá vậy, cứ mở file lấy số liệu rồi đóng lại là chắc ăn.
còn muốn nhờ mọi người làm giúp, rồi cứ vậy mà xài,thì bạn nên mở một topic, nêu rỏ ràng yêu cầu, file đầy đủ thì chắc mấy vị đó sẻ nhảy vào giúp bạn thôi
thân
dẫu biết là thế. cũng là nội dung đó nhưng gửi hết diễn đàn rồi. vô chỗ nào chả thấy câu hỏi đó của em. nhưng ít người trả lời cho em quá. chỉ có bác là vô trả lời quyết liệt nhất thôi. và cũng có gửi mail cho Ndu rồi mà chả thấy trả lời. có vẻ là bay vô thư rác rồi cũng nên.
rất tiếc là Cần Thơ ko chỗ nào dạy. trên youtube thì chỉ cà lớt cà lớt đi nhanh quá (không có ý xúc phạm, do mình không hiểu cách làm thôi). cái đc cái ko @@
 
#50 mình trả lời cho #49 đó bạn xem lại đi.
bài #50 đã giúp mình rất nhiều về vấn đề mình cần và cũng đã được giải quyết ở code tự động.. nhưng bạn xem hộ mình lại đi, ý mình muốn nhờ giải thick code của bác doveandrose. đã viết rồi nhưng ý mình muốn code của bạn doveandrose. dùng cho 1 sheet khác cột khác và dòng khác thì phải sửa như nào,mình cũng tự vọc để sửa nhưng bị lồi nên nhờ bạn giúp, mình là dân xây dựng phải sử dụng nhiều nên muốn biết để sửa code của vùng cần khai báo để thực hiện codecho no chạy, phiền bạn doveandrose nhieu quá nên cung ngại.. code bạn doveandrose viết cho sheet 1.K95 gio minh muon code đó thực hiện cho sheet 111 thì phải đổi như nào, mình cũng nhiều việc nên ko tìm hiểu được sâu chỉ biết dùng mong được chỉ để thực hiện cho đối tượng sheet khác
 
Lần chỉnh sửa cuối:
bài #50 đã giúp mình rất nhiều về vấn đề mình cần và cũng đã được giải quyết ở code tự động.. nhưng bạn xem hộ mình lại đi, ý mình muốn nhờ giải thick code của bác doveandrose. đã viết rồi nhưng ý mình muốn code của bạn doveandrose. dùng cho 1 sheet khác cột khác và dòng khác thì phải sửa như nào,mình cũng tự vọc để sửa nhưng bị lồi nên nhờ bạn giúp, mình là dân xây dựng phải sử dụng nhiều nên muốn biết để sửa code của vùng cần khai báo để thực hiện codecho no chạy, phiền bạn doveandrose nhieu quá nên cung ngại.. code bạn doveandrose viết cho sheet 1.K95 gio minh muon code đó thực hiện cho sheet 111 thì phải đổi như nào, mình cũng nhiều việc nên ko tìm hiểu được sâu chỉ biết dùng mong được chỉ để thực hiện cho đối tượng sheet khác
bạn xem lại hộ mình đi. #50 mình có nói rồi mà. bạn copy cái code mình thêm đó. dán qua sheet khác. xong chỉnh lại cột cần lấy. code của mình là B1:J rồi gì gì đó, mình xin nói lại. là nó lấy từ cột B đến J để in. sang sheet khác bác muốn nó lấy từ Z đến ZA gì đó thì sửa lại chỗ B1: J thành Z1:ZA mình cũng là dân xây dựng nên cũng chả biết gì nhiều về mấy cái code này cả, nói đúng hơn là không biết gì luôn.
file bác làm rất đẹp, bố cục còn ngon hơn file mình làm.
nếu bác muốn sửa code của doveandrose thì bác xem cái module 2 nha. cái Sub hidedongpro() đó
chỗ này .PageSetup.PrintArea = "B1:G207" dòng thứ 5 ở cuối đếm lên
tức là chọn vùng in từ B1 đến G207
bạn có thể xóa bỏ dòng này đi vì nếu áp dụng code của mình cho đó thì nó bị dư ra
mình xin giải thích lại cái cách tự động đó lại nha
phần đầu thì mình không biết làm sao. chỉ biết là nó làm cho code nó tự chạy luôn
chỗ call hidedongpro đó là gọi cái sub hidedongpro() ra làm là để ẩn đi dòng trống.
còn cái chỗ mình chú thích chọn vùng in đó chắc bạn biết chức năng r nhỉ. cứ F8+F8 chạy từ từ là biết. chứ mình cũng chả biết gì đâu. chỉ là nhấn F8 chạy từ từ rồi biết code nó làm gì làm gì rồi mới sửa lại, chứ viết code sorry bác em hok biết.

bác thàm khảo thêm lại #59 nha. mình thấy nó tổng quát hơn cách của doveandrose đó. cách của doveandrose chỉ áp dụng cho 300 dòng à. nếu hơn thì mình nghĩ nó sẽ chạy sai.
 
Lần chỉnh sửa cuối:
Mình xin chân thành cảm ơn mọi người! tất cả mọi thắc mắc theo yêu cầu của topic này đã được giải quyết!
 
Lần chỉnh sửa cuối:
Mình xin chân thành cảm ơn mọi người! tất cả mọi thắc mắc theo yêu cầu của topic này đã được giải quyết!
cái code trên mình đưa cho b đó. áp dụng vô file của bạn chạy sai nha. cứ áp dụng code của deveandrose rồi thêm cái code tự chạy mình đưa cho đó là đc rồi.
 
cái code trên mình đưa cho b đó. áp dụng vô file của bạn chạy sai nha. cứ áp dụng code của deveandrose rồi thêm cái code tự chạy mình đưa cho đó là đc rồi.
Mình giải quyết được hết rồi.. code của bạn deveandrose ngon lắm rồi.. hi hi! quả này làm nhàn quá.. cái thời gian auto to tay mất cả buổi sáng cho 1 file, giờ đây 1s là có thể uống nước chè hút thuốc cả buổi sáng rồi.. SƯỚNG! ha ha thanks all mọi người đã giúp đỡ rất nhiều
 
Lần chỉnh sửa cuối:
Langtuchungtinh360! mình đã tạo ra 1 bộ list hàm cell kết hợp với VBA giờ ngon lắm rồi, bạn làm xd có sài không mình share, nếu dùng để lại cái Gmail đấy hi hi (à cả auto xuất nhật kí nữa ^^!)
 
Lần chỉnh sửa cuối:
Langtuchungtinh360! mình đã tạo ra 1 bộ list hàm cell kết hợp với VBA giờ ngon lắm rồi, bạn làm xd có sài không mình share, nếu dùng để lại cái Gmail đấy hi hi (à cả auto xuất nhật kí nữa ^^!)
OK bác. em vừa tìm ra cách giúp bác ngắn gọn luôn nè.
dán code này vô
_____________________
Sub ANDONGSO0()'sua ten sheet lại cho sheet của bác nha.
For I = Sheet1.Range("a65500").End(xlUp).Row To 1 Step -1 'giai thich: dò ở cột A tại sheet1
If Range("a" & I).Value = 0 Then' nếu có giá trị 0 thì
Range("a" & I).EntireRow.Hidden = True 'ẩn hàng có giá trị 0 đi.
End If' file của bác thì giá trị tại mấy cái phía dưới là 0 nên dò số 0
Next'cũng ac thật! không xem hàm ở cột A làm tưởng nó là rỗng làm code chạy sai hoài.
End Sub ' kết thúc lệnh
________________
xong dùng cái code chọn vùng in mình sent đấy để mà chọn vùng
file đây https://www.fshare.vn/file/B6ONXH9KUCSO
hình như nó chạy 1 lần rồi mấy lần sau nó bị chậm ấy. có lẽ là nó không giải phóng đc bộ nhớ. bác hỏi mọi người trên diễn đàn xem sao nó chạy chậm ở mấy lần sau thế.
Mail:vantanle020192@gmail.com
SĐT:0939795092 có gì zalo bàn tiếp
 
Lần chỉnh sửa cuối:
Lần chỉnh sửa cuối:
code lỗi bạn gửi cái file add code rồi mình xem nào
 
Lần chỉnh sửa cuối:
Web KT

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

Back
Top Bottom