ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

»ù®æ¬ö¿ýªº»yªk¦³¼g¿ù¶Ü??

¦^´_ 78# c_c_lai
C.jpg
2016-4-10 07:46

¤W¹Ï¥ÜªÑ²¼10ªº´ú¸Õµ²ªG¡A¶Â®Øªº³¡¤À¨S¦³©¹¤U½Æ»s¡A¬õ®Øªº³¡¤À¬°¤@²Õ(B2-E2¡BF2-I2...µ¥µ¥)¡A¬OÁ`¶qÅÜ°Ê«á­n©¹¤U¬ö¿ýªºÄæ¦ì

TOP

¦^´_ 81# ÂŤÑÄR¦À
©ú¥Õ¤F¡A¦³¨Æ¥X¥h¤@¤U (¶RµL¿}¨§¼ß)¡C
¦^ÀY¦A­×¥¿¡C

TOP

¦^´_ 82# c_c_lai


    C¤j¤£«æ¡A§A¥ý¦£

TOP

¦^´_  c_c_lai

¤W¹Ï¥ÜªÑ²¼10ªº´ú¸Õµ²ªG¡A¶Â®Øªº³¡¤À¨S¦³©¹¤U½Æ»s¡A¬õ®Øªº³¡¤À¬°¤@²Õ(B2-E2¡BF2-I2...µ¥ ...
ÂŤÑÄR¦À µoªí©ó 2016-4-10 07:47

E.png
2016-4-10 13:29

TOP

¦^´_ 84# c_c_lai
39©«  ¸É¤W«DÀç·~®É¶¡¤£°õ¦æµ{¦¡
  1. Private Sub Worksheet_Calculate()
  2.         Dim Rng As Range, E As Variant
  3.         On Error Resume Next ' Àɮ׶}±Ò®É DEE¶Ç¦^¿ù»~­È
  4.         Set Rng = UsedRange.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
  5.         If Not Rng Is Nothing Then Exit Sub
  6.         On Error GoTo 0 '¶}½L¤£¦A³B²zµ{¦¡½Xªº¿ù»~
  7.         If Time < #9:00:00 AM# Or Time > #1:31:00 PM# Then Exit Sub '«DÀç·~®É¶¡
  8.         For Each E In Me.Names
  9.             If E.Name Like "*TotalVolume*" Then   'Á`¶qªº¦WºÙ
  10.                 If Range(E.Name) > 0 Then
  11.                     With Cells(Rows.Count, Range(E.Name).Column).End(xlUp)  ''Á`¶q¦WºÙ©Ò¦bªº³Ì©³¦C©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ
  12.                             If .Row = 2 Or .Row > 2 And .Value <> Range(E.Name).Value Then
  13.                                 .Offset(1).Cells(1, -2).Resize(, 4) = Range(E.Name).Cells(, -2).Resize(, 4).Value
  14.                             End If
  15.                     End With
  16.                 End If
  17.             End If
  18.         Next
  19. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 83# ÂŤÑÄR¦À
¦^´_ 85# GBKEE
ªþ¤W ªÑ²¼10A.rar ¥H¤Î ªÑ²¼10B.rar ¨â­ÓÀɮסF
ªÑ²¼10A.rar ¬O§Úªº (Worksheet_Change()) µ{¦¡¡A
ªÑ²¼10B.rar «h¬O GBKEE ¤j¤jªº (Worksheet_Calculate())
µ{¦¡¡A¥B¥[¤J¤F «D¶}½L®É¶¡ªº¦Ò¶q¡C A¡BB ¬O¨â­Ó
¤£¦Pªºµ{¦¡¼Ò²Õ¡A©ú¤Ñ´ú¸Õ§¹²¦¦V§Ú­Ç³ø§i¤ß±oµ²ªG¡C
ªÑ²¼10A.rar (21.88 KB)
ªÑ²¼10B.rar (23.44 KB)

TOP

¦^´_ 83# ÂŤÑÄR¦À
§Úªº³¡¤À¡G
ThisWorkbook¡G
  1. Option Explicit

  2. Private Sub Workbook_Open()
  3.     '  Nothing to do («O¯d)
  4. End Sub
½Æ»s¥N½X
shtRTD(RTD)ªí³æ:
  1. Option Explicit

  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     '  ·í Target (Á`¶q) Äæ¦ì¦³²§°Ê®É¡A «h¥h©I¥s RecordPrice ªº¤èªk (Method)¡C
  4.    
  5.     If Target.Row = 2 And Target.Column Mod 4 = 0 Then
  6.         Call RecordPrice(Target)
  7.     End If
  8. End Sub
½Æ»s¥N½X
Module1:
  1. Option Explicit

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

  19. Sub ®É¶¡()
  20.     Sheets("RTD").Cells(2, 1) = WorksheetFunction.Text(Now(), "hh:mm:ss")
  21.     Application.OnTime Now() + TimeValue("00:00¡G01"), "®É¶¡"
  22. End Sub

  23. Sub Cls()
  24.     With Sheets("RTD")
  25.         .Range("A3:OK5000").ClearContents
  26.         .[A3].Select
  27.     End With
  28. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-10 15:20 ½s¿è

¦^´_ 83# ÂŤÑÄR¦À
.

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-10 15:26 ½s¿è

¦^´_ 83# ÂŤÑÄR¦À
.GBKEE ¤j¤jªºµ{¦¡¤@ª½¶K¤£¤W
¦Û¦æ¬Ýµ{¦¡§a¡I

TOP

¦^´_ 81# ÂŤÑÄR¦À
GBKEE ¤j¤jªºµ{¦¡¡G
ThisWorkbook¡G[code]Option Explicit

Private Sub Workbook_Open()
    Dim xRng As Range, First_Aaddres  As String, xRng_Name As String
    Dim nm As Variant
   
    Application.RTD.ThrottleInterval = 0
    Application.Calculation = xlCalculationAutomatic     '  ¦Û°Ê­«ºâ
   
    '  ²M°£¡u¦WºÙºÞ²z­û¡v¤ºªº©Ò¦³¤º®e
    For Each nm In ActiveWorkbook.Names
        nm.Delete
    Next nm
   
    With Sheets("RTD")
        '  Àɮ׶}±Ò®É ©w¸q¤F Sheets("RTD") ©Ò¦³Á`¶q DDE ¤½¦¡ªºÀx¦s®æ
        Set xRng = .Rows(2).Cells.Find("TotalVolume", LookIn:=xlFormulas)
        
        If Not xRng Is Nothing Then
            First_Aaddres = xRng.Address
            
            Do
                xRng_Name = Split(xRng.Formula, "'")(1)
                xRng_Name = "TotalVolume" & Split(xRng_Name, ".")(0)
                .Names.Add xRng_Name, xRng       '  ¦WºÙ©w¸q: ©Ò¦³Á`¶qªº DDE ¤½¦¡ªºÀx¦s®æ

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD