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

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

¦^´_ 84# c_c_lai

C¤j§Ú¤£¤ÓÀ´§Aªº·N«ä¡A¬°¤°»ò¦ì¬OªÅ¥Õ??§A©¹¤U¼g¤£¬O´N¦³¼Æ¦r¤F¶Ü??

TOP

¦^´_ 91# ÂŤÑÄR¦À
"ªÅ¥Õ" ¤£À´§Aªº·N«ä¡H¯à§_¥Ã¹Ïªíµe­Óº©µe¡H

TOP

¦^´_ 84# c_c_lai

®É¶¡¤º®e¬°¤°»ò¤£¯à¼g¤J??§Ú«á­±ªº­pºâ³£­n¾a®É¶¡¤º®e¤~¦³¿ìªk¹B§@¡A¥i¥H½ÐC¤jÀ°§Ú¸Ñ´b¤@¤U¶Ü??
§Úªº·Qªk¬O¦pªG¶qÅÜ°Ê´N¼g¤JB2-E2¡A³o¼Ë¤£¦æ¶Ü??§Ú­Ì³]©w¶qÅܰʤ~¼g¤J¨ä¥L¦³¨S¦³ÅÜ°ÊÀ³¸Ó¤£¼vÅT¼g¤J§a¡I

TOP

¦^´_ 92# c_c_lai


    §Ú¤£À´ªº¬O¬°¤°»ò®É¶¡µLªk¼g¤J

TOP

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

¦^´_ 91# ÂŤÑÄR¦À
§A¬O«ü¡H

§A¤£¬O­n¨D¸ê®Æ¼g¤J®É¤£¥Î¼g¤J®É¶¡¶Ü¡H

TOP

¦^´_ 92# c_c_lai

Sub ®É¶¡()
    Sheets("RTD").Cells(2, 1) = WorksheetFunction.Text(Now(), "hh:mm:ss")-------------³o­Ó¦a¤è®É¶¡¤£¥Î¼g¤J
    Application.OnTime Now() + TimeValue("00:00¡G01"), "®É¶¡"
End Sub
   
---------------------------------------------------------------------------------------------------------------------------
Sub RecordPrice(TG As Range)
    Dim WR As Long, cts As Long
   
    With Sheets("RTD")
        If .Range("A1") < 1 Then Exit Sub
   
        cts = TG.Column
   
        WR = .Cells(Rows.Count, cts).End(xlUp).Row + 1         '  ¨D¨ú¸Ó²§°ÊÄæ¦ìªº³Ì«á¤@µ§¬ö¿ý¦C¦ì¸m
        
        If WR = 3 Or .Cells(WR - 1, cts) <> .Cells(2, cts) Then
            .Cells(WR, cts).Offset(, -3).NumberFormatLocal = "hh:mm:ss"   '  ³]©wÀx¦s®æ®æ¦¡ (®É¶¡)----------------³o­Ó¦a¤èªº¥\¯à¬O??¦³®É¶¡ªº³¡¤À¥i¥H³£®³±¼¶Ü??
            
            .Cells(WR, cts).Offset(, -2).Resize(, 3) = .Range(TG.Address).Offset(, -2).Resize(, 3).Value
        End If
    End With
End Sub

TOP

¦^´_ 95# c_c_lai


    ¹Ï¸Ì­±ªºAÄ椣¥Î¼g¤J¡A§Ú¥i¯à¦­¤Wªí¹Fªº¤£¬O«Ü²M·¡¡AC¤j©êºp

TOP

¦^´_ 95# c_c_lai


    ¤£¥Î¼g¤J®É¶¡«üªº¬OAÄæ¡A¨ä¥Lªº­n¡A©êºp¡AªGµM¬O§Úªí¹Fªº¦³°ÝÃDSORRY

TOP

¦^´_ 96# ÂŤÑÄR¦À
¨º§A´N±N "®É¶¡()" §R°£±¼©Î¤£¥h°õ¦æ¥¦
¤£´N±o¤F¡C¨º¬O§A­ì¥»ªºµ{¦¡¡C§Ú¬O¤£¥Î¥¦ªº¡C

TOP

¦^´_ 99# c_c_lai


    ¨º¥Ø«e¥u©¹¤U¼gB2-D2¡A¦pªG­n§ï¦¨©¹¤U¼gB2-E2­n§ó§ï­þÃä©O??

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD