[µo°Ý] µ{¦¡¤£·|°õ¦æ~"~

linsurvey2005

½Ð±Ð«e½ú§Ú¼gªº¤º®e¤j­n¦p¤U
»{ÃÒ±ø¥ó1:Sheets(1).Cells(1,1)="100"
»{ÃÒ±ø¥ó2:¿é¤J©m¦W ±K½X
»{ÃÒ§¹¦¨=°õ¦æ Else Ãö³¬
½m²ßÂê½XV0.4.1¤W¶Çxls.zip (11.95 KB)

¤U¸ü¦¸¼Æ: 3

2012-2-4 10:44

GBKEE

¦^´_ 1# linsurvey2005
§A¬¡­¶Ã¯ªº²Ä¤@­Ó¤u§@ªí¬OÁôÂä@4.0¥¨¶°ªí
Sub ¦Û°Ê»{ÃÒ()
     If Sheets(2).Cells(1, 1) = "100" Then     
     ' If Sheets("Sheet1").Cells(1, 1) = "100" Then
      Call ¨Ï¥Î»{ÃÒ
     Else
        ThisWorkbook.Saved = True
        Application.Quit
      End If
End Sub
§Aµ{¦¡ªº¦WºÙ »P ªí³æ¦WºÙ¤@¼Ë  ¹q¸£ ·|µoºÆªº
Sub ¨Ï¥Î»{ÃÒ()
    ¨Ï¥Î»{ÃÒ.Show
End Sub

linsurvey2005

¦^´_ 2# GBKEE


    ·PÁ«e½ú«ü¥¿"µ{¦¡¦W¸òªí³æ"¤@¼Ë,¹q¸£¯uªºµoºÆ¤F
       °ÝÃD¤w¸g¸Ñ¨M,¥i¬O¦Û¤vı±o«Ü©_©ÇSheets(1)§Ú¨S¦³ÁôÂÃ
       ¦Ó¥B¦b½s¿è¾¹¸Ì­±¬Ý¨ìªº¤]¬OSheet1(Sheet1)«ç»ò·|³o¼Ë
       ½Ð«e½ú«üÂI

linsurvey2005

§Ú§âA1ªº­È100§R°£«á«ç»ò¨S¦³Ãö³¬ÀÉ®×
©ü­Ë¤º ½Ð«e½ú«üÂI

GBKEE

¦^´_ 3# linsurvey2005
§Ú§âA1ªº­È100§R°£«á«ç»ò¨S¦³Ãö³¬ÀÉ®×   ¶Ç¤WÀɮ׬ݬÝ
¥´¶}©Ò¦³¤u§@ªí

1. Sub Ex()
   
2.     Dim e As Worksheet
   
3.     MsgBox Sheets.Count
   
4.     For Each e In Sheets
   
5.         e.Visible = True
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

linsurvey2005

¦^´_ 5# GBKEE


    ½m²ßÂê½XV0.4.2-§R.zip (13.87 KB)

¤U¸ü¦¸¼Æ: 3

2012-2-4 13:38

   

«e½ú¥i¥H¨Ï¥Î¤F
½m²ßÂê½XV0.4.3.zip (12.34 KB)

¤U¸ü¦¸¼Æ: 3

2012-2-4 13:54

§Ú§â¾ã­ÓÀɮקó·s¤§«á´N¥i¥H¤F
µ²ªG:½Ð«e½ú§âA1ªº­È§R°£©Î§ó§ï~¥i±oÃö³¬µ{¦¡

GBKEE

¦^´_ 6# linsurvey2005
¦]¬°Àɮ׶}±Ò«á  Àu¥ý°õ¦æ Workbook_Open «á,¦ýÁÙ¦³µ{¦¡Sheet1!Auto_Activate ­n°õ¦æ
©Ò¥H Application.Quit ´N¤£°_§@¥Î¤F

1. Private Sub Workbook_Open()
   
2. '''''''''''¥¿±`«á ³o¬q¨S§@¥Î¥i§R±¼
   
3.     Dim E As Name
   
4.     For Each E In Names
   
5.         MsgBox E.Name   '·|¦Û°Ê°õ¦æ4.0¥¨¶°
   
6.         E.Delete        '§R°£±¼
   
7.     Next
   
8. ''''''''''''''''''''''''''
   
9.      Call ¦Û°Ê»{ÃÒ
   
10. End Sub

½Æ»s¥N½X

linsurvey2005

¦^´_ 7# GBKEE
·PÁ«e½úªº¦A¤T«ü¾É
¨ü¯q¨}¦h
·Pı«e½ú¦n²Ó¤ß~^.^