VBA 中的作用域是否被破坏

作用域的概念和重要性

vba
Sub TestScope()
    Dim x As Integer ' 局部作用域
    x = 10
    MsgBox "局部作用域中的 x 值为：" & x
    
    Call AnotherProcedure ' 调用另一个过程
    
    MsgBox "局部作用域中的 x 值为：" & x ' 期望输出 10，但实际输出为 20
End Sub
Sub AnotherProcedure()
    Dim x As Integer ' 另一个局部作用域
    x = 20
End Sub

vba
Sub TestScope()
    Dim ws As Worksheet ' 局部作用域
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    MsgBox "局部作用域中的工作表名称为：" & ws.Name
    
    Call AnotherProcedure ' 调用另一个过程
    
    MsgBox "局部作用域中的工作表名称为：" & ws.Name ' 期望输出 "Sheet1"，但实际输出为 "Sheet2"
End Sub
Sub AnotherProcedure()
    Dim ws As Worksheet ' 另一个局部作用域
    Set ws = ThisWorkbook.Worksheets("Sheet2")
End Sub