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

[µo°Ý] EXCEL³]©w¬Y¤é´Á¨ìÀÉ®×µLªk¶}±Ò

¦^´_  rouber590324
Date > "02/23/2015" ¬O¿ù»~ªº»yªk¦^´_  hueywen_jia

ªþÀɬݬÝ
GBKEE µoªí©ó 2015-3-12 06:01




    §ó¥¿¤@¤U,§Ú¦³§ï¦¨04/23/2015,¦ý´N§ä¤£¨ì,§ÚªþÀɽШD°ª¤âÀ°§Ú,ÁÂÁÂ

[attach]20427[/attach]
¤p«B

TOP

¦^´_ 11# hueywen_jia

µLªk¤W¶ÇÀÉ®×,¬O¦]¬°§Úªºµ¥¯Å¤Ó§C¶Ü? À£ÁY«áµLªk¤W¶Ç,³o¦¸¥i¤F~½Ð¨£ªþÀɬ°§Ú¸Ñµª,ÁÂÁÂ


Private Sub Workbook_Open()
   Application.DisplayAlerts = False
   If Date < "04/23/2015" Then
   
'
' Macro1 Macro
' user ¦b 2015/3/25 ¿ý»sªº¥¨¶°
'
' §Ö³tÁä: Ctrl+Shift+J
'
    ActiveCell.FormulaR1C1 = "1"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "6"
    Range("B4").Select


   
   End If
End Sub

´ú¸Õ.rar (6.06 KB)
¤p«B

TOP

¦^´_ 12# hueywen_jia
Private Sub Workbook_Open()
µ{§Ç±N Private (¨p¥Î)§R±¼
¦p¹Ï­«·s«ü©w¥¨¶°


²Ä10©«¦³´£¨ì Date > "02/23/2015" ¬O¿ù»~ªº»yªk
  1. Private Sub Workbook_Open()
  2.     Stop   '«öF8³v¦æ°õ¦æµ{¦¡½X
  3.     If Date > "01/01/2016" Then
  4.     ActiveCell.FormulaR1C1 = "1"
  5.     Range("A2").Select
  6.     ActiveCell.FormulaR1C1 = "2"
  7.     Range("A3").Select
  8.     ActiveCell.FormulaR1C1 = "3"
  9.     Range("B1").Select
  10.     ActiveCell.FormulaR1C1 = "4"
  11.     Range("B2").Select
  12.     ActiveCell.FormulaR1C1 = "5"
  13.     Range("B3").Select
  14.     ActiveCell.FormulaR1C1 = "6"
  15.     Range("B4").Select
  16.    End If
  17. End Sub
½Æ»s¥N½X
Private Sub Workbook_Open() ¬OThisWorkbook¼Ò²Õªº¹w³]¨Æ¥óµ{§Ç
©óExcelÀɮ׶}±Ò®É¦Û°Ê°õ¦æªºµ{§Ç
¦p¹Ï
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¤j¤j±z¦n,

¥i¬O§ÚÂI¤F¥ª¤èªºThis Workbook,¦AÂI¥k¤èªº®É­Ô¥u¦³¥X²{"¤@¯ë",¨S¦³Open¥i¥H¿ï§r.........ÁÙ¬O¥i¥HÀ°§Ú¥ÎÀÉ®×°µ­×§ï«á¦A¤W¶Çµ¹§Ú©O? §Ú­n¨Ï¥Î¦bÀɮפ¤(²{¥Î¬¡­¶Ã¯),¦Ó«D­Ó¤H¥¨¶°¬¡­¶Ã¯,ÁÂÁÂ


[attach]20536[/attach]
¤p«B

TOP

¦^´_ 14# hueywen_jia
¨S¥Î¤ß¾Ç²ß,¥¦¦³¨â­Ó¿ï¶µ,§AªºªþÀÉ¥¢±Ñ.

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¤j¤j~~­ÞªP°Ú~~~¤£¬O§Ú¨S¦³¥Î¤ß¾Ç²ß,¬O§Úªº¨º­Ó¤U©Ô¥u¦³¤@­Ó "¤@¯ë"  ¨S¦³¤U­±¨º­Ó!!  
¥t¥~§Ú·Q»¡ªþÀÉ´N¥Î¤§«eªþ¤Wªº¨º­Ó°µ­×§ï«á¦A¤W¶Çµ¹§Ú´N¦n¤F~©Ò¥H¤~¨S¦A¤W¶ÇªþÀÉ~~SORRY~
¤p«B

TOP

¯u¬O°Q¹½....¶W¹L¤T¤ÀÄÁ´N¤£µ¹­×§ï........
¸É»¡©ú¤@¤U

·í§ÚÂI¿ï¥ª¤W¤èªºThis Workbook(¹Ï¬õ¦â®Ø),¦AÂI¥k¤W¤èªº¿ï³æ®É,¥u¥X²{"¤@¯ë",¨Ã¨S¦³"Workbook",¦Ó¥BÂI¥k¤è¿ï³æ®É,§Úµo²{§Úªº¥ª¤è¨º­Ó¿ï³æ´N¸õ¨ìSheet1(¹Ïºñ¦â®Ø),¤£¬O§Ú¨S¦³¿ï³á!! §Ú­n¯S§O»¡©ú¤@¤U

¤p«B

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-4-1 10:14 ½s¿è

¦^´_ 17# hueywen_jia
¥ªÃ䪺ThisWorkBook­n¥ýÂI¨â¤U
¤U©Ô¿ï³æ¨ºÃä´N·|¦³¤F

¥uÂI¤@¤U¬O¤£·|¶i¨ì©Ò¿ïªºµ{¦¡½X­¶­±
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2015-5-17 23:00 ½s¿è

­ì¨Ó¬OÂI¨â¤U,ÁöµM¥X²{¤F,¥i¬O§Ú½Æ»s¤F¤§«e¤j¤jµ¹ªº¦r¦ê¶K¶i¥h«áÁÙ¬OµLªk°õ¦æ,¸õ¨ìF8¨ºÄæ¬O¿ù»~ªº»yªk,SORRY~§Ú²Â©å~¤£·|¥Î³oºØ
½Ð°ª¤âÀ°§Ú,§Ú·QÅýªþÀɤ¤ªº©Ò¦³¥¨¶°¦b¬Y­Ó®É¶¡¤@¨ì´NµLªk¨Ï¥Î,³Ì¦n¬OÀɮ׳£µLªk¶}±Ò¬O³Ì¦nªº!! ¥i¥H§i¶D§Ú«ç»ò°µ¶Ü? ©Î¬OÀ°§Ú­×§ïÀɮ׫á¦A¦^¶Çµ¹§Ú©O? ¦]¬°Àɮצ³ÂI¤j,»Ý­n¥Î¨ì«Ü¦h¬¡­¶Ã¯¤Î¤½¦¡,ÁÂÁÂ
   [attach]20590[/attach]
¤p«B

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-4-7 15:45 ½s¿è

¦^´_ 19# hueywen_jia

ªþÀɤ¤ªº©Ò¦³¥¨¶°¦b¬Y­Ó®É¶¡¤@¨ì´NµLªk¨Ï¥Î,³Ì¦n¬OÀɮ׳£µLªk¶}±Ò¬O³Ì¦nªº

ThisWorkbook¼Ò²Õªºµ{¦¡½X
  1. Private Sub Workbook_Open() '¬¡­¶Ã¯ªº¹w³]¨Æ¥óµ{§Ç(¶}±ÒÀɮ׮ɦ۰ʰõ¦æ)
  2.     Dim MyDate As Date
  3.     MyDate = #6/1/2015#  '§A­n¦p¦ó«ü©w¤é´Á
  4.     If Date >= MyDate Then Application.Quit
  5.     'Application.Quit Ãö³¬Excel
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD