請教VBA遇到【條件式規式設定】時，要如何撰寫成VB陳述式？

MaverickRay wrote:
如題所示，一般遇到不(恕刪)

Sub t1()
    '條件格式化
    Range("A1").Select
    Cells.FormatConditions.Delete  '刪除已存在的條件格式化

    Range("A1:D100").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=0.001", Formula2:="=59.999"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ColorIndex = 13
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 38
        .TintAndShade = 0
    End With

End Sub

Sub t2()
    '條件格式化
    Range("A1").Select
    Cells.FormatConditions.Delete  '刪除已存在的條件格式化
    '以下：當游標移動時，把該列座號和A1號相同的範圍儲存格，通通打上底色
    Range("A3:Z100").Select  
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=(OFFSET($A$1,ROW()-1,0)=VALUE(TRIM($A$1)))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.599963377788629
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'當游標移動時，把目前游標所在作用儲存格的A欄值(就是座號)，標在A1
Cells(1, 1) = Cells(ActiveCell.Row, 1)
End Sub

misser wrote:
1.考試登記，格子不到60分的，用顏色標註：

'工作表2、a1~a10、大於0、小於0、粗體字


Sub SetFormatCondition()
    
    Dim Crange As Range, C1 As FormatCondition, C2 As FormatCondition ' Cn As FormatCondition
'範圍
    Set Crange = Sheets("工作表2").Range("a1", Sheets("工作表2").Range("a1").End(xlDown))
    Crange.FormatConditions.Delete
    Crange.Font.Bold = True
'條件1
    Set C1 = Crange.FormatConditions.Add(xlCellValue, xlGreater, "=0")
    C1.Font.Color = vbRed

'條件2
    Set C2 = Crange.FormatConditions.Add(xlCellValue, xlLess, "=0")
    C2.Font.Color = -11489280

'條件n... 
'...
'...

    Set Crange = Nothing
  
End Sub

misser wrote:
第2個例子：滑鼠移到該列，會自動顏色標註(我同事說很好用，尤其是資料欄位多時)
程式碼：(有2處要加喔，效果才會出來) 1.模組內 2.工作表內。

'程式碼需放到工作表內(非模組)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Selection.Worksheet.Cells.FormatConditions.Delete
    
    Rows(ActiveCell.Row).FormatConditions.Add xlExpression, , "TRUE"
    Rows(ActiveCell.Row).FormatConditions(1).Interior.ThemeColor = 5
    
    'Columns(ActiveCell.Column).FormatConditions.Add xlExpression, , "TRUE"
    'Columns(ActiveCell.Column).FormatConditions(2).Interior.ThemeColor = 6

'.Interior.ThemeColor = 5  '.Interior.Color = vbGreen '.Interior.Color = RGB(200, 80, 100) '.Interior.ColorIndex = 8

End Sub

snare wrote:
用set會比較好寫，(恕刪)

改這樣寫，就只需要放一個位置

MaverickRay wrote:

可是當遇到條件式格式設定時，它卻只會錄製欄位選取而已.

misser wrote:
送上2個現成例子(我(恕刪)

misser wrote:
不好意思，順便提一下(恕刪)

snare wrote:
用set會比較好寫，(恕刪)

misser wrote:
沒錯，上面我post(恕刪)