標題: 過幾秒出現數據，版上高手幫幫忙 [打印本頁]

---

作者: 藍天麗池    時間: 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要怎麼寫??

---

作者: GBKEE    時間: 2014-3-1 15:02

回復 1# 藍天麗池

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

複製代碼

---

作者: 藍天麗池    時間: 2014-3-1 15:14

回復 2# GBKEE


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

---

作者: 藍天麗池    時間: 2014-3-3 15:21

回復 3# 藍天麗池


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

---

作者: 藍天麗池    時間: 2014-3-8 11:27

回復 2# GBKEE


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)