Question

我有20多个具有相同结构的图纸，我试图在第一张图纸上进行总结。我面临的问题是，在使用vba方面我是一个完整的菜鸟。

下面的代码是我认为的第一步，来自blad5中A2:A31的所有单元格应将背景色保留为blad1 E2:E31，如果我更改blad5中的颜色，它将显示blad1上的颜色（Blad5 A2:A31中的所有单元格都具有绿色背景颜色）

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Worksheets(Blad2).Range("A2:A31").Interior.Color = Worksheets(Blad1).Range("E2:E31").Interior.Color
 End Sub

我的目的是在所有工作表（blad2-blad27）到我的摘要工作表blad1上使用do循环。

对于在正确的方向上如何为工作表执行循环功能（减去blad1 / sheet1）以及如何正确编写interior.color宏，我们将不胜感激。

诚挚的问候，弗雷德里克

Answer 1

要在图纸上循环，可以使用以下内容：

For i = 2 To 27

Worksheets("Blad" & i).Range("A2:A31").Interior.Color=Worksheets(Blad1).Range("E2:E31").Interior.Color

Next i

保留不同纸张的颜色

1 个答案: