标签：End ColorIndex excel Value nextcol 字体 Characters 格式 Font

有时候有这样一种场景，excel的公式/函数结果都是没有样式的，一般情况下只能整体的改变单元格的样式，不能只修改单元格内部分文本的样式。由于excel本身的限制，改需求并不能通过公式或VBA函数直接实现。

如下提供一个替代方案：

1. 将公式写在自定义的单元格内，计算期望的结果

2. 将该列隐藏起来

3. 在VBA中写入如下代码，将其值格式化后写在后一列内

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, m&
Application.EnableEvents = False
Set targetcolumn = Me.UsedRange
For Each t In targetcolumn
    If t.Column = 7 Then
        If t.Value <> "" Then
            m = Len(t.Value)
            For i = 1 To m
                If Mid(t.Value, i, 4) = "Lion" Then
                    Set nextcol = Cells(t.Row, t.Column + 1)
                    nextcol.Value = t.Value
                    With nextcol.Characters(1, i - 1).Font
                        .ColorIndex = 0
                    End With
                    With nextcol.Characters(i, 4).Font
                        .ColorIndex = 3
                    End With
                    With nextcol.Characters(i + 4, m - i).Font
                        .ColorIndex = 0
                    End With
                    Exit For
                End If
            Next
        End If
    End If
Next t
Application.EnableEvents = True
End Sub

该代码写在worksheet里。

4. 最终效果：

标签：End,ColorIndex,excel,Value,nextcol,字体,Characters,格式,Font
来源： https://www.cnblogs.com/crazyghostvon/p/vbaformatformula.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。