文字単位の色指定

        With ActiveSheet.Cells(行, 列).Characters(Start:=n, length:=1).Font
            .Bold = True
            '.ColorIndex = 7
            .Color = RGB(255, 0, 255) 'ﾋﾟﾝｸ　#FF00FF / RGB(255,0,255) / 16711935
        End With