返回列表 上一主題 發帖

請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改

回復 52# devidlin
你把你目前 DDE 運作的 Excel 傳過來 (My E-Mail)
然後再告訴我 台指價差,摩台價差,摩減台漲跌幅,振幅等四項的運算公式。

TOP

回復 50# devidlin


    請教C大的EMAIL?
devidlin

TOP

回復 55# devidlin


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

元大-盤中DDE紀錄1015.zip (22.34 KB)

devidlin

TOP

回復 55# devidlin
交給你了。 (ThisWorkbook)
元大-盤中DDE紀錄1015.rar (22.51 KB)
01.PNG
2012-10-15 14:03

TOP

回復 56# c_c_lai


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

TOP

回復 57# devidlin
如你所言,可能就要透過 VB、或是其它語言工具 來完成了。
倘若只是土法煉鋼,那就是在 Excel 內另尋一區塊將此四個
運算放在一起,當作是一個標的來檢視。

TOP

回復 57# devidlin
類似用時鐘方式或是一個方塊在右邊方式提醒注意
如圖嗎?

EX1.GIF
2012-10-15 17:13


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

ThisWorkbook模組的程式碼
  1. Private Sub Workbook_Open()
  2.     UserForm1.Show
  3. End Sub
複製代碼

附檔上 插入一UserForm(表單)  系統自動命名 (UserForm1)
UserForm(表單)的程式碼
  1. Option Explicit
  2. Dim Msg As Boolean
  3. Private Sub UserForm_Initialize()   'UserForm(表單) 初始化時的事件程序
  4.     '請先在UserForm(表單) 加入4個 Label控制項
  5.     '系統自動命名(Label1, Label2 , Label3 , Label4)
  6.     '請自行調整 4個 Label控制項 的位置,長,寬,高
  7.     Dim i As Integer
  8.     For i = 1 To 4
  9.         With Me.Controls("Label" & i)
  10.             .TextAlign = 1 ' fmTextAlignCenter
  11.             .Font.Bold = True
  12.             .Font.Size = 15
  13.             .SpecialEffect = fmSpecialEffectEtched
  14.         End With
  15.     Next
  16. End Sub
  17. Private Sub UserForm_Activate()       'UserForm(表單) 顯示時的事件程序
  18.     Dim xlTile As String, S As String
  19.     S = Space(5)
  20.     Application.Visible = False
  21.     Do Until Msg = True
  22.         DoEvents
  23.         If Time < #8:00:00 AM# Then
  24.             xlTile = "尚未開盤"
  25.         ElseIf Time > #1:30:00 PM# Then
  26.             xlTile = "已收盤"
  27.         Else
  28.             xlTile = "營業中"
  29.         End If
  30.         If Not Msg Then Caption = Format(Now, "Dddddd ttttt ") & xlTile
  31.         If xlTile <> "尚未開盤" Then
  32.             Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
  33.             Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
  34.             Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
  35.             Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
  36.         End If
  37.     Loop
  38. End Sub
  39. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'UserForm(表單) 關閉時的事件程序
  40.     Msg = True
  41.     Application.Visible = True
  42. End Sub
複製代碼

TOP

回復 59# GBKEE
  1.     If xlTile <> "尚未開盤" Then
  2.         Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
  3.         Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
  4.         Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
  5.         Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
  6.     End If
複製代碼
須更正為:
  1.     If xlTile <> "尚未開盤" Then
  2.         Label1.Caption = S & Sheet2.[K1] & S & Round(Sheet2.[K2], 3)
  3.         Label2.Caption = S & Sheet2.[L1] & S & Round(Sheet2.[L2], 3)
  4.         Label3.Caption = S & Sheet2.[M1] & S & Round(Sheet2.[M2], 3)
  5.        Label4.Caption = S & Sheet2.[N1] & S & Round(Sheet2.[N2], 3)
  6.     End If
複製代碼
否則會出現錯誤訊息。

TOP

回復 60# c_c_lai


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

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

TOP

回復 61# devidlin


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

TOP

        靜思自在 : 受人點水之恩,須當湧泉以報。
返回列表 上一主題