龙空技术网

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

Excel880实战教学 155

前言:

目前咱们对“vb如何通过代码设置字体”都比较关切,我们都需要了解一些“vb如何通过代码设置字体”的相关知识。那么小编同时在网摘上汇集了一些有关“vb如何通过代码设置字体””的相关知识,希望朋友们能喜欢,小伙伴们一起来了解一下吧!

代码运行结果:代码截图:

代码文本:

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 = NothingEnd Sub

注释:

Font.Name:字体名称;

Font.FontStyle:字体样式;

Font.Size:字号;

Font.ColorIndex:字体颜色;

Font.Underline:字体属性。

VBA编辑神器放送

VBA编程神器 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用

私信回复 代码助手 即可获得

VBA密码破解 代码混淆保护加密 代码库输入提示

本提示数据库可完全自定义!

本人微信公众号 EXCEL880 每天分享Excel实战技术

私信回复 教程 可领取7天免费教程

标签: #vb如何通过代码设置字体 #vb设置字体颜色的代码 #vb中设置字体颜色的代码 #vb中字体颜色 #vba如何设置字体字号