½Ð¨D®v¥S¨ó§U,¤p§Ì¤£À´§¹¦¨»yªk
- ©«¤l
- 14
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- winxp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-9-24
- ³Ì«áµn¿ý
- 2019-6-18
|
½Ð¨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 |
|
|
|
|
|
|
- ©«¤l
- 109
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2017-11-19
- ³Ì«áµn¿ý
- 2023-7-5
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 14
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- winxp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-9-24
- ³Ì«áµn¿ý
- 2019-6-18
|
¥»©«³Ì«á¥Ñ 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 |
|
|
|
|
|
|
- ©«¤l
- 109
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2017-11-19
- ³Ì«áµn¿ý
- 2023-7-5
|
¦^´_ 3# bully
©Ò¥H¬O¨C30¤ÀÄÁ¶K¤@¦¸¶Ü?¨º°±¤îªº±ø¥ó¬O? |
|
Excel VBAºô¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html
|
|
|
|
|
- ©«¤l
- 14
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- winxp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-9-24
- ³Ì«áµn¿ý
- 2019-6-18
|
¦^´_ 4# iamaraymond
§Ú¥»·Qªk¬O¶K¤W20¦¸«á¦Û°Ê°±¤î,
¦]¤£·|¼g,©Ò¥H¥Î¤â°Ê°±¤î¹B§@! |
|
|
|
|
|
|
- ©«¤l
- 109
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2017-11-19
- ³Ì«áµn¿ý
- 2023-7-5
|
¦^´_ 5# bully
¤£ª¾³o¼Ë¬O§_²Å¦X±zªº»Ý¨D- Sub test()
- For i = 1 To 20
- Range("A3:A22").Copy
- Cells(3, i + 2).PasteSpecial Paste:=xlPasteValues
- Application.Wait Now() + TimeValue("00:00:01")
- Next
- Application.CutCopyMode = False
- [A1].Select
- 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
|
|
|
|
|
- ©«¤l
- 14
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- winxp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-9-24
- ³Ì«áµn¿ý
- 2019-6-18
|
¦^´_ 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¦¸? |
|
|
|
|
|
|
- ©«¤l
- 154
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 200
- ÂI¦W
- 28
- §@·~¨t²Î
- windwos 7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-5-29
- ³Ì«áµn¿ý
- 2024-10-22
|
¥»©«³Ì«á¥Ñ quickfixer ©ó 2018-5-10 20:43 ½s¿è
¦^´_ 7# bully
01 ¾Ç¨Óªº,³oÓ¤èªk¤£·|Åýexcel°±¦í,ªí³æÁÙ¥i¥H¥¿±`°µ§Oªº¨Æ- Public i As Integer
- Sub ¶}©l()
- i = 0
- Call test
- End Sub
- Sub test()
- If i > 20 Then Exit Sub
- '¤U±³o2¦æ,´«¦¨§An¶]ªºµ{¦¡
- i = i + 1
- Cells(1, 1) = i
- Application.OnTime Now + TimeValue("00:00:02"), "test"
- End Sub
- Sub °±¤î()
- i=21
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 14
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- winxp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-9-24
- ³Ì«áµn¿ý
- 2019-6-18
|
¦^´_ 8# quickfixer
¦¨¥\¤F,¦hÁÂ2¦ì¤j¤j¨ó§U!! |
|
|
|
|
|
|
- ©«¤l
- 109
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2017-11-19
- ³Ì«áµn¿ý
- 2023-7-5
|
¦^´_ 7# bully - Dim total As Integer
- Sub test()
- If total < 5 Then
- total = total + 1
- Debug.Print total
- Application.OnTime Now() + TimeValue("00:00:10"), "Thisworkbook.test1"
- Else
- Application.CutCopyMode = False
- [A1].Select
- End If
- Application.CutCopyMode = False
- [A1].Select
- End Sub
- Sub test1()
- Range("A3:A22").Copy
- Cells(3, total + 2).PasteSpecial Paste:=xlPasteValues
- Call test
- End Sub
½Æ»s¥N½X |
|
Excel VBAºô¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html
|
|
|
|
|