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

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

論壇贊助勳章

30^#

發表於 2012-4-11 09:07 | 只看該作者

回復 29# register313

程式碼列印範圍已能完全正常使用
所寫內容也會慢慢去解析
再次萬分感謝register313大大重頭到尾的協助幫忙

小弟感激不盡

　頭銜: 麻辣路人甲

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

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

29^#

發表於 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

複製代碼

帖子: 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熱心幫忙，終於解決所有問題點

將程式碼使用在我的完整工作報表內後，其他的工作頁面會自動將已設定的列印範圍，更改為Thisworkbook 程式碼的列印範圍
請問可以只在項目1～項目11的這些工作頁面做列印範圍動作就好了嗎？
這樣才不會影響到其他工作頁面
將程式寫在項目工作表內，列印出來的範圍不會有變更

　頭銜: 麻辣路人甲

帖子: 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.工作表改好後,
作預覽列印或列印,其列印範圍會自動調整設定

帖子: 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)

　頭銜: 麻辣路人甲

帖子: 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內

其他工作表內的程式刪除

帖子: 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)

　頭銜: 麻辣路人甲

帖子: 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)
此為列印前去設定列印範圍

預覽列印或列印即會生效

帖子: 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 活頁簿模組我輸入後,列印格式沒有反應也沒有改變

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