- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
½Ð±Ð¦U¦ì«e½ú
¤p§Ìì¥ý³£¬O¨Ï¥Îeasywin ªºDDE ¸ê®Æ ¦ý«D±`ªº¦Y¸ê·½
³Ìªñµo²{¤¸¤jªº¥t¤@Ó³nÅé Yeswin ¦³´£ ...
randychou µoªí©ó 2013-1-4 11:46
Yeswin ³ø»ù¤¸¥ó(RTD) ¬O¥¿±`ªº¡A =RTD("money.excel",,,$A$7,"Price")
§A¥i¥Hª½±µ¼g¦¨ =RTD("money.excel",,"TXF1","Price")
¸Õ¸Õ¬Ý¡I- Public turnKey As Integer
- Sub Macro_TX_DDE_COPY()
- Dim nums As Integer
-
- nums = 20 ' 20 ¬í (¹w³]È)
-
- turnKey = turnKey + 1
- Sheets("DDE_DATA").[A5] = "( " & turnKey & " ’ )"
-
- If (Second(Time) Mod nums) = 0 Then ' ¶¡¹j nums ¬í
- With Sheets("RECORD_TX")
- If Not IsError(Sheets("DDE_DATA").[D2]) Then
- pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
- .Cells(pos, 1).Resize(1, 9) = Sheets("DDE_DATA").Cells(2, 1).Resize(1, 9).Value
- turnKey = 0
- End If
- End With
- End If
-
- Application.OnTime (Now + TimeValue("00:00:01")), "Module11.Macro_TX_DDE_COPY"
- End Sub
½Æ»s¥N½X |
|