返回列表 上一主題 發帖

[發問] 報表頁尾插行

jak

帖子
36 
主題
7 
精華
0 
積分
76 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2012-10-1 
最後登錄
2016-3-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-11-13 12:33 | 顯示全部帖子

[發問] 報表頁尾插行

Sub 插行()
Dim c As Integer
c = 50
For i = 1 To 10
Range("2:2").Copy
Range(c & ":" & c).Insert (XlInsertShiftDirection.xlShiftDown)
c = c + 47

Next
Application.CutCopyMode = False
End Sub

我想在每頁的頁尾貼上第2列標頭，以上是網路上找來修改的，貼幾頁(次)要自己設定，有沒有辦法讓他自動判別頁數，不用再修改i值呢？
--
初學腦袋還轉不太過來，持續參考前人智慧中=__=
收藏 分享

jak

帖子
36 
主題
7 
精華
0 
積分
76 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2012-10-1 
最後登錄
2016-3-21 
2#
發表於 2012-11-15 10:00 | 顯示全部帖子
感謝GBKEE大大撥冗回覆m(_   _)m
頁尾我想重覆第2行的"表格"(頁首可以用"列印標題"解決)
但是頁尾看前輩們的建議是，改成圖片放入頁尾或手動插行
我的頁尾常變動，改成圖片很耗時間，所以想用vba執行插行

以下為參考的文章
http://forum.twbts.com/viewthread.php?tid=6672
http://tw.knowledge.yahoo.com/question/question?qid=1012101501113
不過太花時間，都不太符合我的需求

--
我還很菜，請大家見諒

TOP

jak

帖子
36 
主題
7 
精華
0 
積分
76 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2012-10-1 
最後登錄
2016-3-21 
3#
發表於 2012-11-15 13:37 | 顯示全部帖子
本帖最後由 jak 於 2012-11-15 13:38 編輯

感謝softsadwind 大大幫忙，我試過你的程式碼了，可以解決我的問題，
以下有兩行藍色的部分，應該是大大忙中漏了，加上就可符合我的需求，再次感謝m(_  _)m。

Sub 插行()
Dim c, r, j As Integer
c = 50

r = Range("A65536").End(xlUp).Row


If r > 50 Then

Range("2:2").Copy
Range(c & ":" & c).Insert (XlInsertShiftDirection.xlShiftDown)
j = WorksheetFunction.RoundDown((r - 50) / 47, 0)
End If
For i = 1 To j
c = c + 47
Range("2:2").Copy
Range(c & ":" & c).Insert (XlInsertShiftDirection.xlShiftDown)

Next
Application.CutCopyMode = False
End sub

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題