我想在字符串中设置一些文本的加粗效果。如何实现?
通过使用字符。
Range("A1").Characters(8, 5).Font.Bold = True
Range("A1").Characters(worksheetfunction.find("Excel",Range("A1").value,1),len("Excel")).font.bold = True
对于需要快速解决问题且不熟悉使用VBA的人,另一种方法是:
虽然不是最快的方法,但如果您不熟悉VBA并需要快速解决问题,这个方法适合您!
不仅限于加粗: CTRL I表示斜体,CTRL U表示下划线。
如果您需要加粗多个特定文本,请尝试以下方法:
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
此解决方案的源代码来自:http://www.vbaexpress.com/forum/showthread.php?52245-Make-specific-text-bold-in-cells