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

hueywen_jia

½Ð±Ð°ª¤â,§Ú¦bEXCEL³]¤F¤@­Ó¥¨¶°,¦ý§Ú§Æ±æ¦b¤@­Ó¤ë«á³o­Ó¥¨¶°´NµLªk¨Ï¥Î,­n«ç»ò°µ? ÁÂÁÂ

hueywen_jia

¦U¦ì°ª¤â,½Ð°ÝEXCEL¬O§_¥i¥H³]©w·í¬Y­Ó¤é´Á¨ì®É,¬Y­ÓÀɮ׫hµLªk¶}±Ò©O? ÁÂÁÂ

rouber590324

¦p¤U  ·Ðcopy·sexcel ¸Õ¸Õ (­ìexcel«O¯d³Æ¥Î)  

Private Sub Workbook_Open()
   Application.DisplayAlerts = False
   If Date > "02/23/2015" Then
   ThisWorkbook.Close False
   End If
End Sub

rouber590324

¦p¤U   ¸Õ¸Õ

Private Sub Workbook_Open()
   Application.DisplayAlerts = False
   If Date < "02/23/2015" Then
   
   ¥¨¶°
   
   End If
End Sub

hueywen_jia

¦^´_ 4# rouber590324


·PÁÂrouber590324¦^´_,´ú¸Õ«á¥i!! ÁÂÁÂ~~

hueywen_jia

¦^´_ 5# hueywen_jia

§ó¥¿~~§ó¥¿~~~¤£¯à§R¤å¤]µLªk­×§ï¤F,sorry~

¸g¹L´ú¸Õ¬O¤£¯à¨Ï¥Îªº,·|¥X²{¦³END IF ,«o¨S¦³IF

¤U¸ü (53.43 KB)
¥X²{¦¹¹ï¸Ü®Ø

2015-3-2 22:24

rouber590324

·Ð±N  SUB  MACROL() §R°£°Õ

hueywen_jia

¦^´_ 6# hueywen_jia


    GBAEE  sorry¦]¬°§Ú¬Ý¤£À´,¦]¬°¤£·|»yªk

hueywen_jia

·Ð±N  SUB  MACROL() §R°£°Õ
rouber590324 µoªí©ó 2015-3-3 10:47

rouber590324¡G


Private Sub Workbook_Open()
   Application.DisplayAlerts = False
   If Date < "02/23/2015" Then
   
'
' Macro1 Macro
' user ¦b 2015/2/24 ¿ý»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


    §R¤FSUB  MACROL() Åܦ¨§ä¤£¨ì¥¨¶°¤F

GBKEE

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

1. Option Explicit
   
2. Sub Ex()
   
3.    MsgBox "Date = " & Date
   
4.    MsgBox Date > "04/23/2015"
   
5.    MsgBox Date > #4/23/2015#
   
6.    MsgBox Date > DateValue("04/23/2015")
   
7.    
   
8.    MsgBox Date < "04/23/2015"
   
9.    MsgBox Date < #4/23/2015#
   
10.    MsgBox Date < DateValue("04/23/2015")
    
11. End Sub

½Æ»s¥N½X

¦^´_ 9# hueywen_jia

ªþÀɬݬÝ