返回列表 上一主題 發帖

[發問] 頁面標題及尾端重覆

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
1# 跳轉到 »
發表於 2014-5-30 08:38 | 顯示全部帖子
不曉得是否版本會有不同
2010的設定部分是在列印中的版面設定/頁尾(自訂尾頁)

TOP

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
2#
發表於 2014-5-30 09:13 | 顯示全部帖子
本帖最後由 jackson7015 於 2014-5-30 09:25 編輯

回復 3# 013160


    剛剛測試了一下，是可以多行執行
2010的部分
在頁尾設定的部分(左、中、右皆可)，第一行設定後，按"ENTER"就可以跳到下一行繼續編寫

TOP

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
3#
發表於 2014-5-30 17:07 | 顯示全部帖子
本帖最後由 jackson7015 於 2014-5-30 17:09 編輯

回復 5# 013160

這個就需要利用到VBA去編譯了

我只會這種的，如果要在複雜的話，就去程式區請教前輩們了
  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  2. Sh = ActiveSheet.Name
  3. If Sh = "項目1" Then
  4.   If [E6] = "" Then
  5.      LR = 5
  6.   Else
  7.      LR = Application.CountA([C6:C65535])
  8.      LR = Application.RoundUp(LR, -1) + 5
  9.   End If
  10.   ActiveSheet.PageSetup.PrintArea = "C1:I" & LR
  11. End If
  12. End Sub
複製代碼
活頁簿1.rar (57.71 KB)

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題