儲存格範圍內底色巨集如何設定 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 儲存格範圍內底色巨集如何設定

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: 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

Sub nn()
Dim rTar As Range
Dim rT
Set rTar = Range([B3], [B17])
For Each rT In rTar
With rT
Select Case .Value
Case Is < 0.7
.Font.ColorIndex = 6
Case Is > 0.9
.Font.ColorIndex = 43
Case Else
.Font.ColorIndex = -4105
End Select
End With
Next
End Sub

複製代碼

靜思自在 : 君子為目標，小人為目的。

返回列表下一主題上一主題