標題: [發問] 請問,已知數千列資料每50列要列印成一頁,不知excel如何做。 [打印本頁]

---

作者: 宇媽    時間: 2011-1-4 11:57     標題: 請問,已知數千列資料每50列要列印成一頁,不知excel如何做。

如題,謝謝!!

---

作者: linshin1999    時間: 2011-1-4 16:00

這是 vba 的做法

Sub 自動分頁
    Dim rows_count As Long
    Dim page_count As Long                                               
    Dim i As Long                                                                 
    Dim str_row_index As String                                          
    Dim first_row As Long                                                        
   
    ActiveWindow.View = xlPageBreakPreview                        
    rows_count = Range("A1").CurrentRegion.Rows.Count     
    first_row = 50                                                                     
    For i = first_row To rows_count Step 50
        page_count = page_count + 1
        str_row_index = "A" + Trim(Str(i + 1))
        Set ActiveSheet.HPageBreaks(page_count).Location = Range(str_row_index)
    Next i
    ActiveWindow.View = xlNormalView
End Sub

---

作者: 宇媽    時間: 2011-1-5 13:07

謝謝linshin 1999的方法,用複制試過了讓我省很多時間,只是vba對我來說太難了點,不知是否還有其他的方法,不是vba的,謝謝!!

---

作者: linshin1999    時間: 2011-1-5 13:22

宇媽:下列是本論壇有本問題的一系列討論,應該可以得到答案

http://forum.twbts.com/thread-2275-1-1.html

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)