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 đó

Liên hệ QC
Bùi Thúy Thúy

Bùi Thúy Thúy

Thành viên thường trực
Tham gia
2/7/18
Bài viết
289
Được thích
38
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 ạ!
1.png12.png345.png
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bùi Thúy Thúy đã viết:
anh cho em hỏi dùng có giới hạn gì không ạ!
Đây là bản đầy đủ chứ ạ! em thấy giao diện có chút giống phần mềm QLCL của GXD.
Nhấp chuột vào đây để mở rộng...
Không có giới hạn gì cả. Đây là phiên bản thử ngiệm trước đây mình viết. Giờ mình phát triển bản khác nhiều tính năng hơn nữa nên chia sẻ cho mọi người dùng. Giao diện giống vì mình lấy luôn file biểu mẫu của GXD để viết code.
 
Upvote 0
aybykut3 đã viết:
Không có giới hạn gì cả. Đây là phiên bản thử ngiệm trước đây mình viết. Giờ mình phát triển bản khác nhiều tính năng hơn nữa nên chia sẻ cho mọi người dùng. Giao diện giống vì mình lấy luôn file biểu mẫu của GXD để viết code.
Nhấp chuột vào đây để mở rộng...
Vâng, em muốn tải bản Full thì vào đâu ạ!
Em cám ơn anh
 
Upvote 0
aybykut3 đã viết:
Lâu lâu mải mê kiếm ăn bên ngoài không vào diễn đàn.
Tặng anh em file này mình làm từ năm 2015. Chắc chắn sẽ giải quyết được mọi vấn đề mọi người đang bàn luận.
1 file làm toàn bộ HS QLCL. + Nhật ký từng ngày. + In ấn hàng loạt
Mọi người tải về tự nghiên cứu và tùy chỉnh.
pass vba để chỉnh sửa: omdjsc
Nhấp chuột vào đây để mở rộng...
Thanks anh+
Nhưng sao Sheet VL em không bấm chuột phải được để nhập dữ liệu?
 

File đính kèm

  • grt.png
    grt.png
    53.6 KB · Đọc: 17
Lần chỉnh sửa cuối:
Upvote 0
huuthang_bd đã viết:
Bạn xem file.
Nhấp chuột vào đây để mở rộng...
Chào anh, anh ơi cho em hỏi chút:
em có xem đoạn code anh giúp em để dòng phù hợp với nội dung trong ô được gộp.
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(FitRows).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
"17" ở đây nghĩa là gi vậy anh?
 
Upvote 0
huuthang_bd đã viết:
Địa chỉ các dòng mà bạn muốn co dãn chiều cao.
Nhấp chuột vào đây để mở rộng...
Anh ơi? Giả sử em muốn thêm dòng "5" hoặc nhiều dòng bất kỳ để giãn dòng thì thêm vào phần nào trong code ạ?
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(FitRows).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
truongvu317 đã viết:
Range("a1:a10, a16").entirerow.autofit

Áp dụng cho dòng 1 tới dòng 10 và dòng 16
Nhấp chuột vào đây để mở rộng...
Lắp giúp em vào luôn code đi anh cho hoàn thiện hì
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(FitRows).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
Bùi Thúy Thúy đã viết:
Lắp giúp em vào luôn code đi anh cho hoàn thiện hì
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(FitRows).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Thay dòng đó vào dòng rows(.... của code cũ đó. Minh ko ngồi máy tinh....
 
Upvote 0
Bùi Thúy Thúy đã viết:
Dòng "Row" là dòng số 4
Vậy còn dòng đầu? có "17"
Khi nào ngồi máy giúp mình nhé!
Nhấp chuột vào đây để mở rộng...
Mình làm thế này thấy được nè
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(17).EntireRow.AutoFit
    Rows(18).EntireRow.AutoFit
    Rows(19).EntireRow.AutoFit
    Rows(20).EntireRow.AutoFit
    Rows(21).EntireRow.AutoFit
    Rows(22).EntireRow.AutoFit
    Rows(23).EntireRow.AutoFit
    Rows(24).EntireRow.AutoFit
    Rows(25).EntireRow.AutoFit
    Rows(26).EntireRow.AutoFit
    Rows(28).EntireRow.AutoFit
    Rows(29).EntireRow.AutoFit
    Rows(30).EntireRow.AutoFit
    Rows(31).EntireRow.AutoFit
    Rows(32).EntireRow.AutoFit
    Rows(33).EntireRow.AutoFit
    Rows(34).EntireRow.AutoFit
    Rows(35).EntireRow.AutoFit
    Rows(36).EntireRow.AutoFit
    Rows(37).EntireRow.AutoFit
    Rows(38).EntireRow.AutoFit
    Rows(39).EntireRow.AutoFit
    Rows(40).EntireRow.AutoFit
    Rows(41).EntireRow.AutoFit
    Rows(42).EntireRow.AutoFit
    Rows(43).EntireRow.AutoFit
    Rows(44).EntireRow.AutoFit
    Rows(45).EntireRow.AutoFit
    Rows(46).EntireRow.AutoFit
    Rows(47).EntireRow.AutoFit
    Rows(48).EntireRow.AutoFit
    Rows(49).EntireRow.AutoFit
    Rows(50).EntireRow.AutoFit
    Rows(51).EntireRow.AutoFit
    Rows(52).EntireRow.AutoFit
    Rows(53).EntireRow.AutoFit
    Rows(54).EntireRow.AutoFit
    Range("A17:A54").EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
Nhất Chi Lan đã viết:
Mình làm thế này thấy được nè
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(17).EntireRow.AutoFit
    Rows(18).EntireRow.AutoFit
    Rows(19).EntireRow.AutoFit
    Rows(20).EntireRow.AutoFit
    Rows(21).EntireRow.AutoFit
    Rows(22).EntireRow.AutoFit
    Rows(23).EntireRow.AutoFit
    Rows(24).EntireRow.AutoFit
    Rows(25).EntireRow.AutoFit
    Rows(26).EntireRow.AutoFit
    Rows(28).EntireRow.AutoFit
    Rows(29).EntireRow.AutoFit
    Rows(30).EntireRow.AutoFit
    Rows(31).EntireRow.AutoFit
    Rows(32).EntireRow.AutoFit
    Rows(33).EntireRow.AutoFit
    Rows(34).EntireRow.AutoFit
    Rows(35).EntireRow.AutoFit
    Rows(36).EntireRow.AutoFit
    Rows(37).EntireRow.AutoFit
    Rows(38).EntireRow.AutoFit
    Rows(39).EntireRow.AutoFit
    Rows(40).EntireRow.AutoFit
    Rows(41).EntireRow.AutoFit
    Rows(42).EntireRow.AutoFit
    Rows(43).EntireRow.AutoFit
    Rows(44).EntireRow.AutoFit
    Rows(45).EntireRow.AutoFit
    Rows(46).EntireRow.AutoFit
    Rows(47).EntireRow.AutoFit
    Rows(48).EntireRow.AutoFit
    Rows(49).EntireRow.AutoFit
    Rows(50).EntireRow.AutoFit
    Rows(51).EntireRow.AutoFit
    Rows(52).EntireRow.AutoFit
    Rows(53).EntireRow.AutoFit
    Rows(54).EntireRow.AutoFit
    Range("A17:A54").EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
vậy cái số "17" trong đoạn code
Mã: 
Private Const FitRows As String = "17"
có cần không vậy ạ?
 
Upvote 0
Bùi Thúy Thúy đã viết:
vậy cái số "17" trong đoạn code
Mã: 
Private Const FitRows As String = "17"
có cần không vậy ạ?
Nhấp chuột vào đây để mở rộng...

Bạn có thể hiểu như sau

Rows("17") tương đương với Rows("17").EntireRow
Vì vậy không cần .EntireRow
EntireRow là lấy nguyên cả một hàng hoặc một khối hàng của một Range
Hàng:
Range("A1").EntireRow hoặc Range("A1:A100").EntireRow
Cột:
Range("C6").EntireColumn hoặc Range("A1:Z100").EntireColumn

Rows("17") tức là Dòng thứ 17 trong Trang tính

Rows("17:50").AutoFit

Với Columns thì phải dùng chữ cái, nếu không dùng EntireColumn
Columns("A").AutoFit hoặc Columns("A:ZZ").AutoFit
 
Upvote 0
HeSanbi đã viết:
Bạn có thể hiểu như sau

Rows("17") tương đương với Rows("17").EntireRow
Vì vậy không cần .EntireRow
EntireRow là lấy nguyên cả một hàng hoặc một khối hàng của một Range
Hàng:
Range("A1").EntireRow hoặc Range("A1:A100").EntireRow
Cột:
Range("C6").EntireColumn hoặc Range("A1:Z100").EntireColumn

Rows("17") tức là Dòng thứ 17 trong Trang tính

Rows("17:50").AutoFit

Với Columns thì phải dùng chữ cái, nếu không dùng EntireColumn
Columns("A").AutoFit hoặc Columns("A:ZZ").AutoFit
Nhấp chuột vào đây để mở rộng...
Rất cám ơn anh!
Vậy mình có thể bỏ đi
Private Const FitRows As String = "17"
trong đoạn code vẫn chạy được đúng không anh?
Nó được thay bởi dòng code "Rows(17).EntireRow.AutoFit"
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(17).EntireRow.AutoFit
    Rows(18).EntireRow.AutoFit
    Rows(19).EntireRow.AutoFit
    Rows(20).EntireRow.AutoFit
    Rows(21).EntireRow.AutoFit
    Rows(22).EntireRow.AutoFit
    Rows(23).EntireRow.AutoFit
    Rows(24).EntireRow.AutoFit
    Rows(25).EntireRow.AutoFit
    Rows(26).EntireRow.AutoFit
    Rows(28).EntireRow.AutoFit
    Rows(29).EntireRow.AutoFit
    Rows(30).EntireRow.AutoFit
    Rows(31).EntireRow.AutoFit
    Rows(32).EntireRow.AutoFit
    Rows(33).EntireRow.AutoFit
    Rows(34).EntireRow.AutoFit
    Rows(35).EntireRow.AutoFit
    Rows(36).EntireRow.AutoFit
    Rows(37).EntireRow.AutoFit
    Rows(38).EntireRow.AutoFit
    Rows(39).EntireRow.AutoFit
    Rows(40).EntireRow.AutoFit
    Rows(41).EntireRow.AutoFit
    Rows(42).EntireRow.AutoFit
    Rows(43).EntireRow.AutoFit
    Rows(44).EntireRow.AutoFit
    Rows(45).EntireRow.AutoFit
    Rows(46).EntireRow.AutoFit
    Rows(47).EntireRow.AutoFit
    Rows(48).EntireRow.AutoFit
    Rows(49).EntireRow.AutoFit
    Rows(50).EntireRow.AutoFit
    Rows(51).EntireRow.AutoFit
    Rows(52).EntireRow.AutoFit
    Rows(53).EntireRow.AutoFit
    Rows(54).EntireRow.AutoFit
    Range("A17:A54").EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
Bùi Thúy Thúy đã viết:
Rất cám ơn anh!
Vậy mình có thể bỏ đi
Private Const FitRows As String = "17"
trong đoạn code vẫn chạy được đúng không anh?
Nó được thay bởi dòng code "Rows(17).EntireRow.AutoFit"
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(17).EntireRow.AutoFit
    Rows(18).EntireRow.AutoFit
    Rows(19).EntireRow.AutoFit
    Rows(20).EntireRow.AutoFit
    Rows(21).EntireRow.AutoFit
    Rows(22).EntireRow.AutoFit
    Rows(23).EntireRow.AutoFit
    Rows(24).EntireRow.AutoFit
    Rows(25).EntireRow.AutoFit
    Rows(26).EntireRow.AutoFit
    Rows(28).EntireRow.AutoFit
    Rows(29).EntireRow.AutoFit
    Rows(30).EntireRow.AutoFit
    Rows(31).EntireRow.AutoFit
    Rows(32).EntireRow.AutoFit
    Rows(33).EntireRow.AutoFit
    Rows(34).EntireRow.AutoFit
    Rows(35).EntireRow.AutoFit
    Rows(36).EntireRow.AutoFit
    Rows(37).EntireRow.AutoFit
    Rows(38).EntireRow.AutoFit
    Rows(39).EntireRow.AutoFit
    Rows(40).EntireRow.AutoFit
    Rows(41).EntireRow.AutoFit
    Rows(42).EntireRow.AutoFit
    Rows(43).EntireRow.AutoFit
    Rows(44).EntireRow.AutoFit
    Rows(45).EntireRow.AutoFit
    Rows(46).EntireRow.AutoFit
    Rows(47).EntireRow.AutoFit
    Rows(48).EntireRow.AutoFit
    Rows(49).EntireRow.AutoFit
    Rows(50).EntireRow.AutoFit
    Rows(51).EntireRow.AutoFit
    Rows(52).EntireRow.AutoFit
    Rows(53).EntireRow.AutoFit
    Rows(54).EntireRow.AutoFit
    Range("A17:A54").EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
1573549932145.png
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

SA_DQ
  • Question Question
[Bài tập VBA cho người rỗi rảnh] Hãy viết 1 macro tìm ra 3 số nguyên tố liên tiếp
2
Trả lời
32
Đọc
633
huhumalu
H
Nauduong
Cách chuyển định dạng từ PDF sang Image
Trả lời
2
Đọc
51
huhumalu
H
P
Các Bác cho e hỏi làm thế nào để ẩn công thức trên GOOGLE SHEET với ạ?
2
Trả lời
22
Đọc
18K
yeudoi
yeudoi
T
Định dạng cột dữ liệu trong sql
Trả lời
5
Đọc
99
ptm0412
ptm0412
L
  • Question Question
[Hlep] Xóa ảnh theo tên và kích thước
Trả lời
8
Đọc
171
Luong24
L
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
0
Đọc
67
Xoainon3005
Xoainon3005
A
Tạo vé Loto bằng Excel
Trả lời
19
Đọc
23K
vinhquang14292
vinhquang14292
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
308
Đọc
22K
CheezeTube
CheezeTube
HeSanbi
  • Đã giải quyết
LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3 4
Trả lời
74
Đọc
10K
vn72259
V
H
Vì sao trong khi cộng và khi sum lại hiển thị sai
Trả lời
15
Đọc
57K
hieung99
hieung99
Thanh271188
Tìm giá trị xuất hiện bất kì (không phải giá trị đầu, cuối) trong excel
    • Cười
Trả lời
3
Đọc
153
VetMini
V
T
Nhờ hỗ trợ hàm SUMIF không phân biệt được các ký tự "0" trước một số trong chuỗi
Trả lời
3
Đọc
194
tan10ckn
T
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2 3
Trả lời
46
Đọc
14K
tuantran203
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
12 13 14
Trả lời
260
Đọc
27K
hoangtuan.net
hoangtuan.net
HeSanbi
  • Đã giải quyết
WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (*15/01/2024)
    • Thích
    • Yêu thích
3 4 5
Trả lời
88
Đọc
19K
vc_đi chơi
vc_đi chơi
L
[Help] tự động lấy dữ liệu cổ phiếu từ vietstock về file excel
    • Thích
Trả lời
3
Đọc
864
ketoan113
K
N
Tách chuỗi và tìm kiếm theo dữ liệu gần đúng trong chuỗi ký tự
Trả lời
8
Đọc
210
Ngocminh19
N
Mr.hieudoanxd
  • Question Question
[Cần hướng dẫn] Về lập trình Viết Function với Settimer và Killtimer
    • Thích
Trả lời
8
Đọc
355
nguyendang95
N
Emyeuexcel
  • Question Question
Code VBA mở nhiều file, value các sheet, lưu và đóng file
Trả lời
3
Đọc
161
Emyeuexcel
Emyeuexcel
V
Cho 2 biến - kết quả trả về giá trị của hàng đầu tiên
    • Chấp nhận
Trả lời
5
Đọc
190
Duy Tùng 9x
Duy Tùng 9x
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom