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

[µo°Ý] ½Ð±Ð»s§@¤Wªº¥i¯à©Ê

[µo°Ý] ½Ð±Ð»s§@¤Wªº¥i¯à©Ê

ddeÁä±µ©ñ¦bB1Àx¦s®æ¤º¡A«ö°Ê«ö¶s«á¦P®É°µ¨ì¥H¤U°Ê§@¡G

(1) B1¤ºddeÁä±µ¸õ¨ìD1Ä~Äò¹B§@¦ÓB1«O¯d«e¼Æ­È¡C(ddeÁä±µ¥ÑB1¸õ¨ìD1¡A¦A¥ÑD1¸õ¨ìF1>H1)

(2) ¥Ñ«ö°Ê«ö¶s¶}©l±Ò°Ê©w®É°õ¦æ¼Ò²Õ¿ï¾Ü¦h­Ó¦Û­q®É¬q­«½Æ(1)°Ê§@¡C

ÁÂÁÂ

B1¤ºddeÁä±µ¸õ¨ìD1Ä~Äò¹B§@¦ÓB1«O¯d«e¼Æ­È
Range("D1").Formula=Range("B1").Formula  'B1¤ºddeÁä±µ¸õ¨ìD1Ä~Äò¹B§@
Range("B1").Value=Range("B1").Value  'B1«O¯d«e¼Æ­È

¨ä¥Lªº°ÝÃD¬Ý¤£À´
«Øij±z¤W¶ÇÀÉ®×,¨Ã±N°ÝÃD»¡²M·¡

TOP

¦^´_ 2# kobo


    auto copy.rar (14.63 KB)
   
    «ö°Ê«ö¶s§âHÄ椺®e½Æ»s¨ìBÄæ¡A¦P®É±Ò°Ê©w®É°õ¦æ¼Ò²Õ©ó15¤ÀÄÁ§âHÄ椺®e½Æ»s¨ìDÄæ¡A¦A¹L10¤ÀÄÁ§âHÄ椺®e½Æ»s¨ìFÄæ¡CÁÂÁÂ

TOP

¹ï¤£°_¤j®a¡I§Úªº¤å¥óÁÙ¨S§¹¦¨ªº¡A§Ú¯uªº¤£À´«ç¼Ë§âvb³s¦b¤@°_¨Ï¥Î¡C

TOP

¦^´_ 4# ²Â¤p«Ä


    auto copy.rar (14.82 KB)

²Â²Â»s§@¤S¥¢±Ñ¤F...

auto copy.rar (14.82 KB)

auto copy.rar (14.82 KB)

auto copy.rar (14.82 KB)

auto copy.rar (14.82 KB)

TOP

«Ü©êºp,¥Ñ©óÅv­­¤£°÷µLªk¤U¸üÀɮרӸѵª

±Ò°Ê©w®É°õ¦æ¼Ò²Õ¥i¥Î OnTime ªº¤èªk¨Ó¸Ñ¨M
°Q½×ª©¤W¦³,±z¥i¥H·j·j¬Ý
------------------------
¥H¤U¬Ovba»¡©úÀɪº½d¨Ò
¥»½d¨Ò³]©w 15 ¬í«á°õ¦æ my_Procedure µ{§Ç¡A±q²{¦b¶}©l­p®É¡C
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
               
¥»½d¨Ò³]©w my_Procedure ¦b¤U¤È 5 ÂI¶}©l°õ¦æ¡C
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
               
¥»½d¨Ò¨ú®ø«e¤@­Ó½d¨Ò¹ï OnTime ªº³]©w¡C
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
    Procedure:="my_Procedure", Schedule:=False

TOP

¦^´_ 6# kobo

§Ú¤]Åý¨S¦³Åv­­¤U¸üªº¦P¾Çªù¬Ý¬Ý²Â²Â¥¢±Ñ»s§@§a¡I§Ú¬Oª¾¹D¥u«ö¤@¦¸«ö¶s¡A´N¥i¥H§¹¦¨¾ã­Ó¹Lµ{ªº¡C

    Sub «ö¶s0_Click()
  
Application.OnTime Now + TimeValue("00:00:05"), "«ö¶s1_Click()"

Application.Calculation = xlCalculationManual

    For i = 2 To 11
   
        Cells(i, "B").Value = Cells(i, "H").Value
   
    Next i

Application.Calculation = xlCalculationAutomatic

End Sub

Sub «ö¶s1_Click()

Application.OnTime Now + TimeValue("00:00:05"), "«ö¶s2_Click()"

Application.Calculation = xlCalculationManual
   
    For i = 2 To 11
   
        Cells(i, "D").Value = Cells(i, "H").Value
   
    Next i
      
Application.Calculation = xlCalculationAutomatic

End Sub

Sub «ö¶s2_Click()

Application.Calculation = xlCalculationManual
   
    For i = 2 To 11
   
        Cells(i, "F").Value = Cells(i, "H").Value
   
    Next i
      
Application.Calculation = xlCalculationAutomatic

End Sub

TOP

¥»©«³Ì«á¥Ñ kobo ©ó 2012-1-3 14:45 ½s¿è

±N
Application.OnTime Now + TimeValue("00:00:05"), "«ö¶s1_Click()"
§ï¦¨
Application.OnTime Now + TimeValue("00:00:05"), "«ö¶s1_Click"
§â()§R°£
¥t¤@¬q¤]¬O

TOP

¦^´_ 8# kobo


    ÁÂÁÂkobo´£ÂI¡A¦¨¥\¤F¡C

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD