格式化條件,有值則顯示整數列框架 - Excelㄧ般區

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

21^# 跳轉到 »

發表於 2012-4-9 14:37 | 只看該作者

回復 20# jackson7015

1.選C欄~I欄
設定格式化條件
公式為 =(ROW()-5)<=ROUNDUP(COUNTA($C$3:$C$65536),-1)

2.Thisworkbook 活頁簿模組

Private Sub Workbook_BeforePrint(Cancel As Boolean)
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 Sub

複製代碼

TOP

jackson7015

中學生 Rank: 2

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

論壇贊助勳章

22^#

發表於 2012-4-9 16:22 | 只看該作者

回復 21# register313

感謝register313大大不辭辛勞的幫忙...

格式化條件我更改為下列公式可正常繪製格線
=(ROW()-5)<=ROUNDUP(COUNTA($C$6:$C$65535),-1)

Thisworkbook 活頁簿模組我輸入後,列印格式沒有反應也沒有改變

請問是否還要更改哪些部份呢?

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

23^#

發表於 2012-4-9 16:46 | 只看該作者

回復 22# jackson7015

Private Sub Workbook_BeforePrint(Cancel As Boolean)
此為列印前去設定列印範圍

預覽列印或列印即會生效

TOP

jackson7015

中學生 Rank: 2

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

論壇贊助勳章

24^#

發表於 2012-4-9 17:05 | 只看該作者

回復 23# register313

使用預覽列印和直接列印後,只出現一頁的列印範圍,沒有變更列印範圍

附上表格,在煩請register313大大幫忙...

日報表.rar (494.86 KB)

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

25^#

發表於 2012-4-9 17:12 | 只看該作者

回復 24# jackson7015

程式碼加在ThisWorkbook內

其他工作表內的程式刪除

TOP

jackson7015

中學生 Rank: 2

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

論壇贊助勳章

26^#

發表於 2012-4-10 08:31 | 只看該作者

本帖最後由 jackson7015 於 2012-4-10 08:43 編輯

回復 25# register313

請問register313大大,工作模組的各項屬性是否要更動?

我將公式輸入Thisworkbook 後依然是沒有反應

原本以為是否是之前設定了C:I的列印範圍的影響
所以取消全部列印範圍後,列印範圍變為200頁!?
而重新手動設定了C:I列印範圍後,變回有字元部分才有列印範圍

項目一是手動輸入C欄數值測試,列印範圍手動輸入了C:I=>有字元部分才有列印範圍
項目四是重新整理樞紐分析表測試,列印範圍手動輸入C:I=>有字元部分才有列印範圍
項目六是取消所有列印範圍=>列印張數變為200頁..
項目11是C欄無數值,取消所有列印範圍=>列印張數為200頁

附上檔案煩請大大
看看是否有小弟手拙設定錯誤的地方

日報表.rar (479.38 KB)

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

27^#

發表於 2012-4-10 10:14 | 只看該作者

回復 26# jackson7015

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

TOP

jackson7015

中學生 Rank: 2

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

論壇贊助勳章

28^#

發表於 2012-4-11 08:27 | 只看該作者

回復 27# register313

動作測試出來後：
1.清除手動設定列印範圍
2.Thisworkbook 修改後
預覽列印是為27#樓所回覆的列印範圍
直接列印出來的範圍則是大大所表示的範圍，且列印後會變更為所需要之範圍，即是本人所需的列印範圍動作
感謝register313熱心幫忙，終於解決所有問題點