GPE Phát hành sách: "Lập trình VBA trong Excel cho người mới bắt đầu - 2014" | "VBA trong Excel - Cải thiện và tăng tốc - 2013"
Trang 1/2 1 2 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 11
  1. #1
    Tham gia ngày
    10 2007
    Bài gởi
    3
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết

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

    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. #2
    Tham gia ngày
    02 2007
    Nơi Cư Ngụ
    TP-Sóc Trăng
    Bài gởi
    2,079
    Cảm ơn
    1,095
    Được cảm ơn 2,014 lần trong 908 bài viết
    Trích Nguyên văn bởi chuotxinh
    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!
    bạn xem file này nhé! cái này có trên DiễnĐàn
    Tập tin đính kèm Tập tin đính kèm

  3. #3
    Tham gia ngày
    08 2006
    Bài gởi
    3,267
    Cảm ơn
    1,733
    Được cảm ơn 3,724 lần trong 1,763 bài viết
    Trích Nguyên văn bởi ongtrungducmx25
    bạn xem file này nhé! cái này có trên DiễnĐàn
    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!
    -----------------------------------------------------------------------------------
    Một ngày mới bắt đầu bằng ÁNH MẮT - NỤ CƯỜI !!!!

    -------------------------------------------------------------------------
    TanPhu Investment Co.,ltd
    http://skstanphu.com
    tronghieu@skstanphu.com

  4. #4
    Tham gia ngày
    09 2007
    Bài gởi
    733
    Cảm ơn
    342
    Được cảm ơn 604 lần trong 377 bài viết
    Code:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
            Dim wsSheet As Worksheet
            Dim sHooter As String
            Application.EnableEvents = False
            Set wsSheet = ActiveSheet
                With wsSheet
                For i = 1 To ExecuteExcel4Macro("Get.Document(50)")
                    'dong nay de in trang danh so chan
                    'sHooter = "Page: " & i * 2
                    'dong nay de in trang danh so le
                    sHooter = "Page: " & i * 2 - 1
                    .PageSetup.LeftHeader = sHooter
                    .PrintOut from:=i, To:=i
                Next
                End With
            Set wsSheet = Nothing
            Cancel = True
            Application.EnableEvents = True
    End Sub
    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. #5
    Tham gia ngày
    08 2006
    Bài gởi
    3,267
    Cảm ơn
    1,733
    Được cảm ơn 3,724 lần trong 1,763 bài viết
    Trích Nguyên văn bởi chuotxinh
    @Mr Okebab: anh nói đúng, ý em là như vậy đấy ạ. Anh có thể chỉ em rõ hơn ko ạ?
    bạn xem nhé, ý tưởng là thế, có gì cứ nói rõ thêm để chỉnh sửa.

    PHP Code:
    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!
    Tập tin đính kèm Tập tin đính kèm
    -----------------------------------------------------------------------------------
    Một ngày mới bắt đầu bằng ÁNH MẮT - NỤ CƯỜI !!!!

    -------------------------------------------------------------------------
    TanPhu Investment Co.,ltd
    http://skstanphu.com
    tronghieu@skstanphu.com

  6. #6
    Tham gia ngày
    10 2007
    Bài gởi
    3
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết
    @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!
    Tập tin đính kèm Tập tin đính kèm
    • Loại tập tin: xls new.xls (43.5 KB, 118 lần tải)

  7. #7
    Tham gia ngày
    08 2006
    Bài gởi
    3,267
    Cảm ơn
    1,733
    Được cảm ơn 3,724 lần trong 1,763 bài viết
    Trích Nguyên văn bởi chuotxinh
    @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!
    Ok, không thành vấn đề.

    Em tham khảo nhé :

    Thân!
    Tập tin đính kèm Tập tin đính kèm
    -----------------------------------------------------------------------------------
    Một ngày mới bắt đầu bằng ÁNH MẮT - NỤ CƯỜI !!!!

    -------------------------------------------------------------------------
    TanPhu Investment Co.,ltd
    http://skstanphu.com
    tronghieu@skstanphu.com

  8. Có 2 thành viên cảm ơn Mr Okebab về bài viết này:


  9. #8
    Tham gia ngày
    10 2007
    Bài gởi
    3
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết
    @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!

  10. #9
    Tham gia ngày
    08 2006
    Bài gởi
    3,267
    Cảm ơn
    1,733
    Được cảm ơn 3,724 lần trong 1,763 bài viết
    Trích Nguyên văn bởi chuotxinh
    @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!
    Em tham khảo nhé :

    Thân!
    Tập tin đính kèm Tập tin đính kèm
    -----------------------------------------------------------------------------------
    Một ngày mới bắt đầu bằng ÁNH MẮT - NỤ CƯỜI !!!!

    -------------------------------------------------------------------------
    TanPhu Investment Co.,ltd
    http://skstanphu.com
    tronghieu@skstanphu.com

  11. Có 2 thành viên cảm ơn Mr Okebab về bài viết này:


  12. #10
    Tham gia ngày
    09 2007
    Bài gởi
    3
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết
    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

Trang 1/2 1 2 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. In trang chẵn, trang lẻ trong excel
    Viết bởi lazycat83 trong chuyên mục Định dạng, trình bày, in ấn bảng tính
    Trả lời: 50
    Bài mới gởi: 02-03-13, 08:19 PM
  2. Xin hỏi về cách đánh số trang (không đánh số trang đầu tiên) trong excel
    Viết bởi nguyenhavithao trong chuyên mục Những vấn đề chung
    Trả lời: 3
    Bài mới gởi: 17-11-12, 10:51 AM
  3. Tính tổng từng trang trong excel
    Viết bởi chuteuthoida trong chuyên mục Giải thích, gỡ rối, xử lý lỗi công thức
    Trả lời: 1
    Bài mới gởi: 02-06-10, 08:16 AM
  4. Xử lý trang in trong Excel ?
    Viết bởi Nguyễn Duy Tuân trong chuyên mục Những vấn đề chung
    Trả lời: 10
    Bài mới gởi: 14-11-09, 02:18 PM
  5. Đánh số trang tự động trong trang mục lục của excel
    Viết bởi Đắc Khang trong chuyên mục Những vấn đề chung
    Trả lời: 2
    Bài mới gởi: 05-06-09, 03:11 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]