ªð¦^¦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

¥»©«³Ì«á¥Ñ 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

¦^´_ 4# iamaraymond


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

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

¦^´_ 8# quickfixer


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

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD