excel的VBA中Range对象的其他设置包含哪些设置？

上一章给大家分享了一下关于Range对象的复制、剪切、删除的基本操作，今天继续给大家分享一下关于Range对象的批注以及单元格的字体、字体颜色等操作。

现在不管是什么产品都会有自己的说明书，标明自己产品的用途和功能，那么单元格也可以添加单元格的批注，这就是需要使用Range对象的方法AddComment。

要标注一个单独的单元格就是用一个Comment对象。

1. AddComment有什么作用？

AddComment作用就是返回Comment对象，AddComment有一个可选参数Text(可以省略)。

举个例子：

代码1：

Sub test()

Worksheets(“sheet3”).Range(“A1”).AddComment “这就是一个新建的批注！”

End Sub

Worksheets(“sheet3”).Range(“B1″).AddComment Text:=”这就是一个新建的批注！”

注意：一个单元格只能添加一次批注。

那么问题来了怎么判断一个单元格是否有批注，那就需要使用到Comment对象了

代码2：

Sub test()

If Worksheets(“sheet3”).Range(“B1”).Comment Is Nothing Then

Worksheets(“sheet3”).Range(“B13”).Value = “B1单元格中并没有批注！”

Else

Worksheets(“sheet3”).Range(“B13”).Value = “B1单元格中有批注！”

End If

End Sub

前面文章我们也有使用过对单元格的颜色和字体的设置，今天就详细地介绍一下。

在具体介绍之前我们在介绍一种简单的语法结构，前面分享语法结构的时候没有分享就是为了在这个时候好用的。那就是With语句。

With语句的好处就是当我们需要对相同的对象操作的时候，我们可以使用With简化代码还能提高程序的运行效率。

下面就用代码比较一下：

代码3：

Sub test()

Worksheets(“sheet3”).Range(“B13”).Font.Name = “宋体”

Worksheets(“sheet3”).Range(“B13”).Font.Size = 12

Worksheets(“sheet3”).Range(“B13”).Font.Bold = True

Worksheets(“sheet3”).Range(“B13”).Font.ColorIndex = 8

Worksheets(“sheet3”).Range(“B13”).Font.FontStyle = “Bold Italic”

End Sub

下面简单介绍一下：

代码4：

Sub test()

With Worksheets(“sheet3”).Range(“B13”).Font

.Size = 12

.Bold = True

.ColorIndex = 3

.FontStyle = “Bold Italic”

End With

End Sub

上面2种不同的写法看看哪种比较好用。

下面简单介绍一下：

最后再介绍一下给单元格修改背景颜色：

简单介绍2种方式根据自己喜欢的方式设置

代码5：

Sub test()

Worksheets(“sheet3”).Range(“B13”).Interior.ColorIndex = 5

Worksheets(“sheet3”).Range(“B14”).Interior.Color = RGB(255, 0, 0)

End Sub

运行结果：