返回列表 上一主題 發帖

[發問] 請問如何用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 
2#
發表於 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

jojomo

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

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

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題