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

½Ð°Ý°j°é°ÝÃD

½Ð°Ý°j°é°ÝÃD

¥»©«³Ì«á¥Ñ gglan9 ©ó 2011-8-14 04:55 ½s¿è

Sub °j°é()
'
' °j°é  Macro         
                                    
     For Each k In Sheets("sheelt1").Range("a:a")          '°j°é­n³sÄò³B²z³B²zsheelt1 AÄ檺Àx¦s®æ
     
           Range("D1").Select =k .Value              
                 
                              Application.Run Macro:= "A"  '¨Ï¥Î­ì¥»sheelt1¸Ìªº¼Ò²ÕA
               Next
End Sub
½Ð°Ý§Úµ{¦¡½X¸Ìªº¿ù»~­n¦p¦ó¤~¯àÅýD1ªº­È¥h­«½ÆŪ¨úAÄ檺­È©¹¤U  
¨Ò¦p: A1¨ìA1000

Sub yy()
For Each c In [a:a].SpecialCells(2)
[d1] = c
Next
End Sub

TOP

ÁÂÁÂoobird  
¦ý§Ú²{¦bÁÙ¦³¤@­Ó°ÝÃD A¼Ò²ÕÁÙ¬OµLªk°õ¦æ
½Ð°Ý¦p¦ó°õ¦æA¼Ò²Õ

TOP

¦^´_ 3# gglan9
Application.Run Macro:= "sheelt1.A"   ¨Ï¥Î­ì¥»sheelt1¸Ìªº¥¨¶°¦WºÙA
Application.Run Macro:= "A"    ¤@¯ë¼Ò²Õªº¥¨¶°¦WºÙA

TOP

ÁÂÁ¨â¦ì¤j¤jªº¦^ÂÐ
¦ý§Ú²{¦b¤S¦³¤@­Ó°ÝÃD¤F
µ{¦¡½X¤U
Sub yy()
   For Each c In [A:A].SpecialCells(2)   
          [D1] = c
                 Application.c Now + TimeValue("00:00:30")
     Next
                 Application.Run Macro:= "A"
End Sub

D1Àx¦s®æ¦]³s±µ¨ì¨ä¥¦ªº¤u§@ªí³æ¬°°ÊºA§ó·s¥~³¡¸ê®ÆIQY
±qA1Ū¨úÀx¦s®æ®É¦]·|¥X²{¤@­Ó­«½Æ°j°é¦Ó¨S¦³°±¾n¨Ï¬d¸ß¨S¦³¶Ç¦^¸ê®Æ
½Ð°Ý¦p¦ó±qA1¨ìD1®É°±¾n¤@¬q®É¶¡«á¦A¥h°õ¦æA2,A3,A4.............¨ìA?Àx¦s®æ
¥i¥Î®É¶¡³]©wÅý¥L¥h©µªøµ¥«Ý®É¶¡¶Ü?
ÁÂÁÂ

TOP

¨Ò¦p©µ10¬í¡GApplication.OnTime Now + TimeSerial(0, 0, 10),"Dosomething"

TOP

¥»©«³Ì«á¥Ñ gglan9 ©ó 2011-8-14 02:02 ½s¿è

§Ú¸Õ¹L
Application.OnTime Now + TimeSerial(0, 0, 10), "Dosomething"   '©µªøµ¥«Ý®É¶¡10¬í
·|ÅV¥ÜµLªk°õ¦æ¥¨¶° Excel ·|µLªkÃö³¬ ¥²»Ý±j¨îÃö³¬
ÁÂÁÂoobird

TOP

¥»©«³Ì«á¥Ñ gglan9 ©ó 2011-8-14 06:10 ½s¿è

¸Õ¹L  
Application.OnTime Now + TimeSerial(0, 0, 10), "Dosomething"   '©µªøµ¥«Ý®É¶¡10¬í
¦pªG¥¨¶°¬O¦b¬¡­¶Ã¯¸Ì·|ÅV¥Ü µLªk°õ¦æ¥¨¶° Excel ·|µLªkÃö³¬ ¥²»Ý±j¨îÃö³¬
======================================================================
¦Ó³æ¿W¼g¦¨¤@­Ó¥¨¶°¥i¥H°õ¦æ

¸Õ¹L¦b °j°é¸ÌŪ¨ú¦¹¥¨¶° ¦ýD1¸Ì¸ê®Æ·|°±¦bA1Àx¦s®æ  ¤£¥Î±j¨îÃö³¬excel
Application.Run Macro:= "A" ¤]¨S¦³°Ê§@
¤]¤£·|Ä~Äò©¹¤UŪ¨úAÄæ¸ÌªºA2,A3,A4.............¨ìA?Àx¦s®æ
=================================================================
¥¨¶°¸Ìªº
  1. Sub Time()
  2.   Application.OnTime Now + TimeSerial(0, 0, 10), " yy"
  3. End Sub
½Æ»s¥N½X
=================================================================
°j°é¸Ìªº
  1. Sub yy()
  2.    For Each c In [A:A].SpecialCells(2)   
  3.           [D1] = c
  4.           If c = "" Then Exit For
  5.                 Application.Run Macro:= "Time"
  6.      Next
  7.                 Application.Run Macro:= "A"
  8. End Sub
½Æ»s¥N½X
½Ð«ü±ÐÁÂÁÂ

TOP

  1. Sub yy()
  2.     For Each c In [A:A].SpecialCells(2)
  3.         [D1] = c
  4.         Application.Run Macro:="A"
  5.         t = Timer
  6.         Do
  7.             DoEvents
  8.         Loop Until Timer - t = 2
  9.     Next
  10. End Sub
  11. Sub A()
  12. For i = 1 To 1000
  13. [e1] = i
  14. Next
  15. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD