3

我想以红色和粗体突出显示我的 Excel 工作表的选定列中的每个单词/短语实例（使用 Excel 2010）。例如，如果列 A1:A10 包含句子“棕狐喜欢另一只棕狐”，我想突出显示此范围内的每个“棕狐”实例。

我在这里找到了一个宏，它仅突出显示每个单元格中的“棕狐”的第一个实例：

Sub colorText()

Dim cl As Range
Dim startPos As Integer
Dim totalLen As Integer
Dim searchText As String

' specify text to searh.
searchText = "brown fox"

' loop trough all cells in selection/range
For Each cl In Selection

  totalLen = Len(searchText)
  startPos = InStr(cl, searchText)

  If startPos > 0 Then
    With cl.Characters(startPos, totalLen).Font
      .FontStyle = "Bold"
      .ColorIndex = 3
    End With
  End If
Next cl

End Sub

我想编辑这个宏，使它突出显示“棕狐”的每个实例，而不仅仅是第一个。作为尝试，我尝试了以下方法：

Sub colorText()

Dim cl As Range
Dim startPos As Integer
Dim totalLen As Integer
Dim searchText As String
Dim endPos As Integer
Dim testPos As Integer

' specify text to search.
searchText = "brown fox"

' loop trough all cells in selection/range
For Each cl In Selection

  totalLen = Len(searchText)
  startPos = InStr(cl, searchText)
  testPos = 0

  Do While startPos > testPos
    With cl.Characters(startPos, totalLen).Font
      .FontStyle = "Bold"
      .ColorIndex = 3
    End With

    endPos = startPos + totalLen
    testPos = testPos + endPos
    startPos = InStr(testPos, searchText)
  Loop

Next cl

End Sub

但是，这仍然只格式化“brown fox”的第一个实例。

任何想法/编辑将不胜感激。

4

2 回答 2

4

你的错误在你的逻辑上。您应该更正以下代码：

 startPos = InStr(testPos, cl, searchText, vbTextCompare)

而不是这样做：

 startPos = InStr(testPos, searchText)

在第二个子。你现在看到了吗？:-)

于 2013-03-15T18:19:17.473 回答
0

当我想在一系列单元格中格式化特定单词时，我遇到了同样的问题。经过多次尝试和大量互联网搜索，这是效果最好的一个......

Sub FormatWords()
Dim Rng As Range, cl As Range, Red As Integer
Dim oStrg As String
Set Rng = Range(Range("D1"), Range("D" & Rows.Count).End(xlUp))
On Error Resume Next
oStrg = "Apple"
If oStrg = "" Then Exit Sub

For Each cl In Rng
    Red = InStr(1, cl, oStrg, vbTextCompare)

    Do Until Red = 0
        With cl.Characters(Red, Len(oStrg))
        .Font.Color = RGB(230, 25, 55)
        .Font.Bold = True
         End With
         Red = InStr(Red + 1, cl, oStrg, vbTextCompare)
    Loop
Next cl

oStrg = "Mango"
If oStrg = "" Then Exit Sub

For Each cl In Rng
    Orange = InStr(1, cl, oStrg, vbTextCompare)
    Do Until Orange = 0
        With cl.Characters(Orange, Len(oStrg))
        .Font.Color = RGB(250, 200, 0)
        .Font.Bold = True
        End With

        Orange = InStr(Orange + 1, cl, oStrg, vbTextCompare)
    Loop
Next cl

End Sub
于 2016-06-30T17:13:53.647 回答