Question

我想让VBA为选定的文字添加删除线，但找不到任何方法来执行此操作。

这是我想要录制的动作。

ActiveCell.Characters(Start:=7, Length:=5).Font

在这里，我想通过选择来实现。 Excel是否有我们在Word中的选择对象？

Answer 1

您可以直接使用细胞，无需激活。我在移动设备上，但有点像

cells(2,1).Select
 Selection.font.strikethrough=true

可以重新编码为cells(2,1).font.strikethrough = true

或者按照您的示例ActiveCell.font.strikethrough= true

或者

ActiveCell.Characters(Start:=7, Length:=5).Font.Strikethrough= true可能有效，我从未在characters ()使用它，所以我不是肯定的

Answer 2

要在选定的单元格上运行，例如：

Sub Test()
Dim rng1 As Range
If TypeName(Selection) = "Range" Then
    Set rng1 = Selection
    For Each rng2 In rng1.Cells
        If Len(rng2.Value2) > 12 Then rng2.Characters(7, 5).Font.Strikethrough = True
    Next
End If
End Sub

如何使用Excel单元格中的选择范围

2 个答案: