Xoá dòng tự động và định dạng trang in (1 người xem)

bda50dh · 4/4/22

Em chào các a/c.Hiện tại e đang làm một tờ nhật ký thi công,trong trang 1 e có sử dụng code dãn dòng tự động nhưng khi số liệu dài thì các dòng sau của e bị nhảy sang trang 2.Em muốn nhờ a/c giúp e làm thế nào để khi dãn dòng số liệu không bị nhảy sang trang 2 hoặc làm sao để xoá tự động các dòng gần cuối trang a.
Em cảm ơn các a/c/e.

Maika8008 · 4/4/22

bda50dh đã viết:
Em chào các a/c.Hiện tại e đang làm một tờ nhật ký thi công,trong trang 1 e có sử dụng code dãn dòng tự động nhưng khi số liệu dài thì các dòng sau của e bị nhảy sang trang 2.Em muốn nhờ a/c giúp e làm thế nào để khi dãn dòng số liệu không bị nhảy sang trang 2 hoặc làm sao để xoá tự động các dòng gần cuối trang a.
Em cảm ơn các a/c/e.

Có file mẫu mà đến đổ khùng còn chưa làm được huống hồ nói suông.

bda50dh · 4/4/22

Maika8008 đã viết:
Có file mẫu mà đến đổ khùng còn chưa làm được huống hồ nói suông.

Xin lỗi a.e cũng sơ xuất quá.Em đăng lại file lên mong a xem giúp gì được không a.Thank a.

BuiQuangThuan · 4/4/22

bda50dh đã viết:
e có sử dụng code dãn dòng tự động

Trong file có thấy code nào đâu nhỉ bạn?

qtm1987 · 4/4/22

bda50dh đã viết:
Em chào các a/c.Hiện tại e đang làm một tờ nhật ký thi công,trong trang 1 e có sử dụng code dãn dòng tự động nhưng khi số liệu dài thì các dòng sau của e bị nhảy sang trang 2.Em muốn nhờ a/c giúp e làm thế nào để khi dãn dòng số liệu không bị nhảy sang trang 2 hoặc làm sao để xoá tự động các dòng gần cuối trang a.
Em cảm ơn các a/c/e.

Với file của bạn mình làm theo cách đơn giản như sau:
- Tại vị trí A10 bạn chỉnh kích thước độ cao tối đa của dòng (hình như là 410) và chắc chắn rằng nội dung diễn giải là đủ chứa trong dòng này
- Để lại dòng A11 và xóa hết các dòng thừa từ A12 còn lại sao cho đủ Page1
- Chỉnh tiếp dòng A11 độ cao cho vừa trang in rồi Merge lại với A10
- Đặt công thức A10='NHAT KY'!B4 &CHAR(10)& REPT(". ",2000)
Với cách này thì cũng không cần code dãn dòng gì nữa vì mặc định Biểu mẫu tại Page1 mình đã chỉnh cố định rồi, phần còn lại dòng trống làm sao cho ra dấu chấm chấm cho đẹp thôi.

Maika8008 · 4/4/22

bda50dh đã viết:
Xin lỗi a.e cũng sơ xuất quá.Em đăng lại file lên mong a xem giúp gì được không a.Thank a.

Code bạn nói "trong trang 1 e có sử dụng code dãn dòng tự động" ở đâu? Chừ không biết gọi là sơ suất hay gì nữa đây?

bda50dh · 4/4/22

qtm1987 đã viết:
Với file của bạn mình làm theo cách đơn giản như sau:
- Tại vị trí A10 bạn chỉnh kích thước độ cao tối đa của dòng (hình như là 410) và chắc chắn rằng nội dung diễn giải là đủ chứa trong dòng này
- Để lại dòng A11 và xóa hết các dòng thừa từ A12 còn lại sao cho đủ Page1
- Chỉnh tiếp dòng A11 độ cao cho vừa trang in rồi Merge lại với A10
- Đặt công thức A10='NHAT KY'!B4 &CHAR(10)& REPT(". ",2000)
Với cách này thì cũng không cần code dãn dòng gì nữa vì mặc định Biểu mẫu tại Page1 mình đã chỉnh cố định rồi, phần còn lại dòng trống làm sao cho ra dấu chấm chấm cho đẹp thôi.

Thật sự rất cám ơn vì sự quan tâm của a!e có gửi lại a file ,a xem lại giúp e xem có hướng giải quyết không ạ.e cảm ơn.

Bài đã được tự động gộp: 4/4/22

Maika8008 đã viết:
Code bạn nói "trong trang 1 e có sử dụng code dãn dòng tự động" ở đâu? Chừ không biết gọi là sơ suất hay gì nữa đây?

e up lại rồi a!

Bài đã được tự động gộp: 4/4/22

BuiQuangThuan đã viết:
Trong file có thấy code nào đâu nhỉ bạn?

em úp lại rồi a xem giúp e với a.

bda50dh · 5/4/22

Maika8008 đã viết:
Code bạn nói "trong trang 1 e có sử dụng code dãn dòng tự động" ở đâu? Chừ không biết gọi là sơ suất hay gì nữa đây?

A ƠI!a xem giúp e với xem có hướng giải quyết tốt nhất không a.

BuiQuangThuan · 5/4/22

bda50dh đã viết:
em úp lại rồi a xem giúp e với a.

Cái form này lúc nào cũng có 2 trang à. Và cái chính là bạn muốn nếu dòng 12 mà có giãn nở độ rộng, Thì nó sẽ không bị nhảy trang hả

HUONGHCKT · 5/4/22

bda50dh đã viết:
Thật sự rất cám ơn vì sự quan tâm của a!e có gửi lại a file ,a xem lại giúp e xem có hướng giải quyết không ạ.e cảm ơn.

Bài đã được tự động gộp: 4/4/22

e up lại rồi a!

Bài đã được tự động gộp: 4/4/22

em úp lại rồi a xem giúp e với a.

Tôi đã có đáp án cho bạn, nhưng trước tiên bạn hãy sửa lại những từ viết tắt đi, rồi sẽ nhận được đáp án.

bda50dh · 5/4/22

BuiQuangThuan đã viết:
Cái form này lúc nào cũng có 2 trang à. Và cái chính là bạn muốn nếu dòng 12 mà có giãn nở độ rộng, Thì nó sẽ không bị nhảy trang hả

vâng anh!vì em chỉ muốn in 2 trang mà dòng B12 co dãn nên các dòng .... sẽ nhảy sang trang 2 sẽ tạo thành 3 trang mất.

Bài đã được tự động gộp: 5/4/22

HUONGHCKT đã viết:
Tôi đã có đáp án cho bạn, nhưng trước tiên bạn hãy sửa lại những từ viết tắt đi, rồi sẽ nhận được đáp án.

Rất mong được anh/chị giúp đỡ.

BuiQuangThuan · 5/4/22

bda50dh đã viết:
vâng anh!vì em chỉ muốn in 2 trang mà dòng B12 co dãn nên các dòng .... sẽ nhảy sang trang 2 sẽ tạo thành 3 trang mất.

Bạn nên làm những cái gì bài #10 nói đi đã. Có vẻ hợp lí ấy
Còn nếu là mình. Mình sẽ tim độ rộng của dòng 12. các dòng còn lại để ở độ rộng 28 là sẽ vừa 2 trang. nếu độ rộng dòng 12 / 28 bằng bao nhiêu thì mình sẽ ẩn ngần ấy dòng tính từ dòng 13 trở đi. thì chắc chắn nó sẽ vẫn ở 2 trang giấy

HUONGHCKT · 5/4/22

bda50dh đã viết:
vâng anh!vì em chỉ muốn in 2 trang mà dòng B12 co dãn nên các dòng .... sẽ nhảy sang trang 2 sẽ tạo thành 3 trang mất.

Bài đã được tự động gộp: 5/4/22

Rất mong được anh/chị giúp đỡ.

Tôi khuyên bạn là: Hãy dùng tiếng mẹ đẻ một cách chuẩn nhất có thể, chứ đừng đua ngôn ngữ của chít chát, Fb, của Ông Ts Bùi Hiền nào đó lên những câu nói bài viết thể hiện nhân cách của mình.
Tôi có sửa lại code cho bạn. cũng nói trước điều là tôi thấy bạn nói xóa bỏ những dòng thừa, nhưng sẽ rất khó cho những lần tiếp theo. Vậy thì thay bằng xóa ta ẩn nó đi.
Thay Sub CoDanRowBB thành

Mã:

Sub CoDanRowBB()
Dim i&, Trang&
    MergeCellFit Sheets("TRANG CAN SUA").Range("B12:AB12")
    Rows("18:28").Select
    Selection.EntireRow.Hidden = False

    Trang = Sheets("TRANG CAN SUA").HPageBreaks(1).Location.Row
    MsgBox Trang
    If Trang < 29 Then
        Rows(Trang & ":28").EntireRow.Hidden = True
    End If
End Sub

BuiQuangThuan · 5/4/22

Thử 1 cách khác. bạn có thể tự chế lại để dùng cho bản thân.

Mã:

Sub ABC()
Dim t
With Sheet8
    .Rows("12:29").EntireRow.Hidden = False
    t = .Rows("12:12").RowHeight
    If Int(t / 28) > 1 Then
        .Rows("13:" & 13 + Int(t / 28) + 1).EntireRow.Hidden = True
    End If
End With
End Sub

Maika8008 · 5/4/22

HUONGHCKT đã viết:
Tôi khuyên bạn là: Hãy dùng tiếng mẹ đẻ một cách chuẩn nhất có thể, chứ đừng đua ngôn ngữ của chít chát, Fb, của Ông Ts Bùi Hiền nào đó lên những câu nói bài viết thể hiện nhân cách của mình.
Tôi có sửa lại code cho bạn. cũng nói trước điều là tôi thấy bạn nói xóa bỏ những dòng thừa, nhưng sẽ rất khó cho những lần tiếp theo. Vậy thì thay bằng xóa ta ẩn nó đi.
Thay Sub CoDanRowBB thành

Mã:

Sub CoDanRowBB() Dim i&, Trang& MergeCellFit Sheets("TRANG CAN SUA").Range("B12:AB12") Rows("18:28").Select Selection.EntireRow.Hidden = False Trang = Sheets("TRANG CAN SUA").HPageBreaks(1).Location.Row MsgBox Trang If Trang < 29 Then Rows(Trang & ":28").EntireRow.Hidden = True End If End Sub

Chỗ MsgBox Trang:
Chắc debug code nhưng quên xóa.

bda50dh · 5/4/22

HUONGHCKT đã viết:
Tôi khuyên bạn là: Hãy dùng tiếng mẹ đẻ một cách chuẩn nhất có thể, chứ đừng đua ngôn ngữ của chít chát, Fb, của Ông Ts Bùi Hiền nào đó lên những câu nói bài viết thể hiện nhân cách của mình.
Tôi có sửa lại code cho bạn. cũng nói trước điều là tôi thấy bạn nói xóa bỏ những dòng thừa, nhưng sẽ rất khó cho những lần tiếp theo. Vậy thì thay bằng xóa ta ẩn nó đi.
Thay Sub CoDanRowBB thành

Mã:

Sub CoDanRowBB() Dim i&, Trang& MergeCellFit Sheets("TRANG CAN SUA").Range("B12:AB12") Rows("18:28").Select Selection.EntireRow.Hidden = False Trang = Sheets("TRANG CAN SUA").HPageBreaks(1).Location.Row MsgBox Trang If Trang < 29 Then Rows(Trang & ":28").EntireRow.Hidden = True End If End Sub

vâng!em xin chân thành cảm ơn anh.

BuiQuangThuan · 5/4/22

bda50dh đã viết:
vâng!e xin chân thành cảm ơn anh.

Nhắc bạn rồi mà vẫn cứ "e" với "ấp". Khổ ghê á

bda50dh · 5/4/22

BuiQuangThuan đã viết:
Thử 1 cách khác. bạn có thể tự chế lại để dùng cho bản thân.

Mã:

Sub ABC() Dim t With Sheet8 .Rows("12:29").EntireRow.Hidden = False t = .Rows("12:12").RowHeight If Int(t / 28) > 1 Then .Rows("13:" & 13 + Int(t / 28) + 1).EntireRow.Hidden = True End If End With End Sub

em cảm ơn anh!để em chạy thử xem sao a.

bda50dh · 5/4/22

HUONGHCKT đã viết:
Tôi khuyên bạn là: Hãy dùng tiếng mẹ đẻ một cách chuẩn nhất có thể, chứ đừng đua ngôn ngữ của chít chát, Fb, của Ông Ts Bùi Hiền nào đó lên những câu nói bài viết thể hiện nhân cách của mình.
Tôi có sửa lại code cho bạn. cũng nói trước điều là tôi thấy bạn nói xóa bỏ những dòng thừa, nhưng sẽ rất khó cho những lần tiếp theo. Vậy thì thay bằng xóa ta ẩn nó đi.
Thay Sub CoDanRowBB thành

Mã:

Sub CoDanRowBB() Dim i&, Trang& MergeCellFit Sheets("TRANG CAN SUA").Range("B12:AB12") Rows("18:28").Select Selection.EntireRow.Hidden = False Trang = Sheets("TRANG CAN SUA").HPageBreaks(1).Location.Row MsgBox Trang If Trang < 29 Then Rows(Trang & ":28").EntireRow.Hidden = True End If End Sub

Em chạy code của anh thì rất tuyệt ạ,nhưng em dùng addin in hàng loạt thì lại không in được như ý muốn ,em dùng phần mềm pdf factory để nối file và xuất pdf.Anh xem giúp em với a.

BuiQuangThuan · 5/4/22

bda50dh đã viết:
muốn a,e dùng

Không thể viết đầy đủ được hả bạn?

bda50dh · 5/4/22

BuiQuangThuan đã viết:
Không thể viết đầy đủ được hả bạn?

anh xem qua giúp em với

BuiQuangThuan · 5/4/22

bda50dh đã viết:
anh xem qua giúp em với

Em còn nhỏ xíu tuổi ấy mà. Nếu vậy thì sẽ không dùng cái addin đó nữa. Hãy nói rõ cách làm rồi viết code vào đó luôn

bda50dh · 5/4/22

BuiQuangThuan đã viết:
Em còn nhỏ xíu tuổi ấy mà. Nếu vậy thì sẽ không dùng cái addin đó nữa. Hãy nói rõ cách làm rồi viết code vào đó luôn

sau khi được các anh viết cho cái code theo như mong muốn,bây giờ em in hàng loạt biên bản thì lại không được,nên anh xem giúp chúng có bị lỗi gì không.Em thì không rành về VBA.

bda50dh · 5/4/22

bda50dh đã viết:
Em chạy code của anh thì rất tuyệt ạ,nhưng em dùng addin in hàng loạt thì lại không in được như ý muốn ,em dùng phần mềm pdf factory để nối file và xuất pdf.Anh xem giúp em với a.

Nhờ chị xem nốt giúp em công đoạn cuối này với a.Em muốn in hàng loạt ngoài addin trên em có tham khảo code trên mạng nhưng không tài nào in hàng loạt mà vừa dãn dòng vừa trong khổ giấy được ạ.code in hàng loạt em tham khảo trên mạng
Sub printF()
Dim i as Long,printFrom As Long,printTo as Long
printFrom = sheet2.Range("i15").value
printTo = sheet2.Range("i16").value
For i = printFrom to printTo
Sheet2.Range("I15").value = i
Sheet2.PrintOut Preview:=false
Next i
end sub

HUONGHCKT · 5/4/22

Maika8008 đã viết:
Chỗ MsgBox Trang:
Chắc debug code nhưng quên xóa.

Cảm ơn anh đã xem bài. Đúng là chỗ đó để debug nên thừa, quên xóa

HUONGHCKT · 5/4/22

bda50dh đã viết:
sau khi được các anh viết cho cái code theo như mong muốn,bây giờ em in hàng loạt biên bản thì lại không được,nên anh xem giúp chúng có bị lỗi gì không.Em thì không rành về VBA.

bda50dh đã viết:
Nhờ chị xem nốt giúp em công đoạn cuối này với a.Em muốn in hàng loạt ngoài addin trên em có tham khảo code trên mạng nhưng không tài nào in hàng loạt mà vừa dãn dòng vừa trong khổ giấy được ạ.code in hàng loạt em tham khảo trên mạng
Sub printF()
Dim i as Long,printFrom As Long,printTo as Long
printFrom = sheet2.Range("i15").value
printTo = sheet2.Range("i16").value
For i = printFrom to printTo
Sheet2.Range("I15").value = i
Sheet2.PrintOut Preview:=false
Next i
end sub

Có đúng là bạn muốn tạo file PDF từ sheet (TRANG CAN SUA)? và in file PDF này
Còn in hàng loạt là: in từ số... đến số... theo quy trình click nut In thì Sheet(TRANG.....).range(E3) tăng thêm 1 ===>file Pdf được tạo==> in file PDF này. Tiếp tục lặp lại quy trình trên đến (đến số) thì dùng lại phải không?
Tôi gửi 1 file gán dữ liệu vào mẫu ( bằng VBA chứ không phải bằng Công thức) và tạo file PDF cho bạn tham khảo.

bda50dh · 5/4/22

HUONGHCKT đã viết:
Có đúng là bạn muốn tạo file PDF từ sheet (TRANG CAN SUA)? và in file PDF này
Còn in hàng loạt là: in từ số... đến số... theo quy trình click nut In thì Sheet(TRANG.....).range(E3) tăng thêm 1 ===>file Pdf được tạo==> in file PDF này. Tiếp tục lặp lại quy trình trên đến (đến số) thì dùng lại phải không?
Tôi gửi 1 file gán dữ liệu vào mẫu ( bằng VBA chứ không phải bằng Công thức) và tạo file PDF cho bạn tham khảo.

Vâng em muốn in ra PDF từ sheet (TRANG CAN SUA) đã cố định khung in và in hàng loạt click 1 cái chạy từ 1-số cần in.
- Trong bản excel của anh thì khi kích dấu mũi tên các số không tự động nhảy và thay dữ liệu vào luôn anh nhỉ?mỗi lần cần in là phải ấn nút tạo file PDF nên hơi mất thủ công ạ.
- Code trong file của anh hiện đang đặt mật khẩu ạ.

Xoá dòng tự động và định dạng trang in (1 người xem)

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

Thành viên mới

File đính kèm

Thành viên gạo cội

Thành viên mới

File đính kèm

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên thường trực

File đính kèm

Thành viên gạo cội

Thành viên mới

File đính kèm

Thành viên mới

❆❆❆❆❆❆❆❆❆❆❆❆

Zalo 0986997214

Thành viên mới

❆❆❆❆❆❆❆❆❆❆❆❆

Zalo 0986997214

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên gạo cội

Thành viên mới

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên mới

Thành viên mới

File đính kèm

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên mới

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên mới

Thành viên mới

Zalo 0986997214

Zalo 0986997214

File đính kèm

Thành viên mới

Thời gian đếm ngược.