12
返回列表 上一主題 發帖

[發問] 請問有無神人可幫解決這格式化條件的問題

hank10459

帖子
9 
主題
3 
精華
0 
積分
15 
點名
0  
作業系統
W7 
軟體版本
2010 
閱讀權限
10 
性別
男 
註冊時間
2014-3-3 
最後登錄
2015-7-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-3 12:06 | 只看該作者

[發問] 請問有無神人可幫解決這格式化條件的問題

本帖最後由 hank10459 於 2014-3-3 12:07 編輯

各位 EXCEL神人您好，想請問我現在做這個圖，如果分為2個活頁(03BAY與04(05)BAY)，當04BAY有資料時，03BAY的對應位置變成打一個大叉叉，不知有無高手有無辦法可用呢? 如果有看不懂得小弟會再多做說明。 謝謝
如圖為我想變成的這樣。

Q1.gif (24.94 KB)

Q1.gif

收藏 分享

seer_et

帖子
18 
主題
4 
精華
0 
積分
26 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
中國 
註冊時間
2011-6-19 
最後登錄
2021-4-15 
2#
發表於 2014-3-3 12:42 | 只看該作者
回復 1# hank10459

兩個方法可能做到你要的:

1.使用名稱

2.使用indirect來處理你要格式化的條件參照。

請參考這裡:
http://tw.knowledge.yahoo.com/question/question?qid=1512071307819

TOP

hank10459

帖子
9 
主題
3 
精華
0 
積分
15 
點名
0  
作業系統
W7 
軟體版本
2010 
閱讀權限
10 
性別
男 
註冊時間
2014-3-3 
最後登錄
2015-7-18 
3#
發表於 2014-3-3 14:20 | 只看該作者
回復 2# seer_et
您好S大，目前我的格是也沒辦法用到那種X圖示說!請問有辦法可以給他打上大叉叉嗎?

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
4#
發表於 2014-3-3 15:08 | 只看該作者
回復 1# hank10459

上個附件, 帶有你公式等. 我來解決X的問題
ss

TOP

hank10459

帖子
9 
主題
3 
精華
0 
積分
15 
點名
0  
作業系統
W7 
軟體版本
2010 
閱讀權限
10 
性別
男 
註冊時間
2014-3-3 
最後登錄
2015-7-18 
5#
發表於 2014-3-3 15:22 | 只看該作者
回復 4# sunnyso
回神人S, 我已經上船圖表^^麻煩您囉 Q1.rar (16.84 KB)

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
6#
發表於 2014-3-4 13:56 | 只看該作者
Sonny.gif Q1-Sonny.rar (20.9 KB) 回復 5# hank10459
ss

TOP

hank10459

帖子
9 
主題
3 
精華
0 
積分
15 
點名
0  
作業系統
W7 
軟體版本
2010 
閱讀權限
10 
性別
男 
註冊時間
2014-3-3 
最後登錄
2015-7-18 
7#
發表於 2014-3-5 11:29 | 只看該作者
本帖最後由 hank10459 於 2014-3-5 11:31 編輯

回復 6# sunnyso
S大，您好我有看到您的回覆，但因為我LEVEL不夠...可否E-MAIL給我呢。我的信箱是[email protected]    謝謝S大

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
8#
發表於 2014-3-5 12:09 | 只看該作者
回復 7# hank10459

here is the code.
  1. Private Sub Worksheet_Activate()

  3. With Sheets(2)
  4.     blnk = .[R4] <> "" Or .[R5] <> "" Or .[R6] <> "" _
  5.         Or .[S5] <> "" Or .[S6] <> "" _
  6.         Or .[T5] <> "" Or .[T6] <> ""
  7. End With


  10. If blnk Then
  11.         Range("R4:T6").Select
  12.     With Selection
  13.         .WrapText = False
  14.         .Orientation = 0
  15.         .AddIndent = False
  16.         .ShrinkToFit = False
  17.         .ReadingOrder = xlContext
  18.         .MergeCells = True
  19.     End With
  20.     With Selection.Borders(xlDiagonalDown)
  21.         .LineStyle = xlContinuous
  22.         .ColorIndex = xlAutomatic
  23.         .TintAndShade = 0
  24.         .Weight = xlMedium
  25.     End With
  26.     With Selection.Borders(xlDiagonalUp)
  27.         .LineStyle = xlContinuous
  28.         .ColorIndex = xlAutomatic
  29.         .TintAndShade = 0
  30.         .Weight = xlMedium
  31.     End With
  32.     With Selection.Borders(xlEdgeLeft)
  33.         .LineStyle = xlContinuous
  34.         .ColorIndex = xlAutomatic
  35.         .TintAndShade = 0
  36.         .Weight = xlMedium
  37.     End With
  38.     With Selection.Borders(xlEdgeTop)
  39.         .LineStyle = xlContinuous
  40.         .ColorIndex = xlAutomatic
  41.         .TintAndShade = 0
  42.         .Weight = xlMedium
  43.     End With
  44.     With Selection.Borders(xlEdgeBottom)
  45.         .LineStyle = xlContinuous
  46.         .ColorIndex = xlAutomatic
  47.         .TintAndShade = 0
  48.         .Weight = xlMedium
  49.     End With
  50.     With Selection.Borders(xlEdgeRight)
  51.         .LineStyle = xlContinuous
  52.         .ColorIndex = xlAutomatic
  53.         .TintAndShade = 0
  54.         .Weight = xlMedium
  55.     End With
  56.     Selection.Borders(xlInsideVertical).LineStyle = xlNone
  57.     Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
  58. Else
  59.     Range("O4:Q6").Select
  60.     ActiveWindow.SmallScroll Down:=-6
  61.     Selection.Copy
  62.     Range("R4").Select
  63.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  64.         SkipBlanks:=False, Transpose:=False
  65.     Application.CutCopyMode = False
  66.     Range("F4:H6").Select
  67.     Selection.Copy
  68.     Range("U4:W6").Select
  69.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  70.         SkipBlanks:=False, Transpose:=False
  71.     Application.CutCopyMode = False

  73. End If


  76. End Sub
複製代碼
ss

TOP

hank10459

帖子
9 
主題
3 
精華
0 
積分
15 
點名
0  
作業系統
W7 
軟體版本
2010 
閱讀權限
10 
性別
男 
註冊時間
2014-3-3 
最後登錄
2015-7-18 
9#
發表於 2014-3-5 12:55 | 只看該作者
回復 8# sunnyso


    收到了S大。謝謝您的提供。

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
10#
發表於 2014-3-5 14:52 | 只看該作者
回復 5# hank10459
格式化條件是無法控制斜線的格線
既然用VBA輔助，可以簡單一點
03BAY工作表模組程式碼
  1. Private Sub Worksheet_Activate()
  2. Dim r&, k&, i%
  3. With Sheets("(04)05BAY")
  4. For k = 3 To 33 Step 3 'C欄到AG欄，間隔3欄循環
  5.    For r = 4 To 26 Step 3 '第4列到26列，間隔3列循環
  6.       If Application.CountA(.Cells(r, k).Resize(3, 3)) = 7 Then '如果全部填滿
  7.          With Cells(r, k).Resize(3, 3)
  8.             .Merge '合併儲存格
  9.             For i = 5 To 6
  10.                With .Borders(i) '畫斜線
  11.                   .LineStyle = xlContinuous
  12.                End With
  13.             Next
  14.           End With
  15.           Else '否則執行複製貼上、清除內容
  16.           .Cells(r, k).Resize(3, 3).Copy Cells(r, k): Cells(r, k).Resize(3, 3) = ""
  17.        End If
  18.     Next
  19. Next
  20. End With
  21. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
12
返回列表 上一主題