Excel vba set bold specific text of string into the cell?

Question

我想在字符串中加粗一些文本。我该怎么做？

Answer 1

通过使用字符。

Range("A1").Characters(8, 5).Font.Bold = True

Answer 2

我会说使用这个动态公式 -

Range("A1").Characters(worksheetfunction.find("Excel",Range("A1").value,1),len("Excel")).font.bold = True

Answer 3

Another way for people who need a quick fix and aren't comfortable using VBA:

1. Copy and paste the cell range into a word document (it will look messy at first).
2. Go to "replace" (top right).
3. Type the word you want to make bold into the "Find what:" field and the same into the "Replace with:" field, then when you are on the "Replace With:" box press CTRL B. You should see "Format: Font: Bold" appear beneath it.
4. Click Replace All and you should see all the targeted words go bold.
5. Hover over your Excel text (currently in Word) and you should see a small symbol of 4 arrows appear at the top left of the text. Click that to highlight the cells, then you can copy them and paste back into excel.

Not the fastest way but if you're not familiar with VBA and need a quick fix this will work for you!

Not just for Bold: CTRL I for italics, CTRL U for underlined.

Answer 4

Try this if you need to bold multiple specific text:

Sub Find_and_Bold()
Dim rCell As Range, sToFind As String, iSeek As Long
Dim Text(1 To 4) As String
Dim i As Integer


Text(1) = "text1"
Text(2) = "text2"
Text(3) = "text3"
Text(4) = "text4"


For Each rCell In Range("C7:C1000")
    For i = LBound(Text) To UBound(Text)
            sToFind = Text(i)
            iSeek = InStr(1, rCell.Value, sToFind)
        Do While iSeek > 0
            rCell.Characters(iSeek, Len(sToFind)).Font.Bold = True
            iSeek = InStr(iSeek + 1, rCell.Value, sToFind)
        Loop
    Next i
Next rCell

End Sub

The source for this solution is from: http://www.vbaexpress.com/forum/showthread.php?52245-Make-specific-text-bold-in-cells