返回列表 上一主題 發帖

[發問] 儲存格範圍內底色巨集如何設定

lp986749

帖子
19 
主題
6 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-8 
最後登錄
2022-8-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-8-30 07:48 | 只看該作者

[發問] 儲存格範圍內底色巨集如何設定

百分比
53.32%
88.65%
82.81%
66.80%
72.87%
83.08%
84.21%
86.65%
90.51%
97.10%
88.06%
86.88%
98.88%
89.46%
86.27%

範圍B3:B17百分比<70%底色改為黃色

範圍B3:B17百分比>90%底色改為綠色

範圍B3:B17百分比70%<X<90%底色無顏色

請問巨集如何寫?
收藏 分享

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
2#
發表於 2014-8-30 08:32 | 只看該作者
百分比
53.32%
...
86.8 ...
lp986749 發表於 2014-8-30 07:48
  1. Sub nn()
  2.   Dim rTar As Range
  3.   Dim rT
  4.   
  5.   Set rTar = Range([B3], [B17])
  6.   
  7.   For Each rT In rTar
  8.     With rT
  9.       Select Case .Value
  10.       
  11.       Case Is < 0.7
  12.         .Font.ColorIndex = 6
  13.         
  14.       Case Is > 0.9
  15.         .Font.ColorIndex = 43
  16.         
  17.       Case Else
  18.         .Font.ColorIndex = -4105
  19.         
  20.       End Select
  21.     End With
  22.   Next
  23. End Sub
複製代碼

TOP

lp986749

帖子
19 
主題
6 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-8 
最後登錄
2022-8-19 
3#
發表於 2014-8-30 09:07 | 只看該作者
感激解惑此困擾問題我自己練習巨集如下
Sub Macro3()
'
' Macro3 Macro
'

'
    Range("B3:B17").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=0.9"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="=0.7"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16752384
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13561798
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題