将 Selection Interior ColorIndex 复制到不同工作表上的相同区域
Copy Selection Interior ColorIndex to same area on different Worksheet
我正在尝试将突出显示的 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
谢谢:-)
使用 .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
我正在尝试将突出显示的 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
谢谢:-)
使用 .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