請問版上大大，excel可以執行這種資料的暫存嗎??
- 帖子
- 364
- 主題
- 39
- 精華
- 0
- 積分
- 404
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-12-11
- 最後登錄
- 2024-4-18
|
請問版上大大，excel可以執行這種資料的暫存嗎??
本帖最後由 藍天麗池 於 2015-1-20 18:14 編輯
請問版上大大，如果A1=5、B1=4，下一秒A1=7、B1=1，如果我想要在A2、B2得到這一秒跟前一秒的差值(7-5=2、1-4=-3)要怎麼做?? |
|
|
|
|
|
|
|
- 帖子
- 364
- 主題
- 39
- 精華
- 0
- 積分
- 404
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-12-11
- 最後登錄
- 2024-4-18
|
17#
發表於 2015-12-27 16:17
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 364
- 主題
- 39
- 精華
- 0
- 積分
- 404
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-12-11
- 最後登錄
- 2024-4-18
|
16#
發表於 2015-12-23 19:59
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 364
- 主題
- 39
- 精華
- 0
- 積分
- 404
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-12-11
- 最後登錄
- 2024-4-18
|
15#
發表於 2015-2-8 16:46
| 只看該作者
回復 14# GBKEE
對阿，我昨天將程式改這樣好像不能run，我在試試看好了，謝謝G大 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
14#
發表於 2015-2-8 15:26
| 只看該作者
回復 13# 藍天麗池
你要的不是 B2:C101的值每秒一直重新複製到D2:E101- Sub RecordPrice()
- With Sheets("rtd")
- .[D2:E101].Value = .[B2:C101].Value
- End With
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 364
- 主題
- 39
- 精華
- 0
- 積分
- 404
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-12-11
- 最後登錄
- 2024-4-18
|
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 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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
|
|
|
|
|
|
|
|
- 帖子
- 364
- 主題
- 39
- 精華
- 0
- 積分
- 404
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-12-11
- 最後登錄
- 2024-4-18
|
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大可以將每秒寫入的程式碼順便寫在裡面嗎??寫時間的程式我都不太熟，感謝) |
|
|
|
|
|
|
|
- 帖子
- 364
- 主題
- 39
- 精華
- 0
- 積分
- 404
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-12-11
- 最後登錄
- 2024-4-18
|
10#
發表於 2015-1-31 10:17
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
9#
發表於 2015-1-30 13:26
| 只看該作者
回復 8# 藍天麗池
程式碼已更新.
由於眼睛長時間的盯看螢幕,急需休養,所以這個月每天開機的時間,僅是看mail,
偶爾還是會在論壇看看. |
|
|
|
|
|
|
|
