hueywen_jia

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

hueywen_jia

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

ªþÀÉ
¤U¸ü¦¸¼Æ: 7

2015-3-15 23:58

GBKEE

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

¤U¸ü (67.56 KB)

2015-3-16 05:54

²Ä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¹Ï

¤U¸ü (86.71 KB)

2015-3-16 05:55

hueywen_jia

¤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¥¨¶°¬¡­¶Ã¯,ÁÂÁÂ

¤U¸ü (112.72 KB)

2015-3-28 23:12

[attach]20536[/attach]

GBKEE

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

¤U¸ü (56.87 KB)

2015-3-29 06:35

hueywen_jia

¤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~

hueywen_jia

¯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

¤U¸ü (88.52 KB)
¹Ï

2015-4-1 01:37

stillfish00

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

¥uÂI¤@¤U¬O¤£·|¶i¨ì©Ò¿ïªºµ{¦¡½X­¶­±

hueywen_jia

­ì¨Ó¬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]

GBKEE

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