Excel，一个单元格两种颜色

来源：互联网发布：ps做淘宝宝贝详情教程编辑：程序博客网时间：2024/05/16 02:36

<pre name="code" class="vb"><img src="http://img.blog.csdn.net/20160226131754231?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="" />

Sub Macro1()'For mycolumn= 1 To 100For myrow= 2 To 5' 从第1行到100行，vba的下标从1 开始，非传统的0开始' 从第2列到第5列ActiveSheet.Cells(myrow, mycolumn).Select' 选中循环中的单元格If ActiveCell.Value = "" ThenElse    With ActiveCell.Characters(Start:=1, Length:=0).Font        .Name = "宋体"        .FontStyle = "常规"        .Size = 11        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .ThemeColor = xlThemeColorLight1        .TintAndShade = 0        .ThemeFont = xlThemeFontMinor    End With    With ActiveCell.Characters(Start:=1, Length:=8).Font' 1~8字符 设置为红色        .Name = "宋体"        .FontStyle = "常规"        .Size = 11        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .Color = -16776961        .TintAndShade = 0        .ThemeFont = xlThemeFontMinor    End With    With ActiveCell.Characters(Start:=9, Length:=1).Font        .Name = "宋体"        .FontStyle = "常规"        .Size = 11        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .ThemeColor = xlThemeColorLight1        .TintAndShade = 0        .ThemeFont = xlThemeFontMinor    End With    With ActiveCell.Characters(Start:=10, Length:=5).Font' 10~14字符 设置为深蓝色        .Name = "宋体"        .FontStyle = "常规"        .Size = 11        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .Color = -4165632        .TintAndShade = 0        .ThemeFont = xlThemeFontMinor    End With    Selection.Font.Bold = TrueEnd IfNextNextEnd Sub

0 0