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

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

論壇贊助勳章

12^#

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

回復 11# register313

感謝register313大大的回應

想請教此種Private Sub巨集直接開新巨集下去使用就好了嗎?
還是要插入到列印巨集內?

我使用新巨集下去使用時,會連結導入其他巨集
而我導入到新建的列印巨集中,好像沒有變更列印範圍

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

13^#

發表於 2012-4-5 16:44 | 只看該作者

回復 12# jackson7015
看看符不符你的需求

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 3) And (Target.Row Mod 10) = 3 Then
If Target <> "" Then
Target.Resize(10, 7).Borders.LineStyle = xlContinuous
PageSetup.PrintArea = "C1:I" & Target.Row + 9
Else
Target.Resize(10, 7).Borders.LineStyle = xlNone
PageSetup.PrintArea = "C1:I" & Target.Row - 1
End If
End If
End Sub

複製代碼

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

論壇贊助勳章

14^#

發表於 2012-4-6 09:15 | 只看該作者

回復 13# register313

感謝register313大大的幫忙

若是C欄列號個位數為6的話，是否更改為下式

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 6) And (Target.Row Mod 10) = 6 Then
If Target <> "" Then
Target.Resize(10, 4).Borders.LineStyle = xlContinuous
PageSetup.PrintArea = "C1:I" & Target.Row + 9
Else
Target.Resize(10, 4).Borders.LineStyle = xlNone
PageSetup.PrintArea = "C1:I" & Target.Row - 1
End If
End If
End Sub

複製代碼

但是更改後好像是錯誤的，反而沒有動作..

可能要再麻煩register313大大協助一下

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

15^#

發表於 2012-4-6 09:42 | 只看該作者

回復 14# jackson7015

If (Target.Column = 3) And (Target.Row Mod 10) = 6 Then
欄號為3 列號/10後餘數為6

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

論壇贊助勳章

16^#

發表於 2012-4-6 16:15 | 只看該作者

回復 15# register313

已經可以正常變更列印範圍了,感謝register313大大

想請教,我是將工作頁面以樞紐分析表作整理

在手動測試大大提供的測試碼時發現,若是將C欄資料一次刪除或者一次變更至多頁
好像無法判斷c欄變動的範圍,只會依照重新整理前的列印範圍表示

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

17^#

發表於 2012-4-6 16:27 | 只看該作者

回復 16# jackson7015

11# 之說明
功能:當C欄列號個位數為3之儲存格值有變動時且該儲存格不為空值=>自動加10列框線
當C欄列號個位數為3之儲存格值有變動時且該儲存格為空值=>自動取消10列框線
13# 之動畫說明
=>目前提供之方法,適合C欄儲存格逐格往下輸入之操作方式

若是C欄資料已事先建立好,要一次判斷全部之框線,則程式要作修改(若要修改請附檔案)

vvcvc

帖子: 144
主題: 33
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-26
最後登錄: 2023-6-23

18^#

發表於 2012-4-7 11:38 | 只看該作者

路過額外問一個問題
格式化條件在什麼情況下會被破壞掉?
因為製作的檔案放在公開使用區裡常有格式消失的狀況
使用者非常多，實在抓不出誰弄壞
一直找不到格式被破壞是做了什麼操作

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

19^#

發表於 2012-4-7 11:57 | 只看該作者

回復 18# vvcvc

任何儲存格、欄、列的複製、插入或刪除都可能影響格式化條件

學海無涯_不恥下問

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

論壇贊助勳章

20^#

發表於 2012-4-9 08:47 | 只看該作者

本帖最後由 jackson7015 於 2012-4-9 08:50 編輯

回復 17# register313

功能需求:
當C欄列號個位數為6之儲存格值有變動時且該儲存格不為空值=>自動加10列框線
當C欄列號個位數為6之儲存格值有變動時且該儲存格為空值=>自動取消10列框線
當E6之儲存格值有變動時且該儲存格為空值=>自動取消列印範圍(無列印)
且當C欄列號個位數為6之儲存格值有變動時=>隨時判斷列印範圍

日報表.rar (491.66 KB)

麻煩大大了,由衷感謝..