GBKEE

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

¤U¸ü (56.87 KB)

2015-3-29 06:35

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

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

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

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]

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

ªþÀɬݬÝ

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

hueywen_jia

¦^´_ 6# hueywen_jia


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

rouber590324

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

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