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

[µo°Ý] ½Ð°Ýª©¥D,³o¼Ë­×§ï¦æªº³q¶Ü?

[µo°Ý] ½Ð°Ýª©¥D,³o¼Ë­×§ï¦æªº³q¶Ü?

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-10-5 09:53 ½s¿è

test.zip (9.83 KB) §Ú­n±Nsheet1¤ºªºF1:F2 ªº­È,±N¨ä¨C¤ÀÄÁ°O¿ý¨ìsheet2  C3:D3, §Ú±N±z¤§«eªºµ{¦¡­×§ï¤@¤U,¦ý¤£ª¾¹D³o¼Ë¬O§_¥¿½T,¥i§_³Â·Ð±zÀ°§Ú¬Ý¤@¤U!!

´ú¸Õ¬Ý¬Ý
DDEtest.rar (10.89 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# tony.fang6413
ªþÀɵ{¦¡½X Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
¦b AÄæ´M§ä®É¶¡¬O¿ù»~ªº  ®É¶¡¦bBÄæ
­×§ï§Aªºµ{¦¡½X¦p¤U
Private Sub Workbook_Open()
    If Time < Sheet2.[B3] Then
        Application.OnTime Sheet2.[B3].Value, "ThisWorkbook.Achange"
    Else
        Achange
    End If
End Sub
Private Sub Achange()
    Dim TimeRange As Range
    Set TimeRange = Sheet2.[B:B].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
    If Not TimeRange Is Nothing Then
        TimeRange.Offset(, 1).Resize(1, 2) = Array(Sheet1.[F1], Sheet1.[F2])
        Application.OnTime TimeSerial(Hour(Time), Minute(Time) + 1, 0), "ThisWorkbook.Achange"
    End If
End Sub

TOP

¦^´_ 2# Hsieh


    ·PÁª©¤j,¸g¹L2¤Ñ´ú¸Õ¤@¤ÁOK!¨º²{¦b¦pªG§Ú­n§âD1 D2, H1 H2,ªº¸ê®Æ¤@¼Ë°O¿ý¨ìsheet3¸òsheet4¤S¸Ó¦p¦ó­×§ï°Ú?

DDEtest.rar (9.98 KB)

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD