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

請問以下語法，2003 m3

cji3cj6xu6

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-4-5 22:23 | 只看該作者

請問以下語法，2003 m3

Sheets("result").Select
Range("Q2:s11").Select
Selection.FormatConditions.Delete
For DQ = 2 To 11
'Range("S2").Select
Range("r" & DQ).Select
'Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
      , Formula1:="=$R$2"

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
      , Formula1:="=result!R[]C[-1]"

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
      .PatternColorIndex = xlAutomatic
      .ThemeColor = xlThemeColorAccent6
      .TintAndShade = -0.249946592608417
End With
Selection.FormatConditions(1).StopIfTrue = False
Next