返回列表 上一主題 發帖

[發問] 請問如何用EXCEL自動儲存每分鐘資料到指定儲存格中呢

jojomo

帖子
5 
主題
2 
精華
0 
積分
35 
點名
0  
作業系統
XP 
軟體版本
Office 
閱讀權限
10 
性別
女 
註冊時間
2010-10-8 
最後登錄
2012-2-10 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-11-24 19:17 | 只看該作者

[發問] 請問如何用EXCEL自動儲存每分鐘資料到指定儲存格中呢

您好：

請問小妹有個excel檔案當中已經有DDE連結，而其中有個值是會每分鐘變動一次的，
想請問大大如何讓這個每分鐘變動的值自動儲存在範例中的A5:A34儲存格中呢??

在麻辣家族中爬了好幾篇文章，可是把文章中的程式碼貼來貼去...小妹的檔案還是一直跳出偵錯視窗...
真的是很灰心~~
還有勞各位大大幫幫小妹了

Auto.zip (4.84 KB)

收藏 分享

jojomo

帖子
5 
主題
2 
精華
0 
積分
35 
點名
0  
作業系統
XP 
軟體版本
Office 
閱讀權限
10 
性別
女 
註冊時間
2010-10-8 
最後登錄
2012-2-10 
6#
發表於 2010-12-14 22:44 | 只看該作者
感謝各位大大的回覆與幫助，尤其特別感謝Hsieh的熱心幫忙~~~真的很謝謝您~~
因為等級不夠，所以看別篇文章的程式碼卻沒法下載檔案下來學習，小妹真的是看得霧沙沙~
不過我會繼續努力~希望也有機會能熱心幫助有需要的朋友~~~努力努力~~

真的很謝謝大家~~~這裡真是好地方阿~~~

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2010-12-9 20:21 | 只看該作者
回復 4# jojomo

把你的時間函數拿掉，避免堆疊空間不足
  1. Private Sub Worksheet_Calculate()
  2. [A65536].End(xlUp).Offset(1, 0).Resize(, 4) = Array(Format(Now, "hh:mm"), [A2].Value, [B2].Value, [C2].Value)
  3. End Sub
複製代碼
學海無涯_不恥下問

TOP

jojomo

帖子
5 
主題
2 
精華
0 
積分
35 
點名
0  
作業系統
XP 
軟體版本
Office 
閱讀權限
10 
性別
女 
註冊時間
2010-10-8 
最後登錄
2012-2-10 
4#
發表於 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

Auto.zip (9.04 KB)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-12-1 09:28 | 只看該作者
回復 1# jojomo
請參考    http://gb.twbts.com/index.php?topic=11429.0

TOP

沙拉油
　暱稱: 沙拉油
　頭銜: 正港A水電工

超級版主Rank: 8Rank: 8

帖子
44 
主題
2 
精華
0 
積分
49 
點名
0  
作業系統
Windows XP SP3 
軟體版本
Office 2003 
閱讀權限
150 
性別
男 
來自
呆丸 
註冊時間
2010-5-1 
最後登錄
2013-1-27 

論壇貢獻勳章終身榮譽會員勳章
2#
發表於 2010-11-30 20:47 | 只看該作者
妳貼了什麼程式碼貼出來看看好嗎？
一卵三四、驚到嘸代誌

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題