excel表格怎么批量加粗字体
3个回答
2017-07-10
展开全部
是指批量加粗多个单元格内的文字,还是说批量加粗多个工作表内的文字,或是批量加粗多个工作薄中的文字啊?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选定范围就好啊,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
excel表格批量加粗文字的步骤
1、打开excel
2、点击视图选项卡,点击宏
3、输入加粗,点击创建按钮
4、在弹出窗口中输入如下代码:
Sub 加粗()
With ActiveSheet
For Each c In Range("A1:A12")
With c
cv = .Value
i = InStr(1, cv, "加粗", 1)
.Characters(i, 2).Font.Bold = True
End With
Next
End With
End Sub
//代码结束
其中
1)With ActiveSheet表示当前活动表格
2)For Each c In Range("A1:A12")中"A1:A12"表示加粗文字的范围
3) i = InStr(1, cv, "加粗", 1) 中"加粗"为需要加粗的文字
4)Characters(i, 2).Font.Bold = True中“(i, 2).”表示加粗文字的字符数
5)With c.......End With 可重复多次,分别加粗不同的文字
编辑完成后关闭窗口
5、点击宏按钮,选择加粗,点击执行按钮
6、可以看到需要加醋的文字已经被加粗
1、打开excel
2、点击视图选项卡,点击宏
3、输入加粗,点击创建按钮
4、在弹出窗口中输入如下代码:
Sub 加粗()
With ActiveSheet
For Each c In Range("A1:A12")
With c
cv = .Value
i = InStr(1, cv, "加粗", 1)
.Characters(i, 2).Font.Bold = True
End With
Next
End With
End Sub
//代码结束
其中
1)With ActiveSheet表示当前活动表格
2)For Each c In Range("A1:A12")中"A1:A12"表示加粗文字的范围
3) i = InStr(1, cv, "加粗", 1) 中"加粗"为需要加粗的文字
4)Characters(i, 2).Font.Bold = True中“(i, 2).”表示加粗文字的字符数
5)With c.......End With 可重复多次,分别加粗不同的文字
编辑完成后关闭窗口
5、点击宏按钮,选择加粗,点击执行按钮
6、可以看到需要加醋的文字已经被加粗
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |