返回列表 上一主題 發帖

[發問] 報表頁尾插行

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

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
3#
發表於 2012-11-15 12:13 | 只看該作者
  1. Sub 插行()
  2. Dim c, r, j As Integer
  3. c = 50

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


  8. If r > 50 Then

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

  18. Next
  19. Application.CutCopyMode = False
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

jak

帖子
36 
主題
7 
精華
0 
積分
76 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2012-10-1 
最後登錄
2016-3-21 
4#
發表於 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

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題