网站视频怎么做,上海做推广的公司,美叶设计网站,个人网站怎么维护009 设置单元格格式之字体(文档下载#xff1a;关注本公众号#xff0c;发送消息【教程】即可获得)通过VBA对单元格字体进行设置也是比较常用的方式#xff0c;那么本节内容我们就来学习如何使用VBA对单元格中的字体进行设置。如图所示#xff0c;字体设置主要有#xff0…009 设置单元格格式之字体(文档下载关注本公众号发送消息【教程】即可获得)通过VBA对单元格字体进行设置也是比较常用的方式那么本节内容我们就来学习如何使用VBA对单元格中的字体进行设置。如图所示字体设置主要有字体本身、字形、字号、下划线、字体颜色及特殊效果这几部分组成下面我们进行逐一解析Q设置区域A1:B5的字体为微软雅黑字体颜色为红色双下划线斜体并且加粗字号要求设置为15。A代码如下Sub 案例038()With Range(A1:B5).Font.Name 微软雅黑                          ‘字体.ColorIndex 3‘字体颜色.Underline xlUnderlineStyleDouble‘下划线.Italic True‘是否为斜体.Bold True‘是否加粗.Size 15‘字号End WithEnd Sub【解析】VBA对于字体的设置是非常简单的字体有专门的对象即单元格子对象Font该对象下面含有很多的属性具体如下另外我们这里需要说明的是颜色的设置ColorIndex属性在Excel中通过VBA对对象设置相关颜色均可以通过ColorIndex与Color这两个属性来完成那么他们两个之间有什么区别Color设置对象颜色该颜色值可以通过RGB函数获得比如设置颜色为红色则可以通过以下方式完成对象表达式.ColorRGB(255,0,0)ColorIndex该属性取值范围为1~56它其实是颜色的索引如下图所示这56个值代表的颜色所以这两个属性的区别在于其颜色可取范围及使用的便利性ColorIndex使用便利但取值范围有限通过Color可以设置任意颜色但使用便利性上稍稍逊色。【扩展】如何使用VBA获取当前电脑中所有字体名称具体代码如下Sub 案例039()Dim fontlist As ObjectDim i As IntegerSet fontlist Application.CommandBars(Formatting).FindControl(ID:1728)For i 0 To fontlist.ListCount - 1Cells(i 1, 1) fontlist.List(i 1)NextEnd Sub运行该程序所有字体会输出到当前活动工作表的第一列中该方法使用Application.CommandBars(Formatting).FindControl(ID:1728)来获取了字体设置的控件对象并通过For语句来遍历了所有字体名称并输出到表格中。Q如何设置单元格中第二个字符为上标第三个字符为下标A设置字体为上标可以设置Superscript属性值为True来完成而下标则可通过Subscript属性来进行设置但本案例的难度在于如何设置单元格中的某一个字符具体代码如下Sub 案例040()Range(A2).Characters(Start:2,Length:1).Font.Superscript TrueRange(A2).Characters(Start:3,Length:1).Font.Subscript TrueEnd Sub【解析】本案例的学习重点在于Characters对象的使用该对象返回单元格中的某一段字符串参数有Start及Length两个即截取单元格字符串中从某个位置开始长度为特定长度的一段字符串对象有了这个对象我们就可以灵活的对单元格中的字符进行处理积跬步至千里懂得分享才会快乐