excel vba实例

excel vba实例

sheet1建以下代码，使sheet1活动时其余表不可见。

Private Sub Worksheet_Activate()

For i = 2 To Sheets.Count

Sheets(i).Visible = 0

Next

End Sub

单元格连接不能实现你另外的要求。可用一些按钮打开其他sheet 。例：

Private Sub CommandButton1_Click()

Sheets(2).Visible = 1

Sheets(2).Select

End Sub

。

excel VBA 的宏录制功能强大，操作一遍，录制宏，分析代码，注释，拷贝备用。

不知对你有否帮助。

Private Sub Worksheet_Activate()

Dim shN As Worksheet

For Each shN In Sheets

If shN.Name <> "Sheet1" Then

shN.Visible = False

End If

Next shN

End Sub