方法如下:
1、打开excel
2、点击视图选项卡,点击宏
3、输入加粗,点击创建按钮。
4、在d出窗口中输入如下代码:
Sub加粗()
WithActiveSheet
ForEachcInRange("A1:A12")
Withc
cv=.Value
i=InStr(1,cv,"加粗",1)
.Characters(i,2).Font.Bold=True
EndWith
Next
EndWith
EndSub
//代码结束
其中
1)WithActiveSheet表示当前活动表格
2)ForEachcInRange("A1:A12")中"A1:A12"表示加粗文字的范围
3)i=InStr(1,cv,"加粗",1)中"加粗"为需要加粗的文字
4)Characters(i,2).Font.Bold=True中“(i,2).”表示加粗文字的字符数
5)Withc.......EndWith可重复多次,分别加粗不同的文字
编辑完成后关闭窗口
5、点击宏按钮,选择加粗,点击执行按钮
6、可以看到需要加醋的文字已经被加粗
excel字体加粗的单元格,按下快捷键ctrl+B:应用或取消加粗格式。
选择excel字体加粗的单元格,单击工具栏的加粗按钮。
选择excel字体加粗的单元格,右键“设置单元格格式”对话框,字体选项卡中设置加粗、倾斜和下划线等效果。
函数里没有加粗字体的,可以尝试条件格式。
条件格式:可以根据不同的条件单元格的格式:
开始菜单
条件格式
内置有很多的规则,根据需求设定
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)