Xử lý trang in trong Excel ?

Liên hệ QC

Nguyễn Duy Tuân

Nghị Hách
Thành viên danh dự
Tham gia
13/6/06
Bài viết
4,649
Được thích
10,138
Giới tính
Nam
Nghề nghiệp
Giáo viên, CEO tại Bluesofts
Cho tôi hỏi các bạn 2 vấn đề về trang trong bảng tính:

1- Làm sao có thể đánh số trang bắt đầu từ một số bất kỳ? Bình thường là từ 1, tôi muốn từ 5 chẳng hạn?

2- trong sheet khi in có nhiều trang. Trong chế độ soạn thảo, tôi muốn đến một trang bất kỳ thì làm thế nào? Trong Word tôi chỉ cần CTRL+G (Goto page:#) là được.

Tôi đang rất cần mong các bạn chỉ giúp.
 
1- Cứ gõ trang bình thường, với điều kiện bạn để chế độ Auto
2- Dùng Shift
 
Bạn có thể nói chi tiết không? Tôi đọc hướng dẫn của bạn mà không thể hiểu cái gì.

Cái này trước mình cũng hỏi mấy người trên diễn đàn rồi. Bạn có thể tìm xem

1 - Phần page setup bạn phải để Auto. sau đó bạn cần đánh trang bao nhiêu và từ đầu ví dụ trang 5 thì bạn cứ đánh số 5 vào trang cần chọn

2 - Dùng Shift và chọn những Sheet bạn cần in. Vào Priview và chỉ cần lăn con trỏ chuột là bạn sẽ tới được trang bạn cần tìm
 
Cho mình hỏi nếu muốn bắt đầu từ trang 100 thì tiếp tục mấy trang 101-102-103-... vậy mình phài làm lao để nó in tự động , làm như bạn hình như chỉ in được 1 trang thôi , nếu muốn in nhiều trang thì sao bạn ko lẽ chỉnh tưng trang hả bạn
Thanks
 
1 - Phần page setup bạn phải để Auto. sau đó bạn cần đánh trang bao nhiêu và từ đầu ví dụ trang 5 thì bạn cứ đánh số 5 vào trang cần chọn

Oh, ngay trước mắt mà tôi cứ mò ở đâu. Vấn đề 1- coi như đã giải quyết xong. Cảm ơn bạn!

2 - Dùng Shift và chọn những Sheet bạn cần in. Vào Priview và chỉ cần lăn con trỏ chuột là bạn sẽ tới được trang bạn cần tìm

Ý tôi đã ghi là trong môi trường soạn thảo muốn dùng chức năng kiểu như goto của Word ?
 
Oh, ngay trước mắt mà tôi cứ mò ở đâu. Vấn đề 1- coi như đã giải quyết xong. Cảm ơn bạn!
Cái này có nhầm lẫn không nhỉ? theo tôi thì Page Setup đặt First Page Number = 5 (số thứ tự trang đầu tiên). Tôi thấy chỉ có chỗ này có chữ "Auto" nên chắc là bạn tuanminhtdhbthn sửa ở chỗ này. Vậy thì ... giải quyết chưa xong đâu!

to tuanminhtdhbthn: bạn gõ "số 5 vào trang cần chọn", nhưng là gõ như thế nào? gõ ở chỗ nào? gõ trực tiếp số "5" trong page setup/ header&footer ư ? vậy thì đúng là chỉ in được đúng 1 trang, ngừng, sửa, in 1 trang tiếp ...!!! xin xem giải thích dưới đây:

to boyss:
1- muốn đặt First Page Number = bao nhiêu thì đặt. các trang sau nó tự động tăng 1 mà! Vào Page setup/ Header & footer/ Custom footer/ gõ vào 1 trong các section: "&[page]". còn nếu "&[pages]" là tổng số trang in. Vdụ như gõ vào "Trang &[page]/ &[pages]" sẽ in ra như là "Trang 5/ 4". Đây là nghịch lý nếu để số trang đầu tiên không phải là Auto hay là 1. Trong trường hợp này thì không dùng "&[pages]" mà gõ trực tiếp số tổng số trang luôn, ví dụ: "Trang &[page]/ 8."

có mấy icon ở phía trên để chúng ta ... làm biếng không cần gõ! thử bấm lần lượt các icon đó xem, cũng ... hay lắm đấy.

2- Gõ vào như trên chỉ cần 1 lần, cho 1 sheet, không phải cho trang in, cho nên cho dù sheet in ra bao nhiêu trang thì trang đầu tiên được đánh số = first page number, các trang sau tăng 1.

3- Thêm một chút: nếu muốn cài đặt đồng loạt cho các sheet khác thì trước khi đặt bấm Ctrl + left button (of mouse) vào sheet nào cần đặt giống nhau (có thể cách quãng). Nếu dùng Shift sẽ chọn các sheet liên tiếp nhau kể từ sheet hiện tại tới sheet được bấm mouse.

Ý tôi đã ghi là trong môi trường soạn thảo muốn dùng chức năng kiểu như goto của Word ?
Cái này ("go to" trang) thì tôi không biết. Chỉ biết là bấm F5 Go to cell, sau đó bấm vào địa chĩ cell cần "go" tới. Có ai biết xin chỉ giáo.
Cũng còn cách khác vẫn là thủ công: vào menu View chọn Page break preview sẽ dễ dàng thấy số thứ tự trang khi in ra (tương ứng với cách đặt lề và khổ giấy đã chọn). Như vậy cũng dễ dàng "go to" tới 1 trang nào đó.
 
Mình tìm hoài nhưng không có cách nào "Goto" cả. Nên thử dùng VBA, ý tưởng thế này các bạn xem thử có được không
PHP:
Sub GotoPage()
    Dim VBreak As Integer, HBreak As Integer, Page As Integer
    Dim r As Integer, i As Integer, j As Integer, k As Integer
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveWindow.View = xlPageBreakPreview
    VBreak = ActiveSheet.VPageBreaks.Count
    HBreak = ActiveSheet.HPageBreaks.Count
    Page = InputBox("Goto Page :")
    r = 2
    Sheet2.Cells(1, 1) = 1: Sheet2.Cells(1, 2) = 1
    For i = 1 To HBreak + 1
        Sheet2.Cells(r, 1) = ActiveSheet.HPageBreaks(i).Location.Row
        Sheet2.Cells(r, 2) = ActiveSheet.HPageBreaks(i).Location.Column
        r = r + 1
    Next i
    
    For j = 1 To VBreak
        Sheet2.Cells(r - 1, 1) = 1: Sheet2.Cells(r - 1, 2) = ActiveSheet.VPageBreaks(j).Location.Column
        For k = 1 To HBreak
            Sheet2.Cells(r, 1) = ActiveSheet.HPageBreaks(k).Location.Row
            Sheet2.Cells(r, 2) = ActiveSheet.VPageBreaks(j).Location.Column
            r = r + 1
        Next k
        r = r + 1
    Next j
    Cells(Sheet2.Cells(Page, 1), Sheet2.Cells(Page, 2)).Select
    'ActiveWindow.View = xlNormalView
    Application.ScreenUpdating = True
End Sub
Chỉ là ý tưởng thôi nên mình dùng tạm sheet2 làm trung gian lưu tạm. Nếu thực thi thì ta có thể dùng Array để lưu tạm sẽ hay hơn. Và bẫy lỗi thêm khi người dùng khi chọn Page oder down-then over / Page oder over-then down


 

File đính kèm

  • Goto_TDN.xls
    51 KB · Đọc: 83
ActiveSheet.HPageBreaks(i).Location.Row
ActiveSheet.HPageBreaks(i).Location.Column

Chỉ là ý tưởng thôi nên mình dùng tạm sheet2 làm trung gian lưu tạm. Nếu thực thi thì ta có thể dùng Array để lưu tạm sẽ hay hơn. Và bẫy lỗi thêm khi người dùng khi chọn Page oder down-then over / Page oder over-then down



Cảm ơn anh Núi! Ý tưởng này của anh đã giúp em giải quyết được việc rồi.
 
tuanminhtdhbthn đã viết:
1- Cứ gõ trang bình thường, với điều kiện bạn để chế độ Auto
1 - Phần page setup bạn phải để Auto. sau đó bạn cần đánh trang bao nhiêu và từ đầu ví dụ trang 5 thì bạn cứ đánh số 5 vào trang cần chọn

Chính xác là: vào Page setup, sửa First Page number từ Auto thành số mình muốn.

To Pqt08: Welcome!
 
để đến trang cần tìm như goto bên word thì chỉ cần ấn (ctrl+f)+số trang cần đến là được
 
Web KT
Back
Top Bottom