請問版上大大，excel可以執行這種資料的暫存嗎??

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

11^# 跳轉到 »

發表於 2015-2-7 09:51 | 只看該作者

本帖最後由藍天麗池於 2015-2-7 10:05 編輯

回復 9# GBKEE

委買賣分析.rar (84.66 KB) 如果G大方便的話用這個附件改，原本附件裡面的程式是設定一定時間向下複製，我想要將功能改成以下那樣

G大我又來請教你了，如果要寫一個程式將B2:C101的值每秒一直重新複製到D2:E101(因為資料會一直變動，所以程式要一直執行從9:00執行到13:30分)，請教一下G大要如何寫??(G大可以將每秒寫入的程式碼順便寫在裡面嗎??寫時間的程式我都不太熟，感謝)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2015-2-7 16:13 | 只看該作者

回復 11# 藍天麗池
試試看

Sub 時間()
'將B2:C101的值每秒一直重新複製到D2:E101
With Sheets("rtd")
.[D2:E101].Value = .[B2:C101].Value
End With
'從9:00執行到13:30分
If Time > #1:30:00 PM# Then Exit Sub '時間大於>1:30 離開程式
Application.OnTime Time + TimeValue("00:00：01"), "時間"
End Sub
Sub AUTO_OPEN() '一般模組於檔案開啟時自動執行的程式
If Time <= #9:00:00 AM# Then '9:00 之前
Application.OnTime TimeValue("09:00"), "時間"
ElseIf Time >= #9:00:00 AM# And Time <= #1:30:00 PM# Then '9:00 ~13:30 間
時間 '
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

13^#

發表於 2015-2-7 20:58 | 只看該作者

回復 12# GBKEE

G大抱歉，如果是附件改的話本身裡面就有設定時間開關了，那請教一下要怎麼把以下的部分換成我要的程式嗎??
Sub RecordPrice()
Dim WR As Long
Dim I As Byte

WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 5
Cells(WR, I) = Cells(2, I)
Next 'I
End Sub

TOP

GBKEE