Toggle Format

MisterT · Dec 13th 2004

Can anybody tell me what is wrong with this? I must be missing something very, very simple...

Code

Sub BlueShading()


If Selection.Font.Color = RGB(255, 255, 255) Or Selection.Font.ColorIndex = -4105 Then 'White or Automatic
    
    Selection.Font.Color = RGB(0, 0, 0)
    Selection.Interior.ColorIndex = xlNone
    Selection.Font.Bold = False


ElseIf Selection.Font.Color = RGB(0, 0, 0) Then 'Black


    Selection.Font.Color = RGB(255, 255, 255)
    Selection.Interior.Color = RGB(0, 28, 92)
    Selection.Font.Bold = True
    
End If


End Sub

Display More

matt_boy · Dec 13th 2004

Re: Toggle Format

It seems to work for me, but only when the selection contains only one style of formatting, if your selection contains both white and blue it doesnt work, was this what you were trying to achieve?

matt_boy · Dec 13th 2004

Re: Toggle Format

This works over a selection of cells that contain etiher type of formatting i.e if the selection contains blue cells they will turn white and white cells will turn blue:

Code

Sub BlueShading()
     
Dim crng As Range


Set crng = Selection
     
     For Each crng In Selection
    If crng.Font.Color = RGB(255, 255, 255) Or Selection.Font.ColorIndex = -4105 Then 'White or Automatic
         
        crng.Font.Color = RGB(0, 0, 0)
        crng.Interior.ColorIndex = xlNone
        crng.Font.Bold = False
         
    ElseIf crng.Font.Color = RGB(0, 0, 0) Then 'Black
         
        crng.Font.Color = RGB(255, 255, 255)
        crng.Interior.Color = RGB(0, 28, 92)
        crng.Font.Bold = True
         
    End If
    Next crng
     
End Sub

Display More

Hope this helps

MisterT · Dec 13th 2004

Re: Toggle Format

Thanks Matt,

That works perfect!

Mike

Toggle Format

Participate now!

Share