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

·Q½Ð±Ð-¦b³]©wªº¤é´Á¦Û°Ê°õ¦æ¥¨¶°

§c....
¨º­ÓRange¸Ì­±¬O¿ï¨úªºÀx¦s®æD°Õ,
¶K¨ìª©¤WÅܦ¨¯ºÁy¤F...¨þ¨þ...

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-10-19 06:53 ½s¿è

·PÁÂoobirdª©¤j¦^ÂÐ,¦ý¬OµLªk°õ¦æ
¥H¤U¬O§Ú´ú¸Õªº¥¨¶°:
Sub auto_open()
Application.OnTime "00:50:35", "marco1"
Application.OnTime "00:50:50", "marco2"
End Sub

Sub Macro1()

    Range("A1:D1").Select
    Selection.Copy
    Range("A2:D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub


Sub Macro2()

    Range("A1:D1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A3:D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

§Ú«ö°õ¦æauto_open ,µM«áµ¥®É¶¡¨ì
¥¦§i¶D§Ú"§ä¤£¨ì¥¨¶°"
§Ú³£©ñ¦b¦P¤@­ÓModule¸Ì­±,
¦ý¬O¥¦»¡§ä¤£¨ì,
§Ú¦pªGª½±µ«ö°õ¦æ¥¨¶°,¬O¥i¥H°õ¦æªº
½Ð°Ý¬°¤°»ò§ä¤£¨ì¥¨¶°©O?
¬O¤£¬Oº|¤F¤°»ò?
ÁÂÁÂ....

TOP

Sub auto_open()
Application.OnTime "9:05:12", "marco1"
Application.OnTime "9:08:32", "marco2"
.....................................
...............................
end sub
©ñ¦bmodule¤¤¡C

TOP

¤£¦n·N«ä,oobirdª©¤j,
½Ð°Ý³o¤@¥y­n©ñ¦b­þ¸Ì°Ú?
©ñ¦bmarco1«e­±,ÁÙ¬O©ñ¦bmarco1¸Ì­±?
­n«ç»ò¼Ë¤~·|¥´¶}¤u§@ªí«á´N¥i¥H¦Û°Ê°õ¦æ©O?
·PÁ§A....

TOP

Application.OnTime "9:05:12", "marco1"

TOP

·Q½Ð±Ð-¦b³]©wªº®É¶¡¦Û°Ê°õ¦æ¥¨¶°,VBA¸Ó¦p¦ó¼g?

§Ú»Ý­n¼g¤@­ÓVBA,
¤º®e«Ü²³æ,
´N¹³¤U­±³o¼Ë:

¦­¤W09:05:12
marco1

¦­¤W09:08:32
marco2

¦­¤W10:35:26
marco3
.
.
.
.
.
.
.
.
§Ú¥¨¶°«Ü¦h,¤£¦C¥X¤F
¥¨¶°§Ú·|¦Û¤v¿ý
¦ý¬O§Ú¼g¤£¥X"®É¶¡"ªº»yªk,
´N¬O¹q¸£¨t²Î®É¶¡¨ì¤F,·|¦Û°Ê°õ¦æ¥¨¶°³o¼Ë¤l,
ºô¸ô¤W¦³«Ü¦h¥ÎTimer³]©wªº¤è¦¡,
Á¿¯uªº,§Ú¹ê¦b¬Ý¤£À´¦p¦ó³]©wTimer,
¦n¹³­n¥hºâ´X¬íÄÁ¬O§a?µM«á·|¦Û°Ê¸õ¨ì¤U¤@¦C,
¦ý¬O¦]¬°§Ú®É¶¡¤£©T©w,
§Ú·Q­nÀH®É¥h§ïVBA¸Ìªº®É¶¡,
½Ð±Ð¦U¦ì¹F¤H,
³o¸Ó¦p¦ó¼g?
ÁÂÁÂ....

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD