GBKEE

¦^´_ 1# ÂŤÑÄR¦À

1. Option Explicit
   
2. Option Base 1       '¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­
   
3. Dim Ar As Variant   '³o¼Ò²Õªºµ·¥Î«KÅܼÆ
   
4. Sub Ex() '¤U¤@¬íªºµ{¦¡½X
   
5.     With Sheets(1)  '«ü©wªº¤u§@ªí
   
6.         If Not IsEmpty(Ar) Then
   
7.             If Ar(1) <> .[A1] Then .[A2] = .[A1] - Ar(1)
   
8.             If Ar(2) <> .[b1] Then .[b2] = .[b1] - Ar(2)
   
9.         End If
   
10.         Ar = Array(.[A1].Value, .[b1].Value)
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# ÂŤÑÄR¦À
µ{¦¡½X¤w§ó·s.
¥Ñ©ó²´·úªø®É¶¡ªº¨n¬Ý¿Ã¹õ,«æ»Ý¥ð¾i,©Ò¥H³o­Ó¤ë¨C¤Ñ¶}¾÷ªº®É¶¡,¶È¬O¬Ýmail,
°¸º¸ÁÙ¬O·|¦b½×¾Â¬Ý¬Ý.

GBKEE

¦^´_ 11# ÂŤÑÄR¦À
¸Õ¸Õ¬Ý

1. Sub ®É¶¡()
   
2.     '±NB2:C101ªº­È¨C¬í¤@ª½­«·s½Æ»s¨ìD2:E101
   
3.     With Sheets("rtd")
   
4.         .[D2:E101].Value = .[B2:C101].Value
   
5.     End With
   
6.     '±q9:00°õ¦æ¨ì13:30¤À
   
7.     If Time > #1:30:00 PM# Then Exit Sub '®É¶¡¤j©ó>1:30 Â÷¶}µ{¦¡
   
8.     Application.OnTime Time + TimeValue("00:00¡G01"), "®É¶¡"
   
9. End Sub
   
10. Sub AUTO_OPEN() '¤@¯ë¼Ò²Õ ©óÀɮ׶}±Ò®É¦Û°Ê°õ¦æªºµ{¦¡
    
11.     If Time <= #9:00:00 AM# Then   '9:00 ¤§«e
    
12.         Application.OnTime TimeValue("09:00"), "®É¶¡"
    
13.     ElseIf Time >= #9:00:00 AM# And Time <= #1:30:00 PM# Then '9:00 ~13:30 ¶¡
    
14.         ®É¶¡   '
    
15.     End If
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# ÂŤÑÄR¦À
§A­nªº¤£¬O B2:C101ªº­È¨C¬í¤@ª½­«·s½Æ»s¨ìD2:E101

1. Sub RecordPrice()
   
2.     With Sheets("rtd")
   
3.         .[D2:E101].Value = .[B2:C101].Value
   
4.     End With
   
5. End Sub

½Æ»s¥N½X