Lớp học GPE tháng 10 - TPHCM: Conditional Formatting và Data Validation (tối 4, 6/10) | Excel cơ bản (tối 9, 11, 13/10) |
Thuần thục các hàm dò tìm (tối 10, 12/10) | Tất tần tật về PivotTable (tối 16, 18, 20/10) |
Tất tần tật về Filter và Advanced Filter (tối 23, 25/10) | Name động và biểu đồ (tối 24, 26, 28/10)

Đăng ký học Khởi đầu cùng Google Spreadsheet - 2 chủ nhật 1 và 8/10 - TPHCM

Đăng ký học Xây dựng ứng dụng Form bằng VBA - 2 chủ nhật 15 và 22/10 - TPHCM

Đặt trang in trong excel!!!!!

Thảo luận trong 'Những vấn đề chung' bắt đầu bởi chuotxinh, 4 Tháng mười 2007.

  1. chuotxinh

    chuotxinh Thành viên mới

    Cho mình hỏi, trong sheet excel, làm sao để đặt số trang chỉ là 1 số trang chẵn 2,4,6 ......... hoặc số trang lẻ 1,3,5 khi in.

    VD: 1 sheet excel của mình có 10 trang, làm sao để thứ tự các trang đó khi in ra ở phần Header là 1,3,5,7,9 hoặc 2,4,6,8,10 chứ ko phải theo thứ tự là 1,2,3,4,5........

    Ai biết chỉ giúp mình với!
    Tks nhiều!
     
  2. ongtrungducmx25

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

    bạn xem file này nhé! cái này có trên DiễnĐàn
     

    Các file đính kèm:

  3. Mr Okebab

    Mr Okebab Ngon Ngất Ngây

    Bác hiểu sai ý rồi, đây không phải là in hết trang chẵn rồi đến trang lẻ (hoặc ngược lại )
    VD : có 10 trang
    In lần 1 : 1 ; 3; 5; 7 ;9-----Lần 2 : 2; 4; 6; 8; 10

    Mà là chỉ có chẵn hoặc chỉ có lẻ :
    - Hoặc là : 2; 4; 6; 8; 10; 12; 14; 16; 18; 20
    - Hoặc là : 1; 3; 5; 7; 9; 11; 13; 15; 17; 19

    Nếu dùng VBA thì cũng được, tuy hơi thủ công. Đó là nhờ vào
    - From . . . to . . .
    - First page number

    Hoặc dùng VBA điền thẳng vào Header (Footer) luôn

    Thân!
     
  4. SoiBien

    SoiBien Thành viên tiêu biểu

    Mã:
    [COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Workbook_BeforePrint(Cancel [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Boolean[/COLOR])
            [COLOR=darkblue]Dim[/COLOR] wsSheet [COLOR=darkblue]As[/COLOR] Worksheet
            [COLOR=darkblue]Dim[/COLOR] sHooter [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
            Application.EnableEvents = [COLOR=darkblue]False[/COLOR]
            [COLOR=darkblue]Set[/COLOR] wsSheet = ActiveSheet
                [COLOR=darkblue]With[/COLOR] wsSheet
                [COLOR=darkblue]For[/COLOR] i = 1 [COLOR=darkblue]To[/COLOR] ExecuteExcel4Macro("Get.Document(50)")
                    [COLOR=green]'dong nay de in trang danh so chan[/COLOR]
                    'sHooter = "Page: " & i * 2
                    [COLOR=green]'dong nay de in trang danh so le[/COLOR]
                    sHooter = "Page: " & i * 2 - 1
                    .PageSetup.LeftHeader = sHooter
                    .PrintOut from:=i, To:=i
                [COLOR=darkblue]Next[/COLOR]
                [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
            [COLOR=darkblue]Set[/COLOR] wsSheet = [COLOR=darkblue]Nothing[/COLOR]
            Cancel = [COLOR=darkblue]True[/COLOR]
            Application.EnableEvents = [COLOR=darkblue]True[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
    Chuotxinh copy đoạn code trên vào Module của ThisWorkBook nhé

    Ở trên đã để sẵn 2 dòng, bạn in trang lẻ thì thêm dấu ' vào đầu đoạn code sfooter = ...
    như hiện giờ là in ra sẽ đánh số trang là lẻ

    Code trên sẽ in toàn bộ các trang nhé, chưa làm phần điều khiển để bạn có thể in được các trang từ đâu đến đâu theo ý muốn.
     
  5. Mr Okebab

    Mr Okebab Ngon Ngất Ngây

    bạn xem nhé, ý tưởng là thế, có gì cứ nói rõ thêm để chỉnh sửa.

    PHP:
    Option Explicit
    Sub Intrang
    ()
        
    On Error GoTo thoat
        Application
    .ScreenUpdating False
        Dim STT 
    As Integer
        Dim Trang 
    As Integer
        Dim SoTrang 
    As Integer
        Dim i 
    As Integer
        
        Select 
    Case MsgBox("- In Chan : YES" Chr(10) & "- In Le : NO" Chr(10) & "- Em nham : CANCEL"vbYesNoCancel"Bebebe")
        Case 
    vbYes
            i 
    2
        
    Case vbNo
            i 
    1
        
    Case vbCancel
            
    Exit Sub
        End Select
            SoTrang 
    Application.InputBox("ban muon in Bao nhieu trang ??""Be be be"Type:=1)
        
        For 
    STT 1 To SoTrang
            
    If 2 Then
                Trang 
    STT 2
            
    Else
                
    Trang STT 1
            End 
    If
            
    ctiveSheet.PageSetup.CenterHeader Trang
            ActiveWindow
    .SelectedSheets.PrintOut From:=STTto:=STT
        Next
    thoat
    :
        
    Application.ScreenUpdating True
    End Sub
    Thân!
     

    Các file đính kèm:

  6. chuotxinh

    chuotxinh Thành viên mới

    @Soibien & Mr Okebab: tks 2 anh, chuột đã làm được cái này.

    @ Soibien: cái phần điều khiển để in được từ trang ... đến trang ... nếu anh có thể tạo được thì share lên cho Chuột với nhé. Phần đó Chuột cũng cần lắm ạ. Tks anh trước nhé ^^

    @Mr Okebab: code của anh tuyệt, in đúng là nó ra toàn chẵn hoặc toàn lẻ. Nhưng liệu có thể tạo 1 code in từ trang ........ đến trang ...... được ko anh ? Công việc của em cần có cái đó nhất ạ. Nếu in như file đính kèm của anh, ở lần in 2 nó sẽ in lại trang lần 1 em đã in.

    Ở dưới em đính kèm file mà em đang làm, anh xem & reply lại em hen!

    Ở file đó, anh sẽ thấy: phần header (khi print preview) có ghi "List số 1....". Khi nhập xong 1 list , ra lệnh in trang 1-1 (chẳng hạn), phần header nó sẽ "List số 1"
    Em muốn in trang 2, phần header nó sẽ là "List số 3" , chứ ko phải "List số 2".

    Anh có giải pháp nào ko, chỉ dùm em với!
    Thanks!
     

    Các file đính kèm:

    • new.xls
      Kích thước:
      43.5 KB
      Đọc:
      121
  7. Mr Okebab

    Mr Okebab Ngon Ngất Ngây

    Ok, không thành vấn đề.

    Em tham khảo nhé :

    Thân!
     

    Các file đính kèm:

  8. chuotxinh

    chuotxinh Thành viên mới

    @Mr Okebab: Em lại phải làm phiền anh nữa rùi.

    Hôm nay em đã đưa cái file anh hướng dẫn vào dùng thử, có 1 vấn đề nữa phát sinh, đó là số bản copy.

    Trên phiên bản hiện tại của anh, khi em muốn in từ trang 1 đến trang 1 hoặc bất cứ trang nào # thêm bao nhiêu bản nữa, thì em phải ra lệnh in thêm tầng ấy lần.

    Mình có thể in nhiều bản (từ trang ... đến trang ... ) trong 1 lần in được ko anh?

    Anh giúp em nhé! Help me, please! -=.,,
    Tks U!
     
  9. Mr Okebab

    Mr Okebab Ngon Ngất Ngây

    Em tham khảo nhé :

    Thân!
     

    Các file đính kèm:

  10. tktieuthu

    tktieuthu Thành viên mới

    Cho mình hỏi ké: bảng excel của mình rộng hơn khổ in, khi in bị tách ra làm 2 trang, mình muốn hiển thị số trang trên 2 trang này giống nhau được ko, để tiện theo dõi số liệu tránh bị nhầm lẫn
    thanks
     
  11. dangkygpexcel

    dangkygpexcel Thành viên mới

    Có cách nào in trong excel ngược lại như trong word hay không:
    ví dụ: 20,18,16,14...
    19,17,15,13...
     

Chia sẻ trang này