excel code for color a cell code example
Example 1: excel vba color text in cell
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