å¨è¯¥è¡¨åä¸é¢ç¨åºå®ç°ï¼
Private Sub Worksheet_Activate()
Sheet2.Visible = xlSheetHidden
Sheet3.Visible = xlSheetHidden
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Target <> "" Then
bm = Target.Value
Sheets(bm).Visible = -1
Sheets(bm).Select
End If
End If
End Sub
1ãå¨Sheet1ç表ï¼Aåæ表çå称ï¼Sheet2ãSheet3(è¿ä¸¤è¡¨ç®å为éèï¼
2ãå¨Sheet1æä¸é¢çç¨åºåï¼ç¹éA1åå
ï¼å°±æå¼äºå¯¹åºå称çè¡¨æ ¼ï¼
3ãéåSheet1ï¼åèªå¨éèSheet2: