1 ...45678910111213... 14
返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
51# 跳轉到 »
發表於 2012-10-15 11:06 | 只看該作者
回復 52# devidlin
你把你目前 DDE 運作的 Excel 傳過來 (My E-Mail)
然後再告訴我 台指價差，摩台價差，摩減台漲跌幅，振幅等四項的運算公式。

TOP

devidlin

帖子
58 
主題
3 
精華
0 
積分
66 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-21 
最後登錄
2019-2-26 

論壇贊助勳章
52#
發表於 2012-10-15 11:21 | 只看該作者
回復 50# devidlin


    請教C大的EMAIL?
devidlin

TOP

devidlin

帖子
58 
主題
3 
精華
0 
積分
66 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-21 
最後登錄
2019-2-26 

論壇贊助勳章
53#
發表於 2012-10-15 12:01 | 只看該作者
回復 55# devidlin


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

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

devidlin

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
54#
發表於 2012-10-15 14:03 | 只看該作者
回復 55# devidlin
交給你了。 (ThisWorkbook)
元大-盤中DDE紀錄1015.rar (22.51 KB)

TOP

devidlin

帖子
58 
主題
3 
精華
0 
積分
66 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-21 
最後登錄
2019-2-26 

論壇贊助勳章
55#
發表於 2012-10-15 14:24 | 只看該作者
回復 56# c_c_lai


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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
56#
發表於 2012-10-15 16:32 | 只看該作者
回復 57# devidlin
如你所言，可能就要透過 VB、或是其它語言工具 來完成了。
倘若只是土法煉鋼，那就是在 Excel 內另尋一區塊將此四個
運算放在一起，當作是一個標的來檢視。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
57#
發表於 2012-10-15 17:19 | 只看該作者
回復 57# devidlin
類似用時鐘方式或是一個方塊在右邊方式提醒注意
如圖嗎?



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

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
58#
發表於 2012-10-15 18:53 | 只看該作者
回復 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

devidlin

帖子
58 
主題
3 
精華
0 
積分
66 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-21 
最後登錄
2019-2-26 

論壇贊助勳章
59#
發表於 2012-10-15 19:18 | 只看該作者
回復 60# c_c_lai


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

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

TOP

devidlin

帖子
58 
主題
3 
精華
0 
積分
66 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-21 
最後登錄
2019-2-26 

論壇贊助勳章
60#
發表於 2012-10-15 19:30 | 只看該作者
回復 61# devidlin


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

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
1 ...45678910111213... 14
返回列表 上一主題