hugh0620

¦^´_ 1# c_c_lai

   ¤U¹Ï¬O§A·Q­nªºµ²ªG~
   ³]¨â­Óªí³æ«ö¶s
    [«ö¶s 1]=>open
     [«ö¶s 2]=>close
    ³]¨â­Óµ{¦¡½X¦bsheet1¤¤

1.     Sub ex1()  'Close=false Open=True
   
2. [«ö¶s 1].Visible = True
   
3. [«ö¶s 2].Visible = False
   
4. End Sub
   
5. Sub ex2()  'Open=false Close=True
   
6. [«ö¶s 2].Visible = True
   
7. [«ö¶s 1].Visible = False
   
8. End Sub

½Æ»s¥N½X

³]¤@­Óµ{¦¡½X¦bthisworkbook¤¤

1. Private Sub Workbook_Open()
   
2. 
   
3. [«ö¶s 1].Visible = False
   
4. 
   
5. End Sub

½Æ»s¥N½X

[«ö¶s 2]«ü©w¥¨¶°Sheet1.ex1
     [«ö¶s 1]«ü©w¥¨¶°Sheet1.ex2      
ªí³æ«ö¶sªº³]©w.rar (6.79 KB)

¤U¸ü¦¸¼Æ: 4

2012-3-22 13:33

¤U¸ü (207.27 KB)

2012-3-22 13:29