格式化條件,有值則顯示整數列框架 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 格式化條件,有值則顯示整數列框架

返回列表下一主題上一主題發帖

[發問] 格式化條件,有值則顯示整數列框架

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

11^# 跳轉到 »

發表於 2012-4-10 10:14 | 顯示全部帖子

回復 26# jackson7015

1.不用手動去設定列印範圍
2.工作表改好後,
作預覽列印或列印,其列印範圍會自動調整設定

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

12^#

發表於 2012-4-11 08:52 | 顯示全部帖子

回復 28# jackson7015

功能:"項目1" 或 "項目4" 或 "項目6" 或 "項目11" 4張工作表在作預覽列印或直接列印時,會自動設定調整成所需之列印範圍
ThisWorkbook程式碼改為下列即可

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sh = ActiveSheet.Name
If Sh = "項目1" Or Sh = "項目4" Or Sh = "項目6" Or Sh = "項目11" Then
If [C6] = "" Then
LR = 5
Else
LR = Application.CountA([C6:C65535])
LR = Application.RoundUp(LR, -1) + 5
End If
ActiveSheet.PageSetup.PrintArea = "C1:I" & LR
End If
End Sub

複製代碼

靜思自在 : 發脾氣是短暫的發瘋。

返回列表下一主題上一主題