excel code for color a cell code example

Example 1: excel vba color text in cell

' Occurences of pWord inside pRange's text become bold and red. 
' Case insensitive.
Sub WordToBold(ByRef pRange As Range, ByVal pWord As String, _
    Optional ByVal pPos As Integer = 1)
    Dim pos As Integer
    pos = InStr(pPos, pRange.Value, pWord, vbTextCompare)
    If pos > 0 Then
        With pRange.Characters(pos, Len(pWord))
            .Font.Bold = True
            .Font.Color = vbRed
        End With
        WordToBold pRange, pWord, pos + 1
    End If
End Sub
'--------------------------------------------------------------------------------
Sub TestIt()
    Range("A1") = "Run, Forrest run"
    WordToBold Range("A1"), "run"
End Sub

Example 2: excel sheet cell color formula

//create this function on a script on sheets
function GetCellColorCode(input) 
{ 
  var ss = SpreadsheetApp.getActiveSpreadsheet(); 
  var cell = ss.getRange(input); 
  var result = cell.getBackground(); 
  return result 
}

...

// then use this code inside cell
=GetCellColorCode("A"&ROW())

...

// result will be the color in hex
> #fffff

Tags:

Vb Example