在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 = "加粗"
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 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
希望对你有帮助。
'
' Bold Macro
'
'
Range("A1").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "加粗"
End With
Range("A1").Select
End Sub
希望对你有帮助。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |