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

这里要认识一个对象DisplayFormat
其实,这个对象也不理解,英文意思就是“显示格式”,可以理解为单元格显示格式,严格来说是用户界面显示格式 。
如下图示例,DisplayFormat按钮功能就是显示出A1单元格的一些相关显示格式值 。

重点是DisplayFormat对象的返回值都是只读属性,也就是说不能进行单元格格式修改 。
具体属性如下图所示:

【返回Excel工作表单元格属性值,这个对象就可以轻松实现】这些属性中所返回的值,有些是数据 , 有些是对象,根据不同的返回类型,可以提取出不同的值 。
如下图所示 , 可以复制A1单元格属性到A2 。

代码:
Private Sub ShowDisplayFormat()Dim r As RangeSet r = Range("A1")With r.Offset(2, 1).Value = https://www.itzhengshu.com/excel/.DisplayFormat.Font.Name.Offset(2, 2).Value = .DisplayFormat.Font.Size.Offset(2, 3).Value = .DisplayFormat.Borders.ColorIndex.Offset(2, 4).Value = .DisplayFormat.VerticalAlignmentEnd WithEnd SubPrivate Sub CopyDisplayFormat()Dim r As RangeSet r = Range("A2")With r.Value = "https://www.itzhengshu.com/excel/新单元".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.HorizontalAlignmentEnd WithSet r = NothingEnd SubDisplayFormat对象就介绍这些 , 通过对代码了解,实际上此对象还是很好理解的 。
欢迎关注、收藏
---END---
