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

½Ð¨D®v¥S¨ó§U,¤p§Ì¤£À´§¹¦¨»yªk

½Ð¨D®v¥S¨ó§U,¤p§Ì¤£À´§¹¦¨»yªk

¤p§Ìª¦¤å«á¥u°µ¨ì®É¶¡¶}Ãö,¨ä¥¦¬O¿ý»s¥X¨Óªº¡C
§Ú§Æ±æ¤U­±¼Ò²Õ¯à§ï¬°¨C¦¸¶K¤W®É,
¦V¥kÄæ¦ì¥[1Äæ§Y²Ä1¦¸¬Oc3¤U1¦¸¬Od3...e3...
½Ð°Ý­n¦p¦ó§ó§ï?
Dim s As String
Sub ¶}©l()
If s <> "°±¤î" Then
Application.OnTime Now + TimeValue("00:30:00"), "¶}©l"
Call pop_1
End If
s = ""
End Sub

Sub pop_1()
'
' pop_1 ¥¨¶°
'
    Range("A3:A22").Select
    Selection.Copy
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
End Sub

Sub °±¤î()
s = "°±¤î"
End Sub

¦^´_ 1# bully

¤£¤Ó¤F¸Ñ±zªº°ÝÃD¡A¬O§Æ±æ¨C¦¸°õ¦æµ{¦¡®É¡A¥i¥H¦Û°Ê¦V¥kÃä¤@Äæ¶K¤W?
EX:²Ä¤@¦¸°õ¦æ>¶K¦bBÄæ
²Ä¤G¦¸°õ¦æ>¶K¦bCÄæ?

®É¶¡¶}Ãö»P¦¹ªºÃöÁp¬O¬Æ»ò©O?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¥»©«³Ì«á¥Ñ bully ©ó 2018-5-10 17:50 ½s¿è

¦^´_ 2# iamaraymond

ÁÂÁ®v¥S¦^´_
§Ú·Qªk¬O²Ä¤@¦¸¶}©l¬O¦bc3,30¤À«ád3¶K¤W,
¦A30¤À«áe3¶K¤W

TOP

¦^´_ 3# bully

©Ò¥H¬O¨C30¤ÀÄÁ¶K¤@¦¸¶Ü?¨º°±¤îªº±ø¥ó¬O?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 4# iamaraymond


    §Ú¥»·Qªk¬O¶K¤W20¦¸«á¦Û°Ê°±¤î,
     ¦]¤£·|¼g,©Ò¥H¥Î¤â°Ê°±¤î¹B§@!

TOP

¦^´_ 5# bully

¤£ª¾³o¼Ë¬O§_²Å¦X±zªº»Ý¨D
  1. Sub test()

  2. For i = 1 To 20
  3.     Range("A3:A22").Copy
  4.     Cells(3, i + 2).PasteSpecial Paste:=xlPasteValues
  5.     Application.Wait Now() + TimeValue("00:00:01")
  6. Next
  7. Application.CutCopyMode = False
  8. [A1].Select
  9. End Sub
½Æ»s¥N½X
§Ú¬O¥ý´ú¸Õ1¬í¡A¦pªG±zı±oOK¡A¥i¥H±NtimeValue­×§ï¬° TimeValue("00:30:00")
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_  bully

¤£ª¾³o¼Ë¬O§_²Å¦X±zªº»Ý¨D§Ú¬O¥ý´ú¸Õ1¬í¡A¦pªG±zı±oOK¡A¥i¥H±NtimeValue­×§ï¬° TimeValue ...
iamaraymond µoªí©ó 2018-5-10 18:10


ÁÂÁ®v¥S,§Ú´N¬O³o­Ó·N«ä,¦ý¬O³o­Ótest·|ªø´Á³B©ó¹B¦æ¤¤,
¦]§Ú¥u»Ý30¤À°õ¦æ1¦¸,ª½¦Ü20¦¸§¹¦¨°±¤î,(ªí³æ¤º¨ä¥¦°Ê§@¤£¯à°µ)
,¥i§_§ï¬°¨C30¤À¥s¿ô1¦¸?

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2018-5-10 20:43 ½s¿è

¦^´_ 7# bully
01 ¾Ç¨Óªº,³o­Ó¤èªk¤£·|Åýexcel°±¦í,ªí³æÁÙ¥i¥H¥¿±`°µ§Oªº¨Æ
  1. Public i As Integer

  2. Sub ¶}©l()
  3.     i = 0
  4.     Call test
  5. End Sub

  6. Sub test()
  7.        If i > 20 Then Exit Sub
  8. '¤U­±³o2¦æ,´«¦¨§A­n¶]ªºµ{¦¡
  9.     i = i + 1
  10.     Cells(1, 1) = i
  11.     Application.OnTime Now + TimeValue("00:00:02"), "test"
  12. End Sub

  13. Sub °±¤î()
  14.    i=21
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# quickfixer


    ¦¨¥\¤F,¦hÁÂ2¦ì¤j¤j¨ó§U!!

TOP

¦^´_ 7# bully
  1. Dim total As Integer


  2. Sub test()

  3. If total < 5 Then
  4.     total = total + 1
  5.     Debug.Print total
  6.     Application.OnTime Now() + TimeValue("00:00:10"), "Thisworkbook.test1"
  7. Else
  8.     Application.CutCopyMode = False
  9.     [A1].Select
  10. End If

  11. Application.CutCopyMode = False
  12. [A1].Select
  13. End Sub
  14. Sub test1()
  15.     Range("A3:A22").Copy
  16.     Cells(3, total + 2).PasteSpecial Paste:=xlPasteValues
  17.     Call test
  18. End Sub
½Æ»s¥N½X
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD