標題:
[發問]
請問如何用EXCEL自動儲存每分鐘資料到指定儲存格中呢
[打印本頁]
作者:
jojomo
時間:
2010-11-24 19:17
標題:
請問如何用EXCEL自動儲存每分鐘資料到指定儲存格中呢
您好：
請問小妹有個excel檔案當中已經有DDE連結，而其中有個值是會每分鐘變動一次的，
想請問大大如何讓這個每分鐘變動的值自動儲存在範例中的A5:A34儲存格中呢??
在麻辣家族中爬了好幾篇文章，可是把文章中的程式碼貼來貼去...小妹的檔案還是一直跳出偵錯視窗...
真的是很灰心~~
還有勞各位大大幫幫小妹了
作者:
沙拉油
時間:
2010-11-30 20:47
妳貼了什麼程式碼貼出來看看好嗎？
作者:
GBKEE
時間:
2010-12-1 09:28
回復
1#
jojomo
請參考
http://gb.twbts.com/index.php?topic=11429.0
作者:
jojomo
時間:
2010-12-9 17:16
各位大大好~~
以下是小妹自己參考範例試寫的迴圈程式，想要在每次DDE資料格有異動的時候就自動複製到指定的儲存格中，但是每次測試就會當掉，不知道是哪裡有錯誤呢??請問遇到這樣的狀況要怎麼讓程式停下來?
原本是希望當有最新的DDE值時，就自動複製到該列後的資料列中，但是就會呈現當掉的狀態...
還有勞好心的大大看一下了~~~謝謝您~~
Private Sub Worksheet_Calculate()
Dim a As Integer
Dim b As Integer
Dim t As String
a = 6
b = 6
For a = 6 To 35 Step 1
If Worksheets("sheet1").Cells(a, 1) = Worksheets("sheet1").Cells(3, 7) Then
For b = a To 35 Step 1
Worksheets("sheet1").Cells(b, 2) = Worksheets("sheet1").Cells(2, 1).Value
Worksheets("sheet1").Cells(b, 3) = Worksheets("sheet1").Cells(2, 2).Value
Worksheets("sheet1").Cells(b, 4) = Worksheets("sheet1").Cells(2, 3).Value
Next b
End If
Next a
End Sub
作者:
Hsieh
時間:
2010-12-9 20:21
回復
4#
jojomo
把你的時間函數拿掉，避免堆疊空間不足
Private Sub Worksheet_Calculate()
[A65536].End(xlUp).Offset(1, 0).Resize(, 4) = Array(Format(Now, "hh:mm"), [A2].Value, [B2].Value, [C2].Value)
End Sub
複製代碼
作者:
jojomo
時間:
2010-12-14 22:44
感謝各位大大的回覆與幫助，尤其特別感謝Hsieh的熱心幫忙~~~真的很謝謝您~~
因為等級不夠，所以看別篇文章的程式碼卻沒法下載檔案下來學習，小妹真的是看得霧沙沙~
不過我會繼續努力~希望也有機會能熱心幫助有需要的朋友~~~努力努力~~
真的很謝謝大家~~~這裡真是好地方阿~~~
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
