返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 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

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題