在EXCEL中,如何使用VBA设置单元格内指定字符串格式

发布网友

我来回答

共3个回答

热心网友

Sub ss()
Dim j As Long
j = InStr(Range("A1"), "格式")
With Range("A1")
.Font.FontStyle = "正常"
.Characters(Start:=j, Length:=2).Font.FontStyle = "加粗"
End With
End Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1") .Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"

热心网友

代码如下：
Sub aa()
With Range("A1")
.Clear
.Value = "字符串格式"
.Characters(4, 2).Font.FontStyle = "加粗"
End With
End Sub

热心网友

Sub Bold()
'
' Bold Macro
'

'
Range("A1").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "加粗"
End With
Range("A1").Select

End Sub

希望对你有帮助。

热心网友

Sub ss()
Dim j As Long
j = InStr(Range("A1"), "格式")
With Range("A1")
.Font.FontStyle = "正常"
.Characters(Start:=j, Length:=2).Font.FontStyle = "加粗"
End With
End Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1") .Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"

热心网友

代码如下：
Sub aa()
With Range("A1")
.Clear
.Value = "字符串格式"
.Characters(4, 2).Font.FontStyle = "加粗"
End With
End Sub

热心网友

Sub Bold()
'
' Bold Macro
'

'
Range("A1").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "加粗"
End With
Range("A1").Select

End Sub

希望对你有帮助。

热心网友

Sub ss()
Dim j As Long
j = InStr(Range("A1"), "格式")
With Range("A1")
.Font.FontStyle = "正常"
.Characters(Start:=j, Length:=2).Font.FontStyle = "加粗"
End With
End Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1") .Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"

热心网友

代码如下：
Sub aa()
With Range("A1")
.Clear
.Value = "字符串格式"
.Characters(4, 2).Font.FontStyle = "加粗"
End With
End Sub

热心网友

Sub Bold()
'
' Bold Macro
'

'
Range("A1").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "加粗"
End With
Range("A1").Select

End Sub

希望对你有帮助。

热心网友

Sub ss()
Dim j As Long
j = InStr(Range("A1"), "格式")
With Range("A1")
.Font.FontStyle = "正常"
.Characters(Start:=j, Length:=2).Font.FontStyle = "加粗"
End With
End Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1") .Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"

热心网友

Sub ss()
Dim j As Long
j = InStr(Range("A1"), "格式")
With Range("A1")
.Font.FontStyle = "正常"
.Characters(Start:=j, Length:=2).Font.FontStyle = "加粗"
End With
End Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1") .Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"

热心网友

代码如下：
Sub aa()
With Range("A1")
.Clear
.Value = "字符串格式"
.Characters(4, 2).Font.FontStyle = "加粗"
End With
End Sub

热心网友

Sub Bold()
'
' Bold Macro
'

'
Range("A1").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "加粗"
End With
Range("A1").Select

End Sub

希望对你有帮助。

热心网友

代码如下：
Sub aa()
With Range("A1")
.Clear
.Value = "字符串格式"
.Characters(4, 2).Font.FontStyle = "加粗"
End With
End Sub

热心网友

Sub Bold()
'
' Bold Macro
'

'
Range("A1").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "加粗"
End With
Range("A1").Select

End Sub

希望对你有帮助。