麻辣家族討論版版 » Excel程式區 » 如何定時抓取特定儲存格數字複製到另一儲存格？

返回列表下一主題上一主題發帖

[發問] 如何定時抓取特定儲存格數字複製到另一儲存格？

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: win XP
軟體版本: SP 2.0
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2010-7-22
最後登錄: 2015-7-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-1-28 17:33 | 只看該作者

[發問] 如何定時抓取特定儲存格數字複製到另一儲存格？

問題：A1儲存格是DDE某一數字資料，它會不斷跳動。
我要在時間「09：00：15」（9時零15秒）將A1儲存格數字自動填入B1儲存格，
在時間「09：00：30」（9時零30秒）將A1儲存格數字自動填入C1儲存格，
在時間「09：00：45」（9時零45秒）將A1儲存格數字自動填入D1儲存格，
在時間「09：01：00」（9時1分0秒）將A1儲存格數字自動填入E1儲存格，
在時間「09：01：15」（9時1分15秒）將A1儲存格數字自動填入F1儲存格，
.............................

請教各位先進高手VBA不知寫？無限感恩！

收藏

中學生 Rank: 2

帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

2^#

發表於 2013-1-29 11:58 | 只看該作者

小弟不是很會寫,你參考看看,謝謝!

Private Sub Worksheet_Change(ByVal Target As Range)
LastRow = ActiveSheet.[b65536].End(xlUp).Row
If Target.Address = "$A$1" Then
ActiveSheet.Range("b1").Offset(LastRow, 0) = Format([a1].Value, "hh:mm:ss")
End If
End Sub

複製代碼

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: win XP
軟體版本: SP 2.0
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2010-7-22
最後登錄: 2015-7-14

3^#

發表於 2013-1-29 13:57 | 只看該作者

回復 2# cmo140497

感謝大大協助，但是不動如山，無法運作，不知何故？

中學生 Rank: 2

帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

4^#

發表於 2013-1-29 15:12 | 只看該作者

回復 3# suneyes168

手動改一下A1的值,您試試看,感恩!

20130129.zip (10.94 KB)

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: WIN7
軟體版本: 7
閱讀權限: 10
註冊時間: 2015-5-5
最後登錄: 2016-1-5

5^#

發表於 2016-1-5 17:25 | 只看該作者

多謝分享...目前正需要

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

返回列表下一主題上一主題