VBA案例精选 获取指定单元格字体格式

代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()

Dim myRange As Range

Set myRange = Range("A1")    '指定任意的单元格

MsgBox "单元格" & myRange.Address & "的字体对象如下：" _

& vbCrLf & "名称：" & myRange.Font.Name _

& vbCrLf & "字形：" & myRange.Font.FontStyle _

& vbCrLf & "字号：" & myRange.Font.Size _

& vbCrLf & "颜色：" & myRange.Font.ColorIndex _

& vbCrLf & "下划线：" & myRange.Font.Underline

Set myRange = Nothing

End Sub

注释：

Font.Name意义为：字体名称;

Font.FontStyle意义为：字体样式;

Font.Size意义为：字号;

Font.ColorIndex意义为：字体颜色;

Font.Underline意义为：字体属性。

【你们百度三天  不过我随口一句】
郑广学老师独家逐行手写沉浸式案例教学法 知其然更知其所以然
全套教程包含 VBA175例+函数操作408例+代码助手VIP
+100期直播回放
【268元进1000人高手VBA永久答疑群+880网站VIP】
买课咨询请加微信EXCEL880B

点击进入 郑广学老师Excel教程免费学7天 !

---

扫描二维码