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

[µo°Ý] ½Ð°Ý¦p¦ó±N¥H³s±µEXCELªºDDE¼Æ¾Ú¨C¤ÀÄÁ¬ö¿ý¤U¨Ó¡H

HI skybbs
¨º§Ú©ú¤Ñ¦A¨Ó¸Õ¬Ý¬Ý §Aªº¤èªk
ÁÂÁ§Aªº¤À¨É

TOP

Hello Jerry,

§Úª¾¹D§Úªºµ{¦¡¬°¤°»ò·|¯Ê¸ê®Æ¤F, À³¸Ó¥u­n¥[¤J¦p¤U½XÀ³¸Ó´N¥i¥H¸Ñ¨M¤F.
Worksheets("sheet1").Activate

TOP

¸g¹L #25¼Ó, Á¤jªº«ü¾É»P³o´X¤ÑªºK®Ñ, ²×©ó§âµ{¦¡¤º®eÁYµu¥B²³æ§ï¼g.
¦ý¬O·|¹J¨ì¦p¤U°ÝÃD:

1.  ¦pªG¦P®É¦³¶}¨ä¥LEXCELÀÉ®É, ¥B¨S¦³¥[¤W "Worksheets("sheet1").Activate"ªº¸ÜDataµLªkUpdate¥B·|¦³¿ù»~.
     ¦ý¬O¦pªG¥[¤W¤F"Worksheets("sheet1").Activate", ¶}²Ä¤G­Ó©Î²Ä¤T­Ó¥H¤WªºEXCELÀɮɷ|¨Ì·Ó®É¶¡¤@ª½¸õ¨ì¶]¨ìSheet1.
     Q: ½Ð°Ý¦b¦P®É¶}¨â­Ó¥H¤WªºEXCEL®É, ¦³¨S¦³¥i¥HÅý¸ê®Æ¦Û°Êupdate, ¥B¤£­n¤@ª½¶]¹DSheet1ªº¤èªk ?

2. ¦]¬°°Ñ·Ó®É¶¡ªºÀx¦s®æ¦b09:00:00®É©ÒÅã¥Üªº¬O90000, ¤@ª½¨ì10:00:00®É¤~Åã¥Ü100000
    ­Y¨Ï¥Î " t = Format(TimeValue(Format([C6], "00:00:00")), "hh:mm:ss")" ®É, 90000 - 95900³o¬q´Á¶¡µLªk±Ndata¼g¤J.
    100000 - 125900¥¿±`. 130000 - 133100µLªk±Ndata¼g¤J.
    ­Y¨Ï¥Î " t = Format(TimeValue(Format([C6], "00:00:00")), "h:mm:ss")" ®É90000 - 125900¥i¥H¥¿±`¼g¤Jdata.
    130000 - 133100µLªk¥¿±`¼g¤Jdata, ¥²¶·¦b"G"¦æªºÀx¦s®æ¨Ï¥Î¤å¦r¤è¦¡¤~¥i¥H, ¤]´N¬O¤l¦æ¿é¤J('13:00:00).
    Q: ¥H¤W½Ð°Ý¬O¦³¬Æ»ò½Ä¬ð¶Ü, ¬O§_¦³¤èªk¸Ñ¨M ?

¥H¤W½Ð¦U¦ì¥ý¶i¤£¥O½ç±Ð.

DDE-Test v2-1.zip (31.97 KB)

TOP

Private Sub Workbook_Open()

If Time >= TimeValue("09:45:00") And Time <= TimeValue("16:05:00") Then
Sheet2.[B7:J307] = ""
change
Else
Application.OnTime "09:45:00", "ThisWorkbook.change"
End If
End Sub


Private Sub change()
    Dim TimeRange As Range, Rng As Range, R As Range
    With Sheet2
        Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
        Set Rng = TimeRange.Offset(, 1).Resize(1, 7)
    End With
    Rng.Value = Sheet1.[N3:T3].Value
    If Time > TimeValue("16:05:00") Then Exit Sub
    Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
End Sub


½Ð°Ý §Ú·Q§â³o­Ódde³]¦¨´äªÑªº®É¶¡
«e­±³£«Ü¥¿±`¥i¥H§ì
¥i¬O¨ì¤F13:59¤À¤§«á
¸ê®Æ³£§ì¤£¹L¨Ó¤F
Sheet1ªº¸ê®Æ ÁÙ¦³¦bÅܧó
Sheet2´N§¹¥þ¨S¦³°ÊÀR
¤£¾å±o¬O¤°»ò­ì¦]©O
ÁÂÁÂ

TOP

½Ð°Ý¤@¤U
±q¨é°Ó³nÅé±µ¦¬¸ê®Æ
dde¦³®É«J·|°±¦í
´N¬O¸ê®Æ±µ¦¬¤£¤F
¤£·|¦Û¤w§ó·s¤F
¤@¶}©lªº®É«J³£ ¥¿±` ¦³®É«J¨ì¤¤¶¡¤~·|³o¼Ë  ®É¶¡¤£¤@©w
½Ð°Ý§Ú§ìªº¸ê®Æ¶qÁÙº¡¦hªº  ¤£ª¾·|¬O¤£¬O·|¼vÅT
ªÑ²¼¦³200¦hÀÉ
ÁÂÁÂ

TOP

¦pªG¥Îplot Relative Strength Index ¥i¥H¶Ü¡H¡H

TOP

³oÃ䪺ªF¦è¹ê¦b¤ÓÆg­ù~~  ¬O§Ú­nªº!!!

¬ã¨s~¬ã¨s~

TOP

¯u¬O°ª²`ªº¾Ç°Ý.¨Ó³o¸Ì¾Ç¤FÂI.·PÁ¤j¤j¤À¨É

TOP

¦pªG§ï¦¨¨C¬í¬ö¿ý­n¦p¦ó¼g©O?

TOP

§Ú¤]«Ü³ßÅw³o¸Ì!¥i±¤ÁÙ¤£°÷¸ê®æ¤U¸üÀÉ®×
¥u¦n¦A¦h§V¤O¤@¤U!

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD