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

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

CA199

帖子
7 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
window7 
軟體版本
office2010 
閱讀權限
10 
性別
女 
來自
taipei 
註冊時間
2012-11-7 
最後登錄
2013-9-15 
83# 跳轉到 »
發表於 2012-11-8 11:54 | 只看該作者
本帖最後由 GBKEE 於 2013-9-8 20:19 編輯

C_C lai 大大:

這個討論區真不錯~
我是新學生,因權限不足,請問可以把自動記錄每分鐘委買賣均值.rar檔案及元大盤中DDE紀錄寄至下列信箱嗎?
******感激不盡~~~
CA199敬上
這是公開的論壇,個人的Mail,請在個人資料裡顯示
行動是最踏實的幸福

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
82#
發表於 2012-10-17 09:06 | 只看該作者
回復 83# GBKEE
謝謝您！
目前手頭上的三台電腦都是跑 2010 版的，
如果在上頭再安裝 2003 版是會亂掉的。
我會想辦法去找部 2003 版本的試試看！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
81#
發表於 2012-10-17 08:18 | 只看該作者
回復 82# c_c_lai
再試試看
如真的不可以 那請在 2003版本下試試看
  1. Dim AA As New Application
  2. Sub Workbook_Open()
  3.     Application.Visible = False
  4.     With AA
  5.         .Visible = True
  6.         .WindowState = xlNormal
  7.         .Left = 242
  8.         .Top = 59
  9.         .Width = 648
  10.         .Height = 401
  11.         With .FileDialog(msoFileDialogFilePicker)
  12.             .Show
  13.             If .SelectedItems.Count > 0 Then
  14.                 .Parent.Workbooks.Open (.SelectedItems(1))
  15.             Else
  16.                 .Parent.Workbooks.Add
  17.             End If
  18.         End With
  19.     End With
  20.     UserForm1.Show
  21. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
80#
發表於 2012-10-17 07:43 | 只看該作者
回復 81# GBKEE
表單 (UserForm) 開啟後，是無法再開啟其它 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兔年全勤獎章
79#
發表於 2012-10-16 20:33 | 只看該作者
回復 80# devidlin
它還是Excel 檔案


test.rar (19.99 KB)

TOP

devidlin

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

論壇贊助勳章
78#
發表於 2012-10-16 19:01 | 只看該作者
回復 79# GBKEE


    G大你好，我想大大好人做到底，幫忙用vb打包一下，因小地手邊沒有Visual Basic可以嗎?     謝 謝。
devidlin

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
77#
發表於 2012-10-16 16:01 | 只看該作者
本帖最後由 GBKEE 於 2012-10-16 16:03 編輯

回復 78# devidlin
依55# 的附檔 很簡單的自己練習看看,
表單要先弄好的,將程式碼更新為如下,存檔後再開啟看看.
ThisWorkbook程式碼
  1. Dim AA As New Application   '新的Excel 物件
  2. Sub Workbook_Open()
  3.     Application.Visible = False
  4.     With AA
  5.         .Visible = True
  6.         .WindowState = xlNormal
  7.         .Left = 242
  8.         .Top = 59
  9.         .Width = 648
  10.         .Height = 401
  11.     End With
  12.     UserForm1.Show
  13. End Sub
複製代碼
UserForm(表單)程式碼
  1. Dim Msg As Boolean
  2. Private Sub UserForm_Initialize()   'UserForm(表單) 初始化時的事件程序
  3.     '請先在UserForm(表單) 加入4個 Label控制項
  4.     '系統自動命名(Label1, Label2 , Label3 , Label4)
  5.     '請自行調整 4個 Label控制項 的位置,長,寬,高
  6.     Dim i As Integer
  7.     StartUpPosition = 0
  8.     Top = 1
  9.     For i = 1 To 4
  10.         With Me.Controls("Label" & i)
  11.             .TextAlign = 1 ' fmTextAlignCenter
  12.             .Font.Bold = True
  13.             .Font.Size = 15
  14.             .SpecialEffect = fmSpecialEffectEtched
  15.         End With
  16.     Next
  17. End Sub
  18. Private Sub UserForm_Activate()       'UserForm(表單) 顯示時的事件程序
  19.     Dim xlTile As String, S As String
  20.     S = Space(5)
  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.     ThisWorkbook.Save
  43.     Application.Quit
  44. End Sub
複製代碼

TOP

devidlin

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

論壇贊助勳章
76#
發表於 2012-10-16 14:59 | 只看該作者
回復 77# GBKEE


    G大你好，可以試做1個範例來參考嗎?謝謝。
devidlin

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
75#
發表於 2012-10-16 13:46 | 只看該作者
回復 76# devidlin
那要在VB 中製成
取巧方式: 執行此檔案後, 可如  59# 的圖片 另開Excel程式,執行其他Excel活頁簿 .

TOP

devidlin

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

論壇贊助勳章
74#
發表於 2012-10-16 11:56 | 只看該作者
回復 69# GBKEE


    請問c大，此excel檔，可以打包成一個執行檔來用嗎?   謝謝。
devidlin

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
1 ...45678910111213... 14
返回列表 上一主題