Snasui Excel Forum

Code: Select all

Sub Macro5()
Dim t1 As String
t1 = InputBox("กรุณาใส่คอลัม")
    Range("&t1&'8").Select 'ต้องใส่ค่าแบบไหนครับ
    Application.CutCopyMode = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$E$7/2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$E$7"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Code: Select all

Dim rall As Range, r As Range
With Sheets(1)
    Set rall = .Range("e9", .Range("x" & .Rows.Count).End(xlUp))
    For Each r In rall
        If r.Value > .Cells(7, r.Column) Then r.Interior.Color = vbRed
    Next r
End Wit

Code: Select all

Sub Macro1()

    Range("E8").Select      'เปลี่ยน
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-48
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$E$7/2"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$E$7"     'เปลี่ยน
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16711681
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Range("E8").Select     'เปลี่ยน
End Sub