請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改(頁 3) - Excel程式區

c_c_lai 發表於 2012-10-10 07:20

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=44899&ptid=6706]42#[/url] [i]parapa[/i] [/b]
你沒按 "回復" 鈕，我是無從得知訊息的。
剛才想瞧瞧該文章的內容，才獲悉你已發文。
請檢查你的郵箱，已經 E-Mail 給你了。

devidlin 發表於 2012-10-13 10:10

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=44984&ptid=6706]43#[/url] [i]c_c_lai[/i] [/b]

想請問c大，附上幣圖誌小工具用康和做的，可以改成用元大easy win來做嗎?謝謝。

c_c_lai 發表於 2012-10-14 08:03

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45087&ptid=6706]44#[/url] [i]devidlin[/i] [/b]
看起來這好像是直接連結網站，而透過網頁處理的。
這可能是無法異動的。

devidlin 發表於 2012-10-14 16:23

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45123&ptid=6706]45#[/url] [i]c_c_lai[/i] [/b]

c大你好，小弟有寄檔案到您的信箱，看是否能更改成元大easy win用，謝謝。

c_c_lai 發表於 2012-10-14 17:31

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45134&ptid=6706]46#[/url] [i]devidlin[/i] [/b]
經檢查，沒收到你的信。

devidlin 發表於 2012-10-14 18:43

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45138&ptid=6706]47#[/url] [i]c_c_lai[/i] [/b]

小弟把檔案放上來了，謝謝。

c_c_lai 發表於 2012-10-15 07:04

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45140&ptid=6706]48#[/url] [i]devidlin[/i] [/b]
一執行 "toolbituzi(康和版-須連結康和全都賺下單軟體方可使用).exe"
便出現 "此 DDE 起始動作沒有得到其他應用程式的回應" 的訊息。
它一安裝即要求與券商連結，這極有可能程式寫死的，如果是則無法異動。

devidlin 發表於 2012-10-15 09:40

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45153&ptid=6706]49#[/url] [i]c_c_lai[/i] [/b]

c大你好，有關於台指價差，摩台價差，摩減台漲跌幅，振幅等四項，可以用元大easywin的dde，另外寫出來嗎?

c_c_lai 發表於 2012-10-15 10:46

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45158&ptid=6706]50#[/url] [i]devidlin[/i] [/b]
只要你有正確的運算公式，且其中有關基本來源數據欄位均能來自 DDE 的話，
是當然可行的。

devidlin 發表於 2012-10-15 10:52

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45165&ptid=6706]51#[/url] [i]c_c_lai[/i] [/b]

C大你好，小弟不會寫，可以舉出一個範例程式給小弟參考嗎?謝謝。

c_c_lai 發表於 2012-10-15 11:06

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45167&ptid=6706]52#[/url] [i]devidlin[/i] [/b]
你把你目前 DDE 運作的 Excel 傳過來 (My E-Mail)
然後再告訴我台指價差，摩台價差，摩減台漲跌幅，振幅等四項的運算公式。

devidlin 發表於 2012-10-15 11:21

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45158&ptid=6706]50#[/url] [i]devidlin[/i] [/b]

請教C大的EMAIL?

devidlin 發表於 2012-10-15 12:01

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45171&ptid=6706]55#[/url] [i]devidlin[/i] [/b]

小弟放檔案上來了，四個欄位:K2，L2，M2，N2，謝謝。

c_c_lai 發表於 2012-10-15 14:03

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45172&ptid=6706]55#[/url] [i]devidlin[/i] [/b]
交給你了。 (ThisWorkbook)
[attach]12774[/attach]
[attach]12775[/attach]

devidlin 發表於 2012-10-15 14:24

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45178&ptid=6706]56#[/url] [i]c_c_lai[/i] [/b]

小弟是想說，此四個欄位:K2，L2，M2，N2，類似用時鐘方式或是一個方塊在右邊方式提醒注意，不知可否做到，謝謝。

c_c_lai 發表於 2012-10-15 16:32

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45179&ptid=6706]57#[/url] [i]devidlin[/i] [/b]
如你所言，可能就要透過 VB、或是其它語言工具來完成了。
倘若只是土法煉鋼，那就是在 Excel 內另尋一區塊將此四個
運算放在一起，當作是一個標的來檢視。

GBKEE 發表於 2012-10-15 17:19

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45179&ptid=6706]57#[/url] [i]devidlin[/i] [/b]
[color=red]類似用時鐘方式或是一個方塊在右邊方式提醒注意[/color]
如圖嗎?

[attach]12787[/attach]

程式碼複製後存檔,再開檔試看看

ThisWorkbook模組的程式碼
[code]Private Sub Workbook_Open()
UserForm1.Show
End Sub[/code]
附檔上插入一UserForm(表單)  系統自動命名 (UserForm1)
UserForm(表單)的程式碼
[code]Option Explicit
Dim Msg As Boolean
Private Sub UserForm_Initialize() 'UserForm(表單) 初始化時的事件程序
'請先在UserForm(表單) 加入4個 Label控制項
'系統自動命名(Label1, Label2 , Label3 , Label4)
'請自行調整 4個 Label控制項的位置,長,寬,高
Dim i As Integer
For i = 1 To 4
      With Me.Controls("Label" & i)
         .TextAlign = 1 ' fmTextAlignCenter
         .Font.Bold = True
         .Font.Size = 15
         .SpecialEffect = fmSpecialEffectEtched
      End With
Next
End Sub
Private Sub UserForm_Activate()    'UserForm(表單) 顯示時的事件程序
Dim xlTile As String, S As String
S = Space(5)
Application.Visible = False
Do Until Msg = True
      DoEvents
      If Time < #8:00:00 AM# Then
         xlTile = "尚未開盤"
      ElseIf Time > #1:30:00 PM# Then
         xlTile = "已收盤"
      Else
         xlTile = "營業中"
      End If
      If Not Msg Then Caption = Format(Now, "Dddddd ttttt ") & xlTile
      If xlTile <> "尚未開盤" Then
         Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
         Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
         Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
         Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
      End If
Loop
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'UserForm(表單) 關閉時的事件程序
Msg = True
Application.Visible = True
End Sub
[/code]

c_c_lai 發表於 2012-10-15 18:53

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45187&ptid=6706]59#[/url] [i]GBKEE[/i] [/b][code]
If xlTile <> "尚未開盤" Then
      Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
      Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
      Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
      Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
End If
[/code]須更正為：[code]
If xlTile <> "尚未開盤" Then
      Label1.Caption = S & Sheet2.[K1] & S & Round(Sheet2.[K2], 3)
      Label2.Caption = S & Sheet2.[L1] & S & Round(Sheet2.[L2], 3)
      Label3.Caption = S & Sheet2.[M1] & S & Round(Sheet2.[M2], 3)
   Label4.Caption = S & Sheet2.[N1] & S & Round(Sheet2.[N2], 3)
End If
[/code]否則會出現錯誤訊息。

devidlin 發表於 2012-10-15 19:18

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45190&ptid=6706]60#[/url] [i]c_c_lai[/i] [/b]

謝謝G大及C大，我剛用原來的檔案試過，插入上述程式碼，好像不能用，可以將原檔案(元大-盤中DDE紀錄1015)

插入後的最新檔案放上來嗎?謝謝。

devidlin 發表於 2012-10-15 19:30

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=45191&ptid=6706]61#[/url] [i]devidlin[/i] [/b]

已經可以了，盤中會隨時變化嗎?

頁: 1 2 [3] 4 5 6 7

麻辣家族討論版版's Archiver