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

tony.fang6413

test.zip (9.83 KB)

¤U¸ü¦¸¼Æ: 4

2010-9-30 15:28

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

Hsieh

´ú¸Õ¬Ý¬Ý
DDEtest.rar (10.89 KB)

¤U¸ü¦¸¼Æ: 7

2010-9-30 16:45

GBKEE

¦^´_ 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

tony.fang6413

¦^´_ 2# Hsieh


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