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 ạ!

 

[Bùi Thúy Thúy]

View attachment 228218

Dạ! em cám ơn nhiều!

 

[truongvu317]

Lắp giúp em vào luôn code đi anh cho hoàn thiện hì

Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    
    
    'Rows(FitRows).EntireRow.AutoFit
    Range("A13,A11").EntireRow.AutoFit
    
    
    Application.ScreenUpdating = True
End Sub

Trong file là áp dụng cho dòng 11 và dòng 13.

Có thể copy nhiều dòng Range("A13,A11").EntireRow.AutoFit thành:

Range("A1:A10").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10

Range("A1:A10,A20").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10 và dòng 20
Range("A1:A10,A20:A40").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10 và từ dòng 20 tới dòng 40

Tóm lại là nhập vào đó một chuỗi địa chỉ mà vùng địa chỉ đó giao với các dòng cần chỉnh. Xin lỗi bạn nhiều nhé!hihi

 

[Bùi Thúy Thúy]

Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
   
   
    'Rows(FitRows).EntireRow.AutoFit
    Range("A13,A11").EntireRow.AutoFit
   
   
    Application.ScreenUpdating = True
End Sub

Trong file là áp dụng cho dòng 11 và dòng 13.

Có thể copy nhiều dòng Range("A13,A11").EntireRow.AutoFit thành:

Range("A1:A10").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10

Range("A1:A10,A20").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10 và dòng 20
Range("A1:A10,A20:A40").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10 và từ dòng 20 tới dòng 40

Tóm lại là nhập vào đó một chuỗi địa chỉ mà vùng địa chỉ đó giao với các dòng cần chỉnh. Xin lỗi bạn nhiều nhé!hihi

Vâng, cảm ơn anh nhiều!

 

[Bùi Thúy Thúy]

Địa chỉ các dòng mà bạn muốn co dãn chiều cao.

Anh ơi giả sử nếu một dòng (1 hàng) mà có 03 vùng gộp ô thì với cách anh hướng dẫn thì xử lý như thế nào ạ?

 

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

Anh ơi giả sử nếu một dòng (1 hàng) mà có 03 vùng gộp ô thì với cách anh hướng dẫn thì xử lý như thế nào ạ?

Vậy bạn hỏi tên @ langtuchungtinh360 ý

 

[Bùi Thúy Thúy]

Vậy bạn hỏi tên @ langtuchungtinh360 ý

Em k hiểu ạ? có bài code chị giúp em về giãn dòng nhờ chị sửa lại chút, thấy lâu lâu quá, em mò mẫm mãi không ra, hic hic

Bài đã được tự động gộp: 16/11/19

Em k hiểu ạ? có bài code chị giúp em về giãn dòng nhờ chị sửa lại chút, thấy lâu lâu quá, em mò mẫm mãi không ra, hic hic

Mà anh ấy dừng hoạt động rồi chị ạ!

 

[be_09]

Vậy bạn hỏi tên @ langtuchungtinh360 ý

Hắn ta tèo rồi làm sao hỏi được.

Bài đã được tự động gộp: 16/11/19

Anh ơi giả sử nếu một dòng (1 hàng) mà có 03 vùng gộp ô thì với cách anh hướng dẫn thì xử lý như thế nào ạ?

Tôi không theo dõi từ đầu nên làm biếng đọc lại, Làm File nào nêu rỏ nó nằm ở bài nào, khi nào rảnh tôi giúp cho.

 

[Bùi Thúy Thúy]

Hắn ta tèo rồi làm sao hỏi được.

Bài đã được tự động gộp: 16/11/19

Tôi không theo dõi từ đầu nên làm biếng đọc lại, Làm File nào nêu rỏ nó nằm ở bài nào, khi nào rảnh tôi giúp cho.

Vâng! Anh giúp em bài #1

Xin được giúp nhờ chỉnh sửa code giãn dòng

Em có tham khảo đoạn code để dãn dòng Trên GPE và áp dụng: Trong sheet"Bang" được lấy dữ liệu từ sheet"Nguon". + Sub Dandong() em copy vào sheet"Bang" nhu sau": Sub Dandong() Dim cll As Range On Error Resume Next For Each cll In Range("F11", Range("F" & Rows.Count).End(xlUp)) If cll...

www.giaiphapexcel.com

 

[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.

Em chào anh, giờ em mới hiểu chữ "hên xui" anh nói, em đã tham khảo rất nhiều code trên diễn đàn để giãn dòng.
Nhưng đúng là hên xui, được ở cài này nhưng nhiều cái khác lại không được, không biết nguyên nhân là sao vậy anh nhỉ?
Cám ơn anh đã giúp!

 

[QuangMinhtb]

Bạn xem file.

Em chào thầy!
Thầy cho em hỏi nếu trên cùng một dòng có nhiều hơn 01 vùng gộp cần giãn dòng tự động thì có thể xử lý theo hướng của thầy là dùng cột phụ được không ạ? em cũng có tham khảo mấy cách trên diễn đàn nhưng nhiều bài áp dụng thì được nhưng nhiều bài vẫn bị che khuất nội dung.
Xin thầy chỉ bảo.
Cảm ơn thầy!