jackson7015

¦^´_ 2# Hsieh

­Éª©­±

½Ð°ÝHsiehª©¥D
­Y¬O¨ú®øÁôÂæh¤u§@ªí¡A¸Ó¦p¦ó½s¼g?

jackson7015

¦^´_ 5# GBKEE
·PÁÂGBKEEª©¥D¦^À³

·Q½Ð±Ð¡A¥H¤U¤½¦¡¬°¦óSheets(AR).Visible = 0·|¿ù»~

1. Option Explicit
   
2. Sub Åã¥ÜÁôÂäë³øªí¦U¶µ¥Ø()
   
3. '
   
4. ' ÁôÂäë³øªí¦U¶µ¥Ø ¥¨¶°
   
5. If MsgBox("Åã¥ÜÁôÂäë³øªí¦U¶µ¥Ø¡H", vbYesNo) = vbYes Then
   
6.     Dim AR(), E As Variant
   
7.     AR = Array("¶µ¥Ø1", "¶µ¥Ø2", "¶µ¥Ø3", "¶µ¥Ø4", "¶µ¥Ø5", "¶µ¥Ø6", "¶µ¥Ø7", "¶µ¥Ø8", "¶µ¥Ø9", "¶µ¥Ø10", "¶µ¥Ø11")
   
8.     Sheets(AR).Visible = 0
   
9.    
   
10.     For Each E In AR
    
11.         Sheets(E).Visible = 1  '¨ú®øÁôÂæh¤u§@ªí
    
12.     Next
    
13.         End If
    
14. End Sub

½Æ»s¥N½X

jackson7015

¦^´_ 7# Hsieh

·PÁÂHsiehª©¥Dªº¦^À³

§ä¤£¥X¿ù»~­ì¦]¡A¥u¦nª½±µ¨Ï¥Î¿ý»sªº­×§ï

1. Sub Åã¥ÜÁôÂäë³øªí¦U¶µ¥Ø()
   
2. ' Åã¥ÜÁôÂäë³øªí¦U¶µ¥Ø ¥¨¶°
   
3. If MsgBox("Åã¥Ü¤ë³øªí¦U¶µ¥Ø¡H", vbYesNo) = vbYes Then
   
4.     Sheets("¶µ¥Ø1").Visible = True
   
5.     Sheets("¶µ¥Ø2").Visible = True
   
6.     Sheets("¶µ¥Ø3").Visible = True
   
7.     Sheets("¶µ¥Ø4").Visible = True
   
8.     Sheets("¶µ¥Ø5").Visible = True
   
9.     Sheets("¶µ¥Ø6").Visible = True
   
10.     Sheets("¶µ¥Ø7").Visible = True
    
11.     Sheets("¶µ¥Ø8").Visible = True
    
12.     Sheets("¶µ¥Ø9").Visible = True
    
13.     Sheets("¶µ¥Ø10").Visible = True
    
14.     Sheets("¶µ¥Ø11").Visible = True
    
15. End If
    
16. If MsgBox("ÁôÂäë³øªí¦U¶µ¥Ø¡H", vbYesNo) = vbYes Then
    
17.     Sheets(Array("¶µ¥Ø1", "¶µ¥Ø2", "¶µ¥Ø3", "¶µ¥Ø4", "¶µ¥Ø5", "¶µ¥Ø6", "¶µ¥Ø7", "¶µ¥Ø8", "¶µ¥Ø9", "¶µ¥Ø10", _
    
18.         "¶µ¥Ø11")).Select
    
19.     Sheets("¶µ¥Ø1").Activate
    
20.     ActiveWindow.SelectedSheets.Visible = False
    
21. End If
    
22. End Sub

½Æ»s¥N½X