麻辣家族討論版版 » Excel程式區 » 過幾秒出現數據，版上高手幫幫忙

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

過幾秒出現數據，版上高手幫幫忙

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-2-28 22:08 | 只看該作者

過幾秒出現數據，版上高手幫幫忙

Sheet1
A          B
100       50
99       51
98       52
97       53
98       53
97       54
98       53
96       52
.             .
.             .
.             .

請問版上大大，如果我想要讓sheet2每1秒出現sheet1A欄和B欄資料10筆，就是1秒出現A1-A10、B1-B10，下1秒出現A11-A20、B11-B20...以此類推，請問版上大大此VBA要怎麼寫??

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-3-1 15:02 | 只看該作者

回復 1# 藍天麗池

Option Explicit
Dim Rng As Range
Sub Ex()
If Rng Is Nothing Then
Set Rng = Sheet1.[A1:A10]
Else
If Rng.Column = 1 Then
Set Rng = Rng.Offset(, 1).Resize(Rng.Rows.Count)
Else
Set Rng = Rng.Offset(Rng.Rows.Count, -1).Resize(Rng.Rows.Count)
End If
End If
Sheet2.[a1].Resize(Rng.Rows.Count) = Rng.Value
Application.OnTime Time + #12:00:01 AM#, "SHEET1.EX" '執行 SHEET1的EX程式
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

3^#

發表於 2014-3-1 15:14 | 只看該作者

回復 2# GBKEE

G大感謝你的幫忙，但請問一下這個VBA要放在哪裡??我放在sheet2無法執行，煩請G大幫我解答

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2014-3-3 15:21 | 只看該作者

回復 3# 藍天麗池

G大感謝你，我剛剛試了一下，程式可以跑了，但是G大誤會我的意思了，我要的是資料要接著出現
第1秒出現A1-A10，下1秒出現A11-A20，所已過了2秒應該要有20筆，3秒30筆以此類推，G大可以在幫我改一下嗎??感謝

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

5^#

發表於 2014-3-8 11:27 | 只看該作者

回復 2# GBKEE

G大，可以幫我修改看看嗎??
第1秒出現A1-A10，下1秒出現A11-A20，所已過了2秒應該要有20筆，3秒30筆以此類推，G大可以在幫我改一下嗎??感謝

靜思自在 : 小事不做、大事難成。

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