½Ð°Ýµ{¦¡°õ¦æ«á¤£©ú­ì¦]¦Û°Ê¤¤Â_(«e´X¤é¥¿±`)¬O§_¼gªk¦³»~?

fei6999

1. Sub ´Á³f()
   
2. '¦bBÄæ¨Ì§Ç¼g¤JL2
   
3. Dim nb, XC, DF, KJ As Long
   
4. 'On Error Resume Next
   
5.   If Time > TimeValue("13:45:20") Then Range("O1") = "OFF": Exit Sub
   
6. nb = 0
   
7. XC = 0
   
8. DF = 0
   
9. KJ = 0
   
10. 
    
11. If Sheet1.Range("b3") > 0 Then Sheet1.Range("b2") = Sheet1.Range("b3"): Sheet1.Range("b3") = ""
    
12. nb = IIf(Sheet1.Range("b2") = "", 2, Sheet1.Range("b3").End(xlUp).Row + 1)
    
13. Sheet1.Cells(nb, 2) = Sheet1.Range("L2")
    
14. If Sheet1.Range("b3") > 0 Then Sheet1.Range("C2") = "=B3-B2"
    
15. If Sheet1.Range("C2") < 0 Then Sheet1.Range("C2") = ""
    
16. 
    
17. If Sheet1.Range("b7") > 0 Then Sheet1.Range("b6") = Sheet1.Range("b7"): Sheet1.Range("b7") = ""
    
18. XC = IIf(Sheet1.Range("b6") = "", 6, Sheet1.Range("b7").End(xlUp).Row + 1)
    
19. Sheet1.Cells(XC, 2) = Sheet1.Range("J2")
    
20. If Sheet1.Range("b7") > 0 Then Sheet1.Range("C6") = "=B7-B6"
    
21. If Sheet1.Range("B7") = "" Then Sheet1.Range("C6") = ""
    
22. 
    
23. If Sheet1.Range("C2") >= Sheet1.Range("E2") Then
    
24. DF = IIf(Sheet1.Range("F2") = "", 2, Sheet1.Range("F20000").End(xlUp).Row + 1)
    
25. Sheet1.Cells(DF, 6) = Sheet1.Range("C2")
    
26. Sheet1.Cells(DF, 7) = Sheet1.Range("C6")
    
27. End If
    
28. 
    
29. KJ = IIf(Sheet1.Range("P2") = "", 2, Sheet1.Range("P20000").End(xlUp).Row + 1)
    
30. Sheet1.Cells(KJ, 16) = Sheet1.Range("J4")
    
31. Sheet1.Cells(KJ, 17) = Sheet1.Range("M4")
    
32. Sheet1.Cells(KJ, 18) = Time
    
33. Sheet1.Cells(KJ, 19) = Sheet1.Range("o4")
    
34. 
    
35. If Range("O1") = "OFF" Then Exit Sub
    
36. Application.OnTime Now + TimeValue("00:00:01"), "´Á³f" '±Ò°Ê¨C¹j1¬í°õ¦æ¥»µ{¦¡
    
37. End Sub

½Æ»s¥N½X

fei6999

À³¸Ó¬O¤Ö«Å§i³o¤@¦æ
Option Private Module
¥[¤W«á´N¹B§@¥¿±`
·PÁÂ!

fei6999

¦P¼Ëªº°Ê§@¤µ¤Ñ¥Ø«e¬°¤î«o¥¿±`¦³°÷©_©Ç!

fei6999

§Úµo²{¬O§Ú¦b¥t¤@­ÓEXCELÀɤu§@®Éµ{¦¡³º³Q¤¤Â_
²Ä¤@¦¸¹J¤W³oºØ±¡§Î
¤§«e¨Ã¨S¦³³o¼Ë¹L
³o±¡§Î¥¿±`¶Ü?