ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð±Ð«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)
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

¦^´_ 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

TOP

¦^´_ 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
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

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

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ linsurvey2005 ©ó 2012-2-4 13:57 ½s¿è

¦^´_ 5# GBKEE


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

«e½ú¥i¥H¨Ï¥Î¤F
½m²ßÂê½XV0.4.3.zip (12.34 KB)
§Ú§â¾ã­ÓÀɮקó·s¤§«á´N¥i¥H¤F
µ²ªG:½Ð«e½ú§âA1ªº­È§R°£©Î§ó§ï~¥i±oÃö³¬µ{¦¡
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¦^´_ 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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD