Snasui Excel Forum

Code: Select all

Sub ซ่อน()
'
' ซ่อน แมโคร
'

'
    Range("B6:G55").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("B6").Select
End Sub

Code: Select all

Sub แสดง()
'
' แสดง แมโคร
'

'
    Range("B6:G55").Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("B6").Select
End Sub

Code: Select all

Range("B6:G55").Select
If Range("b6").Font.ColorIndex = xlAutomatic Then
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
Else
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End If
Range("B6").Select