VBA入门基础 用代码设置单元格字体和背景色

本技巧的目的: 掌握使用代码来设置单元格格式的方法

未设置时：

用代码设置后：

未设置时：

用代码设置后边框后：

用代码设置尺寸后：

1. 代码助手:

使用代码助手后，输入中文：单元格 + 空格 即可显示代码，方便快速输入代码

还可以收藏自己需要的代码，方便下次使用。

2. 字体设置:

使用录制宏方法得到基础代码：

停止录制后得到以下代码：

注释：

Name: 字体名称

FontStyle: 字体样式

Size: 字号

Strikethrough: 文字中间是否有水平删除线

Superscript: 是否上标字符

Subscript: 是否下标字符

OutlineFont : 是否空心字体

Shadow: 是否有阴影(如果指定的字体是阴影字体)

Underline: 下划线类型

  • Color: 字体颜色

  • Bold:  字体是否加粗

  • TintAndShade: 字体颜色变深或变浅

  • ThemeFont: 主题字体

  • 去掉未设置的属性，代码如下：

  • With Sheet6.Range("B5").Font  'Sheet6 工作表  B5 单元格  字体设置

  • .Name = "微软雅黑"  '字体名称

  • .Size = 16   '字体大小

  • .Underline = xlUnderlineStyleSingle '单下划线

  • .Color = -10477568 '字体颜色

  • .Bold = True '加粗

  • End With

  • With: 开始对输入的对象执行这之后的代码

  • 示例中为对 Sheet6 工作表-B5 单元格-字体  进行设置

  • 中间代码前面加上  .  代表都使用:  Sheet6 工作表-B5 单元格-字体

  • End With：执行结束

  • 设置前：

  • 设置后：

  • 3. 单元格内部颜色填充：

    • xlColorIndexAutomatic （自动填充）、  xlColorIndexNone （无内部填充）

    • 可指定为下图的当前调色板中颜色的编号:

    • Interior单元格内部格式    PatternColorIndex:  设置内部图案的颜色:

    • 设置后:

    • 设置前:

    • End With

    • .Color = 49407 '单元格颜色

    • .PatternThemeColor = xlThemeColorAccent3  '单元格图案的主题颜色

    • .Pattern = xlVertical  '单元格内部图案

    • With Sheet6.Range("B5").Interior  'Sheet6 工作表  B5 单元格  单元格内部格式

    • 修改后代码:

    • PatternTintAndShade: 淡色和底纹图案

    • TintAndShade: 使颜色变深或变浅

    • Color: 主要颜色

    • PatternThemeColor: 图案的主题颜色

    • Pattern: 内部图案

    • 注释:

    • 录制宏以后得到以下代码:

  • 4. 单元格区域添加边框：

    • 设置后:

    • 设置前:

    • 使用单元格区域变量 和 颜色变量，方便后面快速改动。

    • 注释:

    • 修改代码:

    • ★★★注意: 指定Color参数可以设置颜色为当前调色板之处的其它颜色，不能同时指定ColorIndex参数和Color参数。

    • ColorIndex: 设置边框颜色

    • Color: 以RGB值指定边框的颜色

    • Weight: 边框的粗细

    • TintAndShade: 使颜色变深或变浅

    • LineStyle: 边框的线型

    • Border: 设置边框

    • 注释:

    • 录制宏以后得到以下代码:

  • 5. 单元格的行高列宽：

    • 设置后：

    • 修改代码为：

    • ColumnWidth ：磅为单位 设置指定区域的列宽

    • RowHeight ：磅为单位 设置指定区域的行高

    • View：设置在窗口中显示的视图

    • 注释：

赞 (0)

相关推荐