c_c_lai

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

devidlin

回復 50# devidlin


    請教C大的EMAIL?

devidlin

回復 55# devidlin


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

c_c_lai

回復 55# devidlin
交給你了。 (ThisWorkbook)
元大-盤中DDE紀錄1015.rar (22.51 KB)

下載次數: 49

2012-10-15 14:02

下載 (56.94 KB)

2012-10-15 14:03

devidlin

回復 56# c_c_lai


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

c_c_lai

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

GBKEE

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

下載 (94.31 KB)

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

複製代碼

c_c_lai

回復 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

複製代碼

否則會出現錯誤訊息。

devidlin

回復 60# c_c_lai


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

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

devidlin

回復 61# devidlin


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