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

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

½Ð±ÐEXCEL VBA ¬Y¤é´Á¨ì­­¨î¬Y¥¨¶°ªº¨Ï¥Î

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

TOP

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

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

¦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
ù

TOP

¦p¤U   ¸Õ¸Õ

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

TOP

¦^´_ 4# rouber590324


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

TOP

¦^´_ 5# hueywen_jia

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

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

1

µû¤À¤H¼Æ

    • GBKEE: ¿ù»~°T®§¤£¬O¦³»¡©ú,¬°¦ó¤£¥ý¬Ý»¡©úª÷¿ú -2
¤p«B

TOP

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

TOP

¦^´_ 6# hueywen_jia


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

TOP

·Ð±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

2015-03-12_000951.jpg (9.98 KB)

2015-03-12_000951.jpg

¤p«B

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-3-12 06:02 ½s¿è

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

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

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD