³oºØ¨Ì®É¶¡¹Bºâªº¥¨¶°­n¦p¦ó¼g??

ÂŤÑÄR¦À

½Ð°Ýª©¤W¤j¤j¡A¦pªG§Ú­n¼g¤@­Ó¥¨¶°¥\¯à¦p¤U¡A­n¦p¦ó¼g
A1=5
B1=3
C1=4

A2=7
B2=6
C2=9

¦pªG§Ú­n¦b8:46¤À°õ¦æ¹BºâE1=SUM(A1:C1)¡A8:47¤À°õ¦æE2=SUM(A2:C2)¡A¨Ì¦¹Ãþ±À¤@ª½°õ¦æ¨ì13:45¤À¡A¥B°õ¦æ§¹«áª½±µ¼g¤J­È¡A¦Ó¤£¬O¤½¦¡¡A½Ð°Ýª©¤W¤j¤j³o­Ó¥¨¶°­n¦p¦ó¼g©O??

P.S §Ú¤§«e¦³¸Õ¹Lª½±µ±N¤½¦¡¼g¦bÀx¦s®æ¡A¦ýµo²{¸ê®Æ¶q¤jªº¸Ü·|©ìºC°õ¦æ¼Æ«×¡A©Ò¥H·Q¸òª©¤W¤j¤j½Ð±Ð¤@¤U¥Î¥¨¶°­n¦p¦ó¼g
¤W­±ªº¥Ü½d¨Ò¡A§Ú¹ê»Ú°õ¦æªº¸ê®Æ¶q¤ñ¸û¤j

ÂŤÑÄR¦À

¦^´_ 33# GBKEE

G¤j¤£¦n·N«ä¤S¨Ó½Ð±Ð§A¤F
    http://forum.twbts.com/viewthread.php?tid=13250&extra=

ÂŤÑÄR¦À

¦^´_ 33# GBKEE


    ·PÁÂG¤j

GBKEE

¦^´_ 32# ÂŤÑÄR¦À
¸Õ¸Õ¬Ý

1. Sub RecordPrice()
   
2.     Application.ScreenUpdating = False
   
3.     Calculate
   
4.     Application.ScreenUpdating = True
   
5. End Sub

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 29# GBKEE
G¤j¡A±¡ªp´N¤j·§¹³¼v¤ù¤¤ªº¼Ë¤l¡A·|¤@ª½°{­Ó¤£°±
http://youtu.be/HkWukKMe2_A

ÂŤÑÄR¦À

¦^´_ 29# GBKEE

G¤j¸ò§A½Ð±Ð¤@¤U¡A§Ú¦³¤@­Óµ{¦¡¦]¬°excel¸Ì­±ªº¸ê®Æ¤ñ¸û¦h¡A»Ý­n¤@ª½§ó·s¡A¦ýµe­±·|¤@ª½°{Ã{¡A§Ú¦bºô¸ô¤W§ä¤F¤@¤U¡A»¡¬O­n¶K¤W¤U­±ªº¨â¬qµ{¦¡½X¡A¦ý§Ú¤£½T©w¶K¦b­þ­ù¡A½ÐG¤j¸ò§Ú»¡¤@¤U¡A·PÁÂ

Application.ScreenUpdating = False
Application.ScreenUpdating = True

§Ú¦³´X¬qµ{¦¡¶K¥X¨Óµ¹G¤j¬Ý¡A¦b³Â·Ð±z¸ò§Ú»¡¤@¤U¡A·PÁÂ

¥H¤U¬Osheet4

1. Private Sub CommandButton1_Click()
   
2.     Dim pTick As TTick
   
3.     Dim I As Integer
   
4.     I = 1
   
5.     Sheet4.Range("g1:g2").Clear
   
6.     Sheet4.Range("a3:f3").Clear
   
7.     Sheet4.Range("a5:k90000").Clear
   
8.       While Sheet4.Cells(2, I) <> ""
   
9.         Status = SKQuoteLib_RequestTicks(I, Sheet4.Cells(2, I))
   
10.         I = I + 1
    
11.     Wend
    
12. End Sub
    
13. Private Sub Worksheet_Change(ByVal Target As Range)
    
14.     Application.EnableEvents = False
    
15.     If Not Intersect(Target, [B5:B90000]) Is Nothing Then
    
16.         Range("H" & Target.Row).Formula = "=INT(RC[-6]/100)"
    
17.       
    
18.      ElseIf Not Intersect(Target, [F5:F90000]) Is Nothing Then
    
19.         Range("I" & Target.Row).Formula = "=IF(RC[-6]=-9999.99,R[-3]C[-4],IF(RC[-4]=RC[-6],-RC[-3],IF(RC[-4]=RC[-6]-1,-RC[-3],IF(RC[-4]=RC[-6]-2,-RC[-3],IF(RC[-4]=RC[-6]-3,-RC[-3],IF(RC[-4]=RC[-6]-4,-RC[-3],IF(RC[-4]=RC[-6]-5,-RC[-3],IF(RC[-4]=RC[-5],RC[-3],IF(RC[-4]=RC[-5]+1,RC[-3],IF(RC[-4]=RC[-5]+2,RC[-3],IF(RC[-4]=RC[-5]+3,RC[-3],IF(RC[-4]=RC[-5]+4,RC[-3],IF(RC[-4]=RC[-5]+5,RC[-3],RC[-3])))))))))))))"
    
20.      ElseIf Not Intersect(Target, [C5:C90000]) Is Nothing Then
    
21.         Range("J" & Target.Row).Formula = "=IF(RC[-1]>0,RC[-4],R1C)"
    
22.      ElseIf Not Intersect(Target, [D5:D90000]) Is Nothing Then
    
23.         Range("K" & Target.Row).Formula = "=IF(RC[-2]<0,RC[-5],R1C[-1])"
    
24.    End If
    
25.    Application.EnableEvents = True
    
26.         
    
27. 
    
28. End Sub

½Æ»s¥N½X

¥H¤U¬Othisworkbook

1. Option Explicit
   
2. 
   
3. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
4. Application.RTD.ThrottleInterval = 2000
   
5. Application.Calculation = xlCalculationAutomatic
   
6. End Sub
   
7. 
   
8. Private Sub Workbook_Open()
   
9. Const StartTime As Date = "08:45:00"
   
10. 
    
11. Application.RTD.ThrottleInterval = 0
    
12. Application.Calculation = xlCalculationManual
    
13. 
    
14. Application.OnTime StartTime, "mySchedule"
    
15. End Sub

½Æ»s¥N½X

¥H¤U¬O¼Ò²Õ2

1. Option Explicit
   
2. Dim NextTime As Date
   
3. 
   
4. Sub RecordPrice()
   
5. Calculate
   
6. End Sub
   
7. 
   
8. Sub mySchedule()
   
9. Const StopTime As Date = "14:30:00"
   
10. 
    
11. NextTime = Now + TimeValue("00:00:02")
    
12. If TimeValue(NextTime) <= StopTime Then
    
13.    Application.OnTime EarliestTime:=TimeValue(NextTime), Procedure:="mySchedule"
    
14. End If
    
15. Call RecordPrice
    
16. End Sub
    
17. 
    
18. Sub Macro1()
    
19. Sheet4.Range("g1:g2").Clear
    
20. Sheet4.Range("a3:f3").Clear
    
21. Sheet4.Range("a5:i90000").Clear
    
22. 
    
23. End Sub

½Æ»s¥N½X

­ì«h¤W¥u¥Î¨ì³o´X­Ó¡A¦b½ÐG¤j¸ò§Ú»¡¤W­±¨º¨â¦æ¥[¦b­þ¸Ì¥i¥HÅýµe­±¤£¦A°{Ã{

ÂŤÑÄR¦À

¦^´_ 29# GBKEE

G¤j¬O¤U­±¨º¼Ë¡AÁÂÁ§A

GBKEE

¦^´_ 28# ÂŤÑÄR¦À

¬O³o¼Ë¶Ü?

1. Sub RecordPrice()
   
2.     Dim WR As Long, R As Long
   
3.     Dim I As Long
   
4.     WR = Range("A1").End(xlDown).Row + 1
   
5.     [A2] = TimeValue(Now)
   
6.     For I = 1 To 24
   
7.         Cells(WR, I) = Cells(2, I)
   
8.     Next 'I
   
9.     With ActiveWindow
   
10.         If Intersect(Cells(WR, "A"), .VisibleRange) Is Nothing Then
    
11.            Cells(WR, "A").Select
    
12.         End If
    
13.         .SmallScroll .VisibleRange.Cells.End(xlDown).Row - .VisibleRange.Cells(1).Row
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

ÁÙ¬O³o¼Ë?

1. With ActiveWindow
   
2.         If Intersect(Cells(WR, "A"), .VisibleRange) Is Nothing Then .SmallScroll 1
   
3.     End With

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 26# GBKEE

G¤j¡A¤§«eªºµ{¦¡´ú¸Õ¹L«á¥i¥H¤F¡A¦ý¬O¥t¤@­Ó½Ð±Ð¤@¤UG¤j¦pªG§Ú¦bªþ¥ó³o­Óµ{¦¡­n¥[¤J¨C¬í¦V¤Uºu°Ê¤@¦C­n«ç»ò¥[©O?? ¤ÀªR.rar (88.77 KB)

¤U¸ü¦¸¼Æ: 6

2014-12-24 22:12

¨ä¥Lªº§ÚÁÙ¥i¥H¸ÕµÛ¼g¼g¬Ý¡A¦ý³oºØªº´N...¡AÁÙ±æG¤jÀ°¦£¤@¤U¡A¤£¦n·N«äG¤jÁ`¬O³Â·Ð§A

ÂŤÑÄR¦À

¦^´_ 26# GBKEE

G¤j·PÁ§Aµ¥µ¥¨Ó¸Õ¸Õ¬Ý