請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 64# GBKEE
我將
1. Private Sub showUsrForm() 改成 Sub showUsrForm()
2. 下面兩個涵式各加入showUsrForm。- Sub 摩台價差()
- If UserForm1.Visible = False Then
- UserForm1.Show
- showUsrForm
- Else
- UserForm1.Hide
- End If
- End Sub
- Private Sub UserForm_Initialize() ' UserForm(表單) 初始化時的事件程序
- Dim i As Integer
- ' 請先在UserForm(表單) 加入4個 Label控制項
- ' 系統自動命名(Label1, Label2 , Label3 , Label4)
- ' 請自行調整 4個 Label控制項 的位置,長,寬,高
-
- For i = 1 To 4
- With Me.Controls("Label" & i)
- .TextAlign = 1 ' fmTextAlignCenter
- .Font.Bold = True
- .Font.Size = 15
- .SpecialEffect = fmSpecialEffectEtched
- End With
- Next
- If Caption = "UserForm1" Then Caption = Format(Now, "Dddddd ttttt ")
- ThisWorkbook.showUsrForm
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
62#
發表於 2012-10-15 20:32
| 只看該作者
回復 60# c_c_lai
否則會出現錯誤訊息 是資料不正確嗎?
請改用55#的檔案試試看, 或是 sheet1 改成 DEE 看看
回復 63# c_c_lai
當你關閉(X)UserForm(表單)後，你可以透過 "摩台價差"按鈕再次開啟
有修正的必要
如隨後再按鈕: 開啟的表單, 會停留在. " 資料載入中 ............" 沒有執行 ThisWorkbook模組中 Sub showUsrForm() |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
61#
發表於 2012-10-15 19:39
| 只看該作者
回復 61# devidlin
元大-盤中DDE紀錄1015一經啟動，便同時會開啟UserForm(表單)，
一旦開啟UserForm(表單)後，所有畫面控制權便由表單掌控，此時是
無法切換工作表單的 (如想要閱覽非目前工作表單之內容)。
為解決此困惱，我增加了一個按鈕 "摩台價差"，當你關閉(X)UserForm(表單)後，
你可以透過 "摩台價差"按鈕再次開啟它，此動作是不會引響 DDE 之正常匯入。
雖然會感覺有些不方便，但習慣就好了。
同時在此也要謝謝 GBKEE 版大的協助與指導！
 元大-盤中DDE紀錄1015.rar (30.17 KB)
|
|
|
|
|
|
|
|
- 帖子
- 58
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-21
- 最後登錄
- 2019-2-26
|
60#
發表於 2012-10-15 19:30
| 只看該作者
回復 61# devidlin
已經可以了，盤中會隨時變化嗎? |
|
|
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
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
58#
發表於 2012-10-15 18:53
| 只看該作者
回復 59# GBKEE - 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
- 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
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
57#
發表於 2012-10-15 17:19
| 只看該作者
回復 57# devidlin
類似用時鐘方式或是一個方塊在右邊方式提醒注意
如圖嗎?
程式碼複製後存檔,再開檔試看看
ThisWorkbook模組的程式碼
- Private Sub Workbook_Open()
- UserForm1.Show
- End Sub
附檔上 插入一UserForm(表單) 系統自動命名 (UserForm1)
UserForm(表單)的程式碼
- 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
|
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
56#
發表於 2012-10-15 16:32
| 只看該作者
回復 57# devidlin
如你所言，可能就要透過 VB、或是其它語言工具 來完成了。
倘若只是土法煉鋼，那就是在 Excel 內另尋一區塊將此四個
運算放在一起，當作是一個標的來檢視。 |
|
|
|
|
|
|
|
- 帖子
- 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
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
54#
發表於 2012-10-15 14:03
| 只看該作者
|
|
|
|
|
|
|
