123456
返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
41# 跳轉到 »
發表於 2013-12-1 16:09 | 顯示全部帖子
回復  c_c_lai


    請問一下您 DDE裡面資料筆數要怎麼改阿 策略資料裡面的筆數越來越多我改了2天都改 ...
coco2376 發表於 2013-12-1 15:59

請附上檔案，"資料筆數要怎麼改？"
不甚明瞭。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
42#
發表於 2013-12-1 16:57 | 顯示全部帖子
回復 110# coco2376

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
43#
發表於 2013-12-1 17:04 | 顯示全部帖子
回復 110# coco2376
這個欄位顯示的數據，是指妳目前已經匯入的資料錄之總列述。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
44#
發表於 2013-12-1 18:02 | 顯示全部帖子
回復 114# coco2376
人生總是會笨一次，第二次便成了老鳥了！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
45#
發表於 2016-6-21 13:54 | 顯示全部帖子
回復 120# areskevin
你設了一個 Public Sub Timer() 的模組的開始，
卻沒有模組的結束 (End Sub)，所以會產生執行之錯誤。
完整的模組應為：
  1. Public Sub Timer()
  2.     Dim Pos, i, HHMM As Integer, RangeStr As String
  3.         
  4.     On Error Resume Next
  5.     Sheets("每分記錄").Cells(2, 4) = Time
  6.    
  7.     HHMM = Hour(Time) * 100 + Minute(Time)
  8.     If (HHMM < 900 Or HHMM > 1333) Then Exit Sub
  9.         
  10.     With Sheets("每分記錄")
  11.         .Cells(2, 2) = .Cells(2, 2) + 1
  12.         Pos = .Cells(2, 2)
  13.         .Cells(Pos, 1) = Time
  14.         .Cells(Pos, 2) = .Cells(2, 2)
  15.         .Cells(Pos, 3) = .Cells(2, 3)
  16.     End With
  17.    
  18.     Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"
  19. End Sub
複製代碼
但是我實在看不懂 With Sheets("每分記錄") 裏頭
究竟在描述甚麼，想要做甚麼。
因為 .Cells(2, 2) 內容實際上指的是 "=(內外盤!D35)"。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
46#
發表於 2016-6-21 17:55 | 顯示全部帖子
回復 120# areskevin
試試看是否是你的提問：
  1. Public Sub Timer()
  2.     Dim Pos As Long, HHMM As Integer
  3.         
  4.     With Sheets("每分記錄")
  5.         HHMM = Hour(Now) * 100 + Minute(Now)
  6.         If (HHMM < 900 Or HHMM > 1333) Then Exit Sub
  7.    
  8.         .Cells(2, 4) = Now
  9.         Pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
  10.         .Cells(Pos, 1) = Format(.Cells(2, 4), "HH:MM:SS")
  11.         .Cells(Pos, 2) = .Cells(2, 2)
  12.         .Cells(Pos, 3) = .Cells(2, 3)
  13.     End With
  14.    
  15.     '  Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"
  16.     Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.Timer"
  17. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
47#
發表於 2016-6-21 19:28 | 顯示全部帖子
回復 120# areskevin
加入自動判斷編列日期之對應寫入，
供你測試參考：
每分記錄2.rar (15.64 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
48#
發表於 2016-6-21 19:32 | 顯示全部帖子
回復 120# areskevin
  1. Public Sub Timer()
  2.     Dim Pos As Long, HHMM As Integer, col As Variant
  3.         
  4.     With Sheets("每分記錄")
  5.         HHMM = Hour(Now) * 100 + Minute(Now)
  6.         If (HHMM < 900 Or HHMM > 1333) Then Exit Sub
  7.    
  8.         .Cells(2, 4) = Now
  9.         '  Time    6/21    6/21    6/22    6/22    6/23    6/23    6/24    6/24    6/25    6/25
  10.         Set col = Range(.Range("A5"), .Cells(5, .[A5].End(xlToRight).Column)).Find(Format(.Cells(2, 4), "M/D"), LookIn:=xlValues, LookAt:=xlWhole)
  11.         Pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
  12.         .Cells(Pos, 1) = Format(.Cells(2, 4), "HH:MM:SS")
  13.         .Cells(Pos, col.Column) = .Cells(2, 2)
  14.         .Cells(Pos, col.Column + 1) = .Cells(2, 3)
  15.     End With
  16.    
  17.     '  Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"
  18.     Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.Timer"
  19. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
49#
發表於 2016-6-22 07:15 | 顯示全部帖子
回復 120# areskevin
為了讓你能實際瞭解 "每分記錄" 的實務撰寫，
做了此應用範例，提供你得以全盤明瞭
如何去實際控制每月每日的真實操盤紀錄寫入
並再你原本的構想而整理出來之程式實際
應用範例，希望你藉此能舉一反三加以發揮。
  1. Public Sub Timer()
  2.     Dim Pos As Long, HHMM As Integer, col As Variant
  3.         
  4.     With Sheets("每分記錄")
  5.         HHMM = Hour(Now) * 100 + Minute(Now)
  6.         If (HHMM < 900 Or HHMM > 1333) Then Exit Sub
  7.    
  8.         .Cells(2, 4) = Now
  9.         '  Set col = Range(.Range("A5"), .Cells(5, .[A5].End(xlToRight).Column)).Find(Format(.Cells(2, 4), "M/D"), LookIn:=xlValues, LookAt:=xlWhole)
  10.         '  Sheets("每分記錄").[A4].End(xlToRight).Column = 15 : Variant/Long
  11.         '  Sheets("每分記錄").[A5].End(xlToRight).Column =  2 : Variant/Long  (合併儲存格易造成 End(xlToRight).Column 判斷錯誤)
  12.         Set col = Range(.Range("A5"), .Cells(5, .[A4].End(xlToRight).Column)).Find(Format(.Cells(2, 4), "M/D"), LookIn:=xlValues, LookAt:=xlWhole)
  13.         Pos = .Cells(Rows.Count, col.Column - 1).End(xlUp).Row + 1    '  均以其相對應之當日 (col) 為基準  
  14.         '  Pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
  15.         .Cells(Pos, col.Column - 1) = Format(.Cells(2, 4), "HH:MM:SS")
  16.         .Cells(Pos, col.Column) = .Cells(2, 2)
  17.         .Cells(Pos, col.Column + 1) = .Cells(2, 3)
  18.     End With
  19.    
  20.     '  Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"
  21.     Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.Timer"
  22. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
50#
發表於 2016-6-22 07:21 | 顯示全部帖子
提供參考：
每分記錄(每月).rar (11.91 KB)

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
123456
返回列表 上一主題