如何实现Excel单元格内选中文字加删除线后自动变红？

要实现单元格内选中文字添加删除线时自动变红的需求，你需要操作Excel的Characters对象（用于控制单元格内部分文本的格式），而非整个单元格的字体属性。以下是两种可行的实现方式：

方法1：自动监听修正格式（选中单元格时自动生效） #

在目标工作表的模块中添加以下VBA代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    Dim i As Integer
    
    ' 仅处理单个选中的单元格
    If Target.Cells.Count > 1 Then Exit Sub
    
    Set cell = Target
    ' 遍历单元格内的每一个字符
    For i = 1 To Len(cell.Value)
        With cell.Characters(i, 1).Font
            ' 有删除线则设为红色，无则恢复默认黑色（可自行修改默认颜色）
            .Color = IIf(.Strikethrough, RGB(255, 0, 0), RGB(0, 0, 0))
        End With
    Next i
End Sub

效果说明： #

当你给单元格内的部分文字手动添加删除线后，只要选中该单元格，代码会自动遍历所有字符，将带删除线的文本设为红色，不影响其他内容。

方法2：一键设置（绑定快捷键，高效操作） #

如果你觉得手动加删除线再触发自动修正仍繁琐，可以用快捷键一键完成「删除线+红色字体」的设置：

1. 按Alt+F11打开VBA编辑器，插入一个标准模块，添加以下代码：

Sub StrikeThruAndRed()
    ' 仅处理单元格内选中的部分文本
    If TypeName(Selection) = "Range" Then
        With Selection.Font
            ' 切换删除线状态，同时同步颜色
            .Strikethrough = Not .Strikethrough
            .Color = IIf(.Strikethrough, RGB(255, 0, 0), RGB(0, 0, 0))
        End With
    End If
End Sub

2. 设置快捷键：
   • 按Alt+F8打开宏对话框，选中StrikeThruAndRed
   • 点击「选项」，设置自定义快捷键（比如Ctrl+Shift+S）
   • 确定后，选中单元格内的目标文本，按快捷键即可一键切换删除线和红色字体。

为什么之前的方法无效？ #

你之前的自定义函数StrikeThru仅读取整个单元格的Font.Strikethrough属性，无法识别单元格内部分文本的格式差异。而Excel中，单元格内的部分文本格式由Characters对象控制，必须针对单个字符或选中的文本片段操作才能实现需求。

内容的提问来源于stack exchange，提问作者Geryones