返回Excel工作表单元格属性值，这个对象就可以轻松实现

Excel工作表是由一个个单元格组成的，操作过程中通常是对每一个单元格的格式进行设置，有些时候我们会对另外的单元格格式进行相同的设置，那么就有一个问题需要解决，如何获得相同的单元格格式，本文就介绍一下，获取单元格格式的方法。

这里要认识一个对象DisplayFormat

其实，这个对象也不理解，英文意思就是“显示格式”，可以理解为单元格显示格式，严格来说是用户界面显示格式。

如下图示例，DisplayFormat按钮功能就是显示出A1单元格的一些相关显示格式值。

重点是DisplayFormat对象的返回值都是只读属性，也就是说不能进行单元格格式修改。

具体属性如下图所示：

这些属性中所返回的值，有些是数据，有些是对象，根据不同的返回类型，可以提取出不同的值。

如下图所示，可以复制A1单元格属性到A2。

代码：

Private Sub ShowDisplayFormat()

Dim r As Range

Set r = Range("A1")

With r

.Offset(2, 1).Value = .DisplayFormat.Font.Name

.Offset(2, 2).Value = .DisplayFormat.Font.Size

.Offset(2, 3).Value = .DisplayFormat.Borders.ColorIndex

.Offset(2, 4).Value = .DisplayFormat.VerticalAlignment

End With

End Sub

Private Sub CopyDisplayFormat()

Dim r As Range

Set r = Range("A2")

With r

.Value = "新单元"

.Font.Name = .Offset(-1, 0).DisplayFormat.Font.Name

.Font.Size = .Offset(-1, 0).DisplayFormat.Font.Size

.Borders.ColorIndex = .Offset(-1, 0).DisplayFormat.Borders.ColorIndex

.Borders.LineStyle = .Offset(-1, 0).DisplayFormat.Borders.LineStyle

.VerticalAlignment = .Offset(-1, 0).DisplayFormat.VerticalAlignment

.HorizontalAlignment = .Offset(-1, 0).DisplayFormat.HorizontalAlignment

End With

Set r = Nothing

End Sub

DisplayFormat对象就介绍这些，通过对代码了解，实际上此对象还是很好理解的。

欢迎关注、收藏

---END---