藍天麗池

回復 9# GBKEE

委買賣分析.rar (84.66 KB)

下載次數: 9

2015-2-7 10:01

如果G大方便的話用這個附件改，原本附件裡面的程式是設定一定時間向下複製，我想要將功能改成以下那樣

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

GBKEE

回復 11# 藍天麗池
試試看

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

複製代碼

藍天麗池

回復 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

GBKEE

回復 13# 藍天麗池
你要的不是 B2:C101的值每秒一直重新複製到D2:E101

1. Sub RecordPrice()
   
2.     With Sheets("rtd")
   
3.         .[D2:E101].Value = .[B2:C101].Value
   
4.     End With
   
5. End Sub

複製代碼

藍天麗池

回復 14# GBKEE


   對阿，我昨天將程式改這樣好像不能run，我在試試看好了，謝謝G大

藍天麗池

回復 5# GBKEE

G大好久不見，有空的話可以幫幫我嗎??
    http://forum.twbts.com/thread-15967-1-1.html

藍天麗池

回復 9# GBKEE

http://forum.twbts.com/thread-15967-1-1.html
G大我附檔了，再麻煩妳看看，謝謝