vba - 代码不会转到下一张表，只更改事件表

Question

我目前正在编写一个简单的宏(见下文)。我打算让宏更改我工作簿中的所有工作表。但是，它只会更改我所在的事件工作表中的单元格，我必须手动移动到下一个工作表并运行宏来更改当前的单元格，但这很乏味，尤其是当我有大约 125 个工作表要更新时。

Sub worksheetloop()

Dim sh As Worksheet

With ThisWorkbook    
    For Each sh In ActiveWorkbook.Worksheets    
        Range("$F$5") = "toothwidth" ' Key contact
        Range("$F$8") = "x,y,z" ' Core team
        Range("$J$5") = "bleh" 'date
        Range("$L$5") = "9/12/" 'Updated
        Range("$M$5") = "A" ' Revision Date                              
    Next sh    
End With

End Sub

Answer 1

您需要限定 Range您与 sh 一起使用For Each sh In ActiveWorkbook.Worksheets 中的工作表对象环形。

试试下面的代码:

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
    With sh
        .Range("$F$5") = "toothwidth" ' Key contact
        .Range("$F$8") = "x,y,z" ' Core team
        .Range("$J$5") = "bleh" 'date
        .Range("$L$5") = "9/12/" 'Updated
        .Range("$M$5") = "A" ' Revision Date\
    End With
Next sh