有关EXCEL中的宏如何自动执行
您的代码未改动，只是放在SHEET1下，您可以通过按ALT+F11查看，
但我提出一点意见：
Worksheets("Sheet1")。Cells(5, 3) 是确定的位置，
Worksheets(1)及Worksheets(3)的表示方法工作表则是不确定的，只表示第1张表，第3张表，若您的工作表前后秩序发生变化，这个命令只认可1,3两张表，不清楚您出于哪一种目的？
Worksheets("Sheet1")只认可表名为Sheet1的这张表，而不论该表处在第几个位置上。
Worksheets(1)只认可工作簿上第一张表，而不论表名是什么。
所以您应根据需要选用不同的代码，像本例，在未变...全部
您的代码未改动，只是放在SHEET1下，您可以通过按ALT+F11查看，
但我提出一点意见：
Worksheets("Sheet1")。Cells(5, 3) 是确定的位置，
Worksheets(1)及Worksheets(3)的表示方法工作表则是不确定的，只表示第1张表，第3张表，若您的工作表前后秩序发生变化，这个命令只认可1,3两张表，不清楚您出于哪一种目的？
Worksheets("Sheet1")只认可表名为Sheet1的这张表，而不论该表处在第几个位置上。
Worksheets(1)只认可工作簿上第一张表，而不论表名是什么。
所以您应根据需要选用不同的代码，像本例，在未变动位置前，Worksheets("Sheet1")与Worksheets(1)是同一张表，若一移动，则不同了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("Sheet1")。Cells(5, 3)。
Value = "1" Then
Worksheets(3)。Activate
Else
Worksheets(1)。Activate
End If
End Sub。收起
