将 Selection Interior ColorIndex 复制到不同工作表上的相同区域

Question

我正在尝试将突出显示的 select离子的颜色索引复制到不同的作品sheet。

我有 4 个不同的作品sheet，在 sheet 1 上，用户可以为单元格着色。然后我希望他能够 select 这些单元格的一个区域，并通过单击触发我的子“Mark_all”的按钮将颜色复制到所有其他 sheets（相同位置） .

我卡住了，因为“selection”似乎包含制作 selection 的作品sheet。

这是我尝试过的：

Dim CurCell As Range
Dim ColCurCell As Integer
Dim cWs As Worksheet

Sub Mark_all()
For Each CurCell In Selection
ColCurCell = CurCell.Interior.ColorIndex
    For Each cWs In Application.ActiveWorkbook.Worksheets
    If cWs.Name <> "A Worksheet I DonT want to be changed" Then
    CurCell.Interior.ColorIndex = ColCurCell  '<-- Here I dont know how to combine my CurCell with the other Worksheets
    End If
    Next
Next
End Sub

谢谢:-)

Answer 1

使用 .Address:

For Each cWs In Application.ActiveWorkbook.Worksheets
    If cWs.Name <> "A Worksheet I DonT want to be changed" Then
        cWs.Range(CurCell.Address).Interior.ColorIndex = ColCurCell
    End If
Next

将 Selection Interior ColorIndex 复制到不同工作表上的相同区域

Copy Selection Interior ColorIndex to same area on different Worksheet

excel

vba

selection