Excel – How to change default text color in MS Excel

automationformattingmicrosoft excel

How can I make many edits to a MS Excel 2010 spreadsheet and save the edits I make using a different color (i.e. RED). Right now, I have to change the color of each and every cell in the spreadsheet, one at a time, before I begin typing. This is rather tedious.

Question: Is there a way to 'switch' the 'default' text color from Black to Red, and have everything you type show up in RED and then switch back to Black after making the changes and have the text stay the color it was written (RED in this case)?

Thanks!

Best Answer

A quick solution would be to Open your VBA window (Alt+F11) > Select ThisWorkbook from the Project Window > Select Workbook from the Top Left dropdown > Select SheetBeforeDoubleClick from the Top Right dropdown and then enter the following code within the sub:

Target.Font.Color = 255

Note that this requires that you double-click the cells you want to edit (and change to red text) as opposed to another technique such as F2.

If instead you wish to toggle colors by double-clicking use the following code:

Select Case Target.Font.Color
    Case 0
        Target.Font.Color = 255
    Case 255
        Target.Font.Color = 0
End Select

Related Solutions

Excel – Change the Point Color in chart excel VBA

Here is a quick example that should give you everything you need:

Sub Macro1()
    Dim crt As Chart
    Dim ser As Series
    Dim val As Long
    Dim pnt As Point

    Set crt = ActiveChart

    Debug.Print "Number of Series: ", crt.SeriesCollection.Count

    Set ser = crt.SeriesCollection(2)

    Debug.Print "# Points in Series 2: ", ser.Points.Count
    NumPoints = ser.Points.Count

    Debug.Print "Values for Series 2:"
    For i = 1 To NumPoints
        val = ser.Values(i)
        Debug.Print " ", i, val,

        Set pnt = ser.Points(i)

        If val > 6 Then
            pnt.MarkerForegroundColorIndex = 4
            pnt.MarkerBackgroundColorIndex = 4
            Debug.Print pnt.MarkerForegroundColor, pnt.MarkerForegroundColorIndex
        Else
            Debug.Print
        End If
    Next i

End Sub

You should set the colour using the Index value if you can as this retains consistent colours. Also note that the non-index colour number starts off as -1 so you can't use it to check the actual colour value. It is set, however, once you change the colour. You will also want to change the background colour in addition to the Foreground if you want the fill to be the same as the edge.

Excel – Extend Excel Formula Without Overwriting Background Color

Well, there is indeed another option:

enter image description here

And when you pick 'Fill without Formatting', your formulas will be copied without the background being copied over.

[Note for formulas, you won't get "Fill Series", I just got the picture from google =P]

I still prefer using the paste formulas only, since I can easily put it in the quick access toolbar and use Alt + [Some number] as shortcut.

Best Answer

Related Solutions

Excel – Change the Point Color in chart excel VBA

Excel – Extend Excel Formula Without Overwriting Background Color

Related Question