Các anh chị và các thầy cho em hỏi tự động căn chỉnh vùng đã gộp để vừa nội dung có trong vùng đó

[Bùi Thúy Thúy]

Khi in biên bản, em lấy dữ liệu từ Sheet "List" để in
Em có sử dụng code để in các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B"
Vùng dữ liệu được lấy từ nội dung Sheet "List" sang các các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B" được em bôi màu vàng
Cho em được hỏi làm thế nào để khi in tự động ( em có dùng code để in có trong file đính kèm) dữ liệu được link sang các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B" thì vùng màu vàng đó tự động căn chỉnh để phù hợp với nội dung đã có
- em cũng đã dùng code tự căn chỉnh nội dung trong vùng được gộp (vùng bôi vàng) nhưng khi dữ liệu được lấy sang phải tác đông Enter vào nó thì nó mới căn chỉnh được chứ khi in tự động thì dữ liệu vẫn không được căn chỉnh tự động với nội dung được link sang (code có trong file đính kèm)
Em xin cảm ơn ạ!

 

[♫ђöล♥ßล†♥†µ♫]

Khi in biên bản, em lấy dữ liệu từ Sheet "List" để in
Em có sử dụng code để in các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B"
Vùng dữ liệu được lấy từ nội dung Sheet "List" sang các các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B" được em bôi màu vàng
Cho em được hỏi làm thế nào để khi in tự động ( em có dùng code để in có trong file đính kèm) dữ liệu được link sang các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B" thì vùng màu vàng đó tự động căn chỉnh để phù hợp với nội dung đã có
- em cũng đã dùng code tự căn chỉnh nội dung trong vùng được gộp (vùng bôi vàng) nhưng khi dữ liệu được lấy sang phải tác đông Enter vào nó thì nó mới căn chỉnh được chứ khi in tự động thì dữ liệu vẫn không được căn chỉnh tự động với nội dung được link sang (code có trong file đính kèm)
Em xin cảm ơn ạ!
View attachment 206471View attachment 206474View attachment 206478

Bạn thử

 

[Bùi Thúy Thúy]

Bạn thử

Vâng em cám ơn chị, vẫn chưa được chị ạ!
Cái vùng ô bôi vàng của em khong link dữ liệu từ Sheet "List" sang được chị xem lại giúp em nguyên file gốc em đính kèm lên ạ!
Vùng ô màu vàng em cần lấy dữ liệu từ ô B8 ở sheet "List", như chị giúp em chị sử dụng công thức" =VLOOKUP(P2;List!$A$9:$N$97;2;0)" nó không link dữ liệu được từ Sheet "List"sang các vùng bôi vàng của 3 sheet còn lại

 

[♫ђöล♥ßล†♥†µ♫]

Vâng em cám ơn chị, vẫn chưa được chị ạ!
Cái vùng ô bôi vàng của em khong link dữ liệu từ Sheet "List" sang được chị xem lại giúp em nguyên file gốc em đính kèm lên ạ!
Vùng ô màu vàng em cần lấy dữ liệu từ ô B8 ở sheet "List", như chị giúp em chị sử dụng công thức" =VLOOKUP(P2;List!$A$9:$N$97;2;0)" nó không link dữ liệu được từ Sheet "List"sang các vùng bôi vàng của 3 sheet còn lại
View attachment 206509

Thì bạn Copy Cái Code bỏ vào file gốc của Bạn là được rồi. Cái hàm gì gì kia là mình đưa vào để Test Code thôi

 

[Bùi Thúy Thúy]

Thì bạn Copy Cái Code bỏ vào file gốc của Bạn là được rồi. Cái hàm gì gì kia là mình đưa vào để Test Code thôi

Dạ em vừa copy toàn bộ code vào file của em nhưng không được chị ạ!
Chị xem giúp em ạ!

 

[PacificPR]

Dạ em vừa copy toàn bộ code vào file của em nhưng không được chị ạ!
Chị xem giúp em ạ!

Ý Bạn là "Ba trong một" á.

Sub Thu()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    FixRow Sheets("NTNB").Range("D11")
    FixRow Sheets("YCNT").Range("E17")
    FixRow Sheets("NT A_B").Range("D20")
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[Bùi Thúy Thúy]

Ý Bạn là "Ba trong một" á.

Sub Thu()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    FixRow Sheets("NTNB").Range("D11")
    FixRow Sheets("YCNT").Range("E17")
    FixRow Sheets("NT A_B").Range("D20")
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Dạ ý em là lấy dữ liệu từ sheet "List" sang 3 sheet còn lại kia và dữ liệu được lấy đều được điền vào vùng bôi vàng, em muốn vùng bôi vàng ở cả 3 sheet Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" đều được căn chỉnh khớp với nội dung được lấy từ sang ạ!

Bài đã được tự động gộp: 27/10/18

Ý Bạn là "Ba trong một" á.

Sub Thu()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    FixRow Sheets("NTNB").Range("D11")
    FixRow Sheets("YCNT").Range("E17")
    FixRow Sheets("NT A_B").Range("D20")
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Dạ em có thử đoạn code chị giúp nhưng vẫn không được ạ!

 

[PacificPR]

Dạ ý em là lấy dữ liệu từ sheet "List" sang 3 sheet còn lại kia và dữ liệu được lấy đều được điền vào vùng bôi vàng, em muốn vùng bôi vàng ở cả 3 sheet Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" đều được căn chỉnh khớp với nội dung được lấy từ sang ạ!

Bài đã được tự động gộp: 27/10/18

Dạ em có thử đoạn code chị giúp nhưng vẫn không được ạ!

Sao nó vẫn không được miết vậy. Bạn nói căn chỉnh vùng thì Code nó đã căn chỉnh rồi. Hay là cho nó in tự động nữa

 

[Bùi Thúy Thúy]

Sao nó vẫn không được miết vậy. Bạn nói căn chỉnh vùng thì Code nó đã căn chỉnh rồi. Hay là cho nó in tự động nữa

Vâng ý em là tự động in ra và tự động co giãn khi số thứ tự biên bản được in ra tự động, file em gửi đã có code in tự động, nhưng khi em thêm code của chị giúp vào khi in ra theo số thứ tự thì các vùng bôi vàng không căn chỉnh tự động theo số thứ tự in.
Ví dụ em in từ 1 đến 10, tương ứng với số thứ tự ở ô A8 thì 3Sheets : Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" có vùng bôi vàng chưa được tự động căn chỉnh độ cao và độ rộng của vùng để phù hợp với nội dung được lấy sang.
Hình 1: em in từ số 1 đến 10
biên bản ở 3 sheet được in ra tương ứng từ số 01 đến 10, và khi in nội dung tự động co giãn để khớp với vùng bôi màu vàng

 

[PacificPR]

Vâng ý em là tự động in ra và tự động co giãn khi số thứ tự biên bản được in ra tự động, file em gửi đã có code in tự động, nhưng khi em thêm code của chị giúp vào khi in ra theo số thứ tự thì các vùng bôi vàng không căn chỉnh tự động theo số thứ tự in.
Ví dụ em in từ 1 đến 10, tương ứng với số thứ tự ở ô A8 thì 3Sheets : Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" có vùng bôi vàng chưa được tự động căn chỉnh độ cao và độ rộng của vùng để phù hợp với nội dung được lấy sang.
Hình 1: em in từ số 1 đến 10
biên bản ở 3 sheet được in ra tương ứng từ số 01 đến 10, và khi in nội dung tự động co giãn để khớp với vùng bôi màu vàngView attachment 206516

Lát nữa mình làm thử. Máy mình nó cứ hiện cái bảng

​

Không làm gì được hết

 

[Bùi Thúy Thúy]

Lát nữa mình làm thử. Máy mình nó cứ hiện cái bảng

View attachment 206519​

Không làm gì được hết

Vâng em cám ơn chị! em đang cần để in mà cứ chỉnh thủ công vậy lâu quá!

 

[PacificPR]

Vâng em cám ơn chị! em đang cần để in mà cứ chỉnh thủ công vậy lâu quá!

Bạn xem thử. Nếu ưng cái bụng thì thay PrintPreview bằng PrintOut nha

 

[Bùi Thúy Thúy]

Bạn xem thử. Nếu ưng cái bụng thì thay PrintPreview bằng PrintOut nha

Làm sao để in một cái hết luôn được vậy chị! đây là in từng tờ 1 ạ!
chị có thể giúp em qua timevew được không ạ! phần in có vấn đề chị ạ!
không thể tác động được vào in ra

 

[huuthang_bd]

Căn chỉnh ở những vị trí cố định như thế này thì dùng cột phụ là ngon nhất. Nhanh mà chính xác. Mấy code căn chỉnh trên diễn đàn cũng hên xui nha.

 

[♫ђöล♥ßล†♥†µ♫]

Căn chỉnh ở những vị trí cố định như thế này thì dùng cột phụ là ngon nhất. Nhanh mà chính xác. Mấy code căn chỉnh trên diễn đàn cũng hên xui nha.

Anh ra tay cho bọn em học với

 

[Bùi Thúy Thúy]

Căn chỉnh ở những vị trí cố định như thế này thì dùng cột phụ là ngon nhất. Nhanh mà chính xác. Mấy code căn chỉnh trên diễn đàn cũng hên xui nha.

anh có thể giúp em chi tiết hơn không ạ!, em chưa rõ lắm

 

[♫ђöล♥ßล†♥†µ♫]

Làm sao để in một cái hết luôn được vậy chị! đây là in từng tờ 1 ạ!
chị có thể giúp em qua timevew được không ạ! phần in có vấn đề chị ạ!
không thể tác động được vào in raView attachment 206527

Mà tạc động vào vùng in là làm thao hả Bạn. Ra lệnh cho nóa in thì nóa in. Chứ mần răng mà can thiệp được

 

[huonglien1901]

Căn chỉnh ở những vị trí cố định như thế này thì dùng cột phụ là ngon nhất. Nhanh mà chính xác. Mấy code căn chỉnh trên diễn đàn cũng hên xui nha.

Anh có thể gửi cách làm của Anh cho em và mấy bạn được học hỏi với.

 

[♫ђöล♥ßล†♥†µ♫]

Anh có thể gửi cách làm của Anh cho em và mấy bạn được học hỏi với.

Được Anh @huuthang_bd ra tay giúp thì ước ao của mọi thành viên trong diễn đàn rồi

 

[Bùi Thúy Thúy]

Mà tạc động vào vùng in là làm thao hả Bạn. Ra lệnh cho nóa in thì nóa in. Chứ mần răng mà can thiệp được

Tức là khi sử dụng code bài #12 của chị PacificPR thì không ấn Print được ạ! chị thử file đính kèm bài 12 xem ạ