1

伙计们，如果我使用以下代码： 

dim Defaultcol As Long

Defaultcol = Sheets("Whatever").Cells(1, 1).Interior.Color

我可以从单元格中获取颜色格式。

我也可以写类似的东西吗

dim FullFormat as object (Or dim FullFormat as cellformat)

set FullFormat =  Sheets("Whatever").Cells(1, 1).formats

并在一个对象中获取单元格的所有格式？

或者可能

dim sourcecell as cell

set sourcecell = Sheets("Whatever").Cells(1, 1)

然后拥有sourcecell.formats我可以使用的财产？

提前致谢。

4

2 回答 2

3

有一种方法可以使用MSND 指南复制单元格的基本格式

虽然上述可能是 VBA 的解决方法，但没有直接复制单元格样式/格式的方法。

确实，该Style对象存储了样式，但不存在允许您使用该对象在单元格之间复制和应用格式的方法（至少我不知道有任何方法）。Style

有一个使用 VBA 的解决方法

一种方法是使用String参数来复制from和to即。

Private Sub CopyFormatting(fromRng As String, toRng As String)
Application.ScreenUpdating = False
    Dim tmpVal
    tmpVal = Range(toRng)
    Range(fromRng).Copy Range(toRng)
    Range(toRng) = tmpVal
Application.ScreenUpdating = True
End Sub

并称它为

Sub Main()
    CopyFormatting "A1", "A10"
End Sub

这将复制格式并保留值，这与许多仅复制和粘贴单元格的在线指南不同

更好的方法是传递对Range对象的引用，因为您可以在不同的工作表等之间使用它。

例子

Option Explicit

Sub Main()
    Dim rng1 As Range, rng2 As Range
    Set rng1 = Sheets(1).Range("B3")
    Set rng2 = Sheets(2).Range("A1")

    CopyFormatting rng1, rng2
End Sub

Private Sub CopyFormatting(fromRng As Range, toRng As Range)
Application.ScreenUpdating = False
    Dim tmpVal
    tmpVal = toRng
    fromRng.Copy toRng
    toRng = tmpVal
Application.ScreenUpdating = True
End Sub
于 2013-12-03T13:02:36.477 回答
1

捕获或封装单元格完整格式的 Object 是它的Style。

请参阅VBA 帮助。

于 2013-12-03T12:12:56.503 回答