Kết quả tìm kiếm

Thanks Anh nhiều !! Em làm được rồi ạ 1636103418 Hơi dài dòng nhưng cũng có thêm 1 cách khác nữa... Thanks nhiu ạ

Ra như hình này nè Anh

Dạ đúng rồi đó ạ nhưng em chạy code bên 2007 ko dc

Bị lỗi này nè Anh.. Anh xài excel bao nhiêu dạ, em xài 2007

.PageSetup.PrintArea = Right(T, Len(T) - 1) dòng này báo lỗi Unable to set the print area property ò the page set up class

Note: Dim Rng As Range, Vung As Range, T& nếu để như vậy thì báo lỗi type missed nên em bỏ dấu & sửa lại là Dim Rng As Range, Vung As Range, T thì Bị lỗi ngay dòng này rồi Anh ơi .PageSetup.PrintArea = Right(T, Len(T) - 1) Báo lỗi Unable to set the print area property ò the page set...

Dạ Anh thấy ở ô nào Ạ xem em xem ko thấy!!1

Dạ là vùng A1:M3 và A5 : A7 ạ

Nếu A1<>"" C1<>"" A5<>"" A9<>"" I13<>"" Còn lại là trống thì vùng in như nào? A1:J16 à? Xin trả lởi câu hỏi của anh ạ: Vậy vùng in sẽ là A1 : A3 , C1:C3, A5:A7, A9:A11, I13:I15 --> trường hợp như vậy sẽ không thể xảy ra ạ tại vì em đã bắt lỗi ngay từ đầu nên dữ liệu sẽ theo thứ tự là: A1, C1...

Dạ anh xem file cho dễ hiểu ạ. khi các Ô : A1, C1, E1 ,G1, I1, K1, M1, A5, C5, E5 ,G5, I5, K5, M5 A9, C9, E9,G9, I9, K9, M9 A13, C13, E13,G13, I13, K13, M13 Có dữ liệu thì vùng in sẽ được chọn Ví dụ: Ô: A1 # "" thì vùng in sẽ chọn là A1:A3 C1 # "" thì vùng in sẽ chọn A1:C3 E1 # "" thì vùng in sẽ...

Chào Anh/Chị Diễn Đàn mong anh chị giúp em thu gọn code hoặc có code nào giải quyết vấn đề chọ vùng in khi thỏa mãn diều kiện cho trước. Em có viết 1 đoạn code như bên dưới để chọn vùng để in nhưng vấn đề gặp phải là code em quá dài và ko hiệu quả. Em có gởi file lên mong Anh/Chị giúp đỡ ...

Thanks bạn nhiều. Vấn đề sắp sếp dữ liệu ổn rồi ạ chỉ bị khúc mắc phần nhỏ đó thôi. Cám ơn bạn nhiệt tình giúp đỡ

Thanks bạn ạ. Bạn xài mảng cũng quá hay nhanh gọn !! nhưng mà mình không lấy hết tất cả các cột mình chỉ chọn cột D,F,G,N sheet 1 thôi

Ôi chết em nhầm đúng là phải sheet dulieu chuyen sheet hoadon ạ. Mong anh giúp em ạ 1634452322 Quá hay anh ơi gãi đúng chỗ ngứa .. Thanks anh nhiều Hôm qua đến giờ em suy nghĩ hoài xong xài code này nó chậm dã man For Each cell In Sheet1.Range("h10:h40") ' If cell.Value = "" Then ...

Hy vọng được mọi người giúp đỡ suy nghĩ qua nay chưa có biện pháp giải quyết ạ. Thanks ạ

Xin chào Anh/Chị Diễn đàn !! Như tiêu đề trong file e có nêu rõ vấn đề em đang gặp phải mong Anh/Chị Giúp đỡ. Em cám ơn! Phần đang gặp vấn đề em có mô tả trong file cho dễ mô tả ạ

Ah taij mình nhầm do copy code. Sorry bạn tại ko có thời gian test

Những phần chính mình cũng làm rồi còn lại những phần phụ như ẩn hay hiện label hay textbox bạn tự làm nha !

Hậu tạ nữa cơ ah khỏi đi , Làm giúp bạn thì được nhưng hơi lâu nếu gấp quá thì chịu !!

Bạn muốn hỏi mình gì cứ post lên mình sẽ giải đáp giúp bạn !! Hay bạn add zalo