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

　頭銜: 麻辣路人甲

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

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

1^# 跳轉到 »

發表於 2012-3-29 16:47 | 顯示全部帖子

本帖最後由 register313 於 2012-3-29 16:54 編輯

回復 3# jackson7015

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

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

2^#

發表於 2012-4-2 16:54 | 顯示全部帖子

回復 6# jackson7015

依你的敘述,這真是個奇怪的現象
用格式化條件設定框線等同於手動畫框線 ,唯一差別是自動與手動

是否上傳你設定好的檔案,讓大家查看問題出在那

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

3^#

發表於 2012-4-3 16:56 | 顯示全部帖子

回復 8# jackson7015

項目1工作表所設定之列印範圍只到第10列 , 所以第11列後雖有框線亦不列印

檢視/分頁預覽即可得知列印之分頁情形

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

4^#

發表於 2012-4-5 11:12 | 顯示全部帖子

本帖最後由 register313 於 2012-4-5 11:24 編輯

回復 10# jackson7015

1.檢視/分頁預覽手動調整列印範圍

2.VBA
功能:當C欄列號個位數為3之儲存格值有變動時且該儲存格不為空值=>自動加10列框線
當C欄列號個位數為3之儲存格值有變動時且該儲存格為空值=>自動取消10列框線
工作表模組

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
Else
Target.Resize(10, 7).Borders.LineStyle = xlNone
End If
End If
End Sub

複製代碼

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

5^#

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

複製代碼

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

6^#

發表於 2012-4-6 09:42 | 顯示全部帖子

回復 14# jackson7015

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

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

7^#

發表於 2012-4-6 16:27 | 顯示全部帖子

回復 16# jackson7015

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

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

TOP

register313