Excel工作表是由一個(gè)個(gè)單元格組成的，操作過(guò)程中通常是對(duì)每一個(gè)單元格的格式進(jìn)行設(shè)置，有些時(shí)候我們會(huì)對(duì)另外的單元格格式進(jìn)行相同的設(shè)置，那么就有一個(gè)問(wèn)題需要解決，如何獲得相同的單元格格式，本文就介紹一下，獲取單元格格式的方法。

這里要認(rèn)識(shí)一個(gè)對(duì)象DisplayFormat

其實(shí)，這個(gè)對(duì)象也不理解，英文意思就是“顯示格式”，可以理解為單元格顯示格式，嚴(yán)格來(lái)說(shuō)是用戶界面顯示格式。

如下圖示例，DisplayFormat按鈕功能就是顯示出A1單元格的一些相關(guān)顯示格式值。

重點(diǎn)是DisplayFormat對(duì)象的返回值都是只讀屬性，也就是說(shuō)不能進(jìn)行單元格格式修改。

具體屬性如下圖所示：

這些屬性中所返回的值，有些是數(shù)據(jù)，有些是對(duì)象，根據(jù)不同的返回類(lèi)型，可以提取出不同的值。

如下圖所示，可以復(fù)制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對(duì)象就介紹這些，通過(guò)對(duì)代碼了解，實(shí)際上此對(duì)象還是很好理解的。

歡迎關(guān)注、收藏

---END---