根据其他单元格的颜色和值填充单元格的颜色和值

Question

让我们考虑A行和B行。

我希望单元格B1的颜色（样式）与A1具有相同的颜色（样式）。我相信这样做很简单。

该怎么做？

Answer 1

当您实际更改给定单元格的值时，此代码将起作用：

Private Sub Worksheet_Change(ByVal Target As Range)
    
    'Declaring variables.
    Dim RngSource As Range
    Dim RngDestination As Range
    
    'Setting variables.
    Set RngSource = Range("A1")
    Set RngDestination = Range("B1")
    
    'Checking if RngSource is within Target.
    If Not Application.Intersect(RngSource, Target) Is Nothing Then
        'Coping-pasting RngSource into RngDestination.
        RngSource.Copy RngDestination
    End If
    
End Sub

将其放置在工作表模块中。请注意，它将复制格式，但是当您更改源格式时，它将不会被激活。更改单元格的格式时，不会生成任何工作表的事件。我知道没有办法检测到它。