No.1
【excel的字体怎么设置 对Excel表格进行字体设置】字体设置是Excel或Word办公软件最简单的操作，下面把所有字体对象的属性罗列一遍，介绍一下，如何使用vba代码进行相应的字体设置 。
下图为字体对象Font的所有属性 。一共18个 。
其中进了相对简单 ， 不需要之么高深的理解 。
No.2
下图以一个例子，对所有Font对象的设置进行一个可视化操作 ， 可以在左边值的列中选择相应的值，单击按钮即可看到字体效果 。十分简单 。下面重点看一下代码，如何来实现 。
'.Background = xlBackgroundTransparent '背景
'.Bold = True '粗体
'.Color = RGB(222, 1, 1)
'.ColorIndex = 9
'.FontStyle = "Italic" ''Regular Bold Bold Italic'字体样式
'.Italic = True '斜体
'.Name = "宋体" '名称
'.Size = 20'文本大小
'.Strikethrough = True '删除线
' .Subscript = True '下标
' .Superscript = True '上标
'.TintAndShade = 1 '颜色深浅
'.Underline = True '下划线
按钮代码
Private Sub CommandButton1_Click()Dim w As Worksheet, xV As Range, f As RangeSet w = ActiveSheetSet f = w.Range("D3")Set xV = w.Range("F5")With xV.Clear.Value = https://www.itzhengshu.com/excel/w.Range("D11").ValueWith .Font.Name = f.Value.Size = f.Offset(1, 0).Value.Bold = f.Offset(2, 0).Value.Italic = f.Offset(3, 0).Value.Superscript = f.Offset(4, 0).Value.Subscript = f.Offset(5, 0).Value.Strikethrough = f.Offset(6, 0).Value.Underline = f.Offset(7, 0).Value.ColorIndex = f.Offset(9, 0).ValueEnd WithEnd WithEnd SubNo.3
字体设置应用于"设置单元格或图形中所有文本的格式"，也可以使用Range的Characters属性来返回字符合集进行设置 。如:
dim Rs as Rangeset Rs=Activesheet.Range("A1:C10")With Rs.Font.name="宋体".size=12.Bold=TrueEnd With通常在Range对象下的Font设置还是十分方便的，如果是Shape或Chart对象之下的文本框，其代码相对有一些差异 ， 不过差别不大 。
---END---
欢迎关注、收藏