返回列表 上一主題 發帖

[發問] DDE每分鐘記錄的資料排序問題

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
1# 跳轉到 »
發表於 2018-4-9 10:08 | 顯示全部帖子
請教一下!  
我跑了一下這支VBA， 它只要每記錄一次資料 就會發出提示聲音一次 同時頁面也會往下跑，
要如何讓頁面不往下跑 和關閉提示的聲音?

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
2#
發表於 2018-4-9 10:59 | 顯示全部帖子
是我記錄的資料比較多  修改一下控制頁面 的行數， 頁面就不會往下跳了!
  ActiveWindow.ScrollRow = xRow - 18 '讓最新資料保持在可見視窗中

修改 -18 的值就可以了!

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
3#
發表於 2018-4-9 17:39 | 顯示全部帖子
找到聲音的指令了!  在Beep 前面加 '       就關掉聲音了!
   ThisWorkbook.Save   '存檔
   'Beep

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
4#
發表於 2018-4-18 13:48 | 顯示全部帖子
請教一下!
我想用pcboy大的程式 增加另一個時段 StartTime 14:59:50  /  EndTime 隔日 05:00:10， 也就是加入午後盤。 程式碼要如何改?

<pcboy大 的程式碼 如下>

Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("Sheet1")
StartTime = "08:44:50"  '開盤時間（提早十秒開始，才可記錄開盤量價）"08:44:50"
EndTime = "21:45:10"    '收盤時間（延後十秒停止記錄）此為測試用時間，請自行更改正式時間 "13:45:10"
End Sub

Sub 自動記錄()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
    Sht1.[O8] = "已過收盤"
    uMode = 0
    Exit Sub
End If

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題