DDE每分鐘記錄的資料排序問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » DDE每分鐘記錄的資料排序問題

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 11
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 10
註冊時間: 2018-6-9
最後登錄: 2019-12-10

8^# 跳轉到 »

發表於 2018-6-17 05:15 | 只看該作者

回復 pcboy60 修改為試試看。
c_c_lai 發表於 2018-3-10 05:09

冒昧請教...若這個程式中的時間...

原本是1 分...要改30秒記錄一次?不知要如何修改

If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then

煩請指導,謝謝

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 0
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

7^#

發表於 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

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 0
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

6^#

發表於 2018-4-9 17:39 | 只看該作者

找到聲音的指令了! 在Beep 前面加 ' 就關掉聲音了!
ThisWorkbook.Save '存檔
'Beep

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 0
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

5^#

發表於 2018-4-9 10:59 | 只看該作者

是我記錄的資料比較多修改一下控制頁面的行數，頁面就不會往下跳了!
ActiveWindow.ScrollRow = xRow - 18 '讓最新資料保持在可見視窗中

修改 -18 的值就可以了!

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 0
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

4^#

發表於 2018-4-9 10:08 | 只看該作者

請教一下!
我跑了一下這支VBA，它只要每記錄一次資料就會發出提示聲音一次同時頁面也會往下跑，
要如何讓頁面不往下跑和關閉提示的聲音?

中學生 Rank: 2

帖子: 3
主題: 1
精華: 0
積分: 54
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2018-1-4
最後登錄: 2026-8-6

2023年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

3^#

發表於 2018-3-12 09:28 | 只看該作者

回復 2# c_c_lai

c_c_lai大大，非常感謝您，我再試試看~

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2018-3-10 05:09 | 只看該作者

回復 1# pcboy60

Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value

複製代碼

修改為

Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value

複製代碼

試試看。

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。

返回列表下一主題上一主題