c_c_lai

¦^´_ 98# ÂŤÑÄR¦À
ªÑ²¼10A.rar (22.07 KB)

¤U¸ü¦¸¼Æ: 4

2016-4-10 16:21

ªÑ²¼10B.rar (23.52 KB)

¤U¸ü¦¸¼Æ: 2

2016-4-10 16:22

1. Sub RecordPrice(TG As Range)
   
2.     Dim WR As Long, cts As Long
   
3.    
   
4.     With Sheets("RTD")
   
5.         If .Range("A1") < 1 Then Exit Sub
   
6.    
   
7.         cts = TG.Column
   
8.    
   
9.         WR = .Cells(Rows.Count, cts).End(xlUp).Row + 1         '  ¨D¨ú¸Ó²§°ÊÄæ¦ìªº³Ì«á¤@µ§¬ö¿ý¦C¦ì¸m
   
10.         
    
11.         If WR = 3 Or .Cells(WR - 1, cts) <> .Cells(2, cts) Then
    
12.             .Cells(WR, cts).Offset(, -3).NumberFormatLocal = "hh:mm:ss"   '  ³]©wÀx¦s®æ®æ¦¡ (®É¶¡)
    
13.             
    
14.             '  ­×¥¿¬°¥u¼g¤J ¡y¨é°Ó¦W¡z¡B¡y¦¨¥æ¡z¡B¡yÁ`¶q¡z¡A¡u®É¶¡¡v«h¤£¤©¦P¨B±a¤J
    
15.             '  .Cells(WR, cts).Offset(, -2).Resize(, 3) = .Range(TG.Address).Offset(, -2).Resize(, 3).Value
    
16.             .Cells(WR, cts).Offset(, -2).Resize(, 4) = .Range(TG.Address).Offset(, -2).Resize(, 4).Value
    
17.         End If
    
18.     End With
    
19. End Sub

½Æ»s¥N½X

1. Private Sub Worksheet_Calculate()
   
2.     Dim Rng As Range, E As Variant
   
3.    
   
4.     '  Sheets("RTD") ¤u§@ªí¤W¥ô¦ó¦³¤½¦¡Àx¦s®æ­È¦³ÅÜ°Ê,±Ò°Ê Sheets("RTD") ªº Worksheet_Calculate ¨Æ¥ó
   
5.     On Error Resume Next                     '  Àɮ׶}±Ò®É DEE¶Ç¦^¿ù»~­È
   
6.     Set Rng = UsedRange.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
   
7.    
   
8.     If Not Rng Is Nothing Then Exit Sub
   
9.     On Error GoTo 0                          '  ¶}½L¤£¦A³B²zµ{¦¡½Xªº¿ù»~
   
10.             
    
11.     For Each E In Me.Names
    
12.         If E.Name Like "*TotalVolume*" Then   '  Á`¶qªº¦WºÙ
    
13.             If Range(E.Name) > 0 Then         '  Á`¶q > 0
    
14.                 With Cells(Rows.Count, Range(E.Name).Column).End(xlUp)
    
15.                     '  Á`¶q¦WºÙ©Ò¦bªº³Ì©³¦C©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ
    
16.                     If .Row = 2 Or .Row > 2 And .Value <> Range(E.Name).Value Then    '  (¦UªÑÁ`¶q¦³ÅÜ°Ê)
    
17.                         '  ­×¥¿¬°¥u¼g¤J ¡y¨é°Ó¦W¡z¡B¡y¦¨¥æ¡z¡B¡yÁ`¶q¡z¡A¡u®É¶¡¡v«h¤£¤©¦P¨B±a¤J
    
18.                         '  .Offset(1).Cells(1, -1).Resize(, 3) = Range(E.Name).Cells(, -1).Resize(, 3).Value
    
19.                         .Offset(1).Cells(1, -1).Resize(, 4) = Range(E.Name).Cells(, -1).Resize(, 4).Value
    
20.                     End If
    
21.                 End With
    
22.             End If
    
23.         End If
    
24.     Next
    
25. End Sub

½Æ»s¥N½X

¥]§t¡u®É¶¡¡v¤F¡C

ÂŤÑÄR¦À

¦^´_ 99# c_c_lai

C¤j§Ú¤w¸g§ï¦n¤F¡A³o¨â¤ÑÅý§A­Ì¶O¤ß¤F¡A¤Q¤À·PÁÂ
©ú¤Ñ´ú¸Õ«á¦V¨â¦ì¤j¤j³ø§i´ú¸Õµ²ªG

c_c_lai

¦^´_ 102# ÂŤÑÄR¦À
¡u®É¶¡¡v¦ì¸mÂI§ó§ï¡A½Ð¦Û¦æ¥[ÂI®Æ¡C
¡uªÑ²¼10A.xlsm¡v ¸Ìªº RecordPrice()

1.             '  .Cells(WR, cts).Offset(, -3).NumberFormatLocal = "hh:mm:ss"   '  ³]©wÀx¦s®æ®æ¦¡ (®É¶¡)
   
2.             .Cells(WR, cts).Offset(, 1).NumberFormatLocal = "hh:mm:ss"   '  ³]©wÀx¦s®æ®æ¦¡ (®É¶¡)

½Æ»s¥N½X

¥H¤Î ¡uªÑ²¼10B.xlsm¡v ¸Ìªº Worksheet_Calculate()
­ì¥»

1.                         .Offset(1).Cells(1, -1).Resize(, 4) = Range(E.Name).Cells(, -1).Resize(, 4).Value

½Æ»s¥N½X

ªº¤W¤@¦æ¼W¥[¥[¤W

1.                         .Offset(1, 1).NumberFormatLocal = "hh:mm:ss"          '  ³]©wÀx¦s®æ®æ¦¡ (®É¶¡)                  
   
2.                         .Offset(1).Cells(1, -1).Resize(, 4) = Range(E.Name).Cells(, -1).Resize(, 4).Value

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 103# c_c_lai

¦nªº¡A·PÁÂC¤j

ÂŤÑÄR¦À

¦^´_ 103# c_c_lai

ªÑ²¼.rar (25.01 KB)

¤U¸ü¦¸¼Æ: 2

2016-4-11 09:05

C¤j¡A´ú¸Õ«á¡AG¤jªº¥i¥H¥¿±`°õ¦æ¡A§Aªº§¹¥þ¨S¦³°Ê§@

ÂŤÑÄR¦À

¦^´_ 85# GBKEE
G¤j¸ò§A³ø§i¤@¤U¡A´ú¸Õ«á¥Ø«e¥¿±`°õ¦æ¡A¦p¦³°ÝÃD§Ú·|¦A¦V±z³ø§i

c_c_lai

¦^´_ 105# ÂŤÑÄR¦À
¦^´_ 85# GBKEE
¥Ñ¦¹¥iª¾ ¡uDDE ¸ê®Æ¶×¤J¡v¬OµLªk¦P®ÉIJµo Worksheet_Change ªº¡A
Worksheet_Change ¥u¯à¹ïÀ³¤@¯ë¥¿±`©ÊªºÄæ¦ì¾Þ§@²§°ÊIJµo¡F
³o«K¬O§Ú¬°¦ó­n¦P®É¾ã²z¥X ¡yªÑ²¼10A.xlsm¡z¡B ¡yªÑ²¼10B.xlsm¡z
¨âºØ¤£¦PÀ³¥Î¿ï¾Üªº¹D²z¡A¥H¹ê»Úªº DDE ´ú¸Õ¨ÓÅç©w¬O­n¿ï¾Ü¥H
¦óºØ¤º¦b¨ç¦¡¨Ó°µ¥¿½Tªº¿ï¾Ü¤u¨ã¡C ©Ò¥H¹ê°ÈÃÒ©ú¡yDDE ¸ê®Æ¶×¤J§@·~¡z
¦¹µ¥¹B§@Àô¹Ò¬OÀ³±Ä¦æ ¡yWorksheet_Calculate()¡z ·f°t ¡u¦WºÙºÞ²z­û¡v
¤ºªº¡y¦WºÙ©w¸q¡z¤è¦¡¬Û»²¬Û¦¨¡A¤~¬O¸û¹ê°Èªº³Ì¨Î¿ï¾Ü¦Ò¶q¡C
¦b¦¹¦P®É¤]·PÁ GBKEE ¤j¤jªº¨ó¤O«ü¾É¡C

ÂŤÑÄR¦À

¦^´_ 107# c_c_lai

©Ò¥H¡AC¤j§Aªº·N«ä¬O¡A¤â°ÊÅܧó¥i¥H±Ò°Êµ{¦¡¡A¦ýµ{¦¡¹ï©óDDEªº§P©w¦³°ÝÃD©Ò¥H¤~µLªk±Ò°Êµ{¦¡¶Ü??(¥Õ¸Ü¤å)

c_c_lai

¦^´_ 108# ÂŤÑÄR¦À
¬Oªº¡A¦b¦¹µ¥¹B¥ÎÀô¹Ò¬OÀ³±Ä¦æ ¡yWorksheet_Calculate()¡z ·f¤W ¡y¦WºÙ©w¸q¡z
¤~¬°¤W¤Wªº§@·~¦Ò¶q¡C§Ú¬Û«H§A·|±q³o¨â°¦µ{¦¡ªº³B¸Ì¤¤¾Ç²ß¨ì§ó¦hªº¡C

ÂŤÑÄR¦À

¦^´_ 109# c_c_lai

§Ú¯uªº±q¨â¦ì¤j¤j¨­¤W¾Ç¨ì¤£¤Ö¡A·PÁÂ