標題: [發問] 如何定時將工作表1的儲存格數字複製到工作表2的儲存格？ [打印本頁]

---

作者: litcji    時間: 2016-1-6 05:59     標題: 如何定時將工作表1的儲存格數字複製到工作表2的儲存格？

[發問] 如何定時將工作表1的儲存格數字複製到工作表2的儲存格？
問題：
設置按鍵"開始" "暫停" "結束"
按下"開始"後每隔5秒將
工作表1的A1:A5儲存格數字複製到工作表2的A1:A5
工作表1的B1:B5儲存格數字複製到工作表2的B1:B5
工作表1的C1:C5儲存格數字複製到工作表2的C1:C5
.
.
.
直到工作表1的最後一列
按"暫停"能中斷 按"結束"便停止
.............................
請教各位先進高手VBA不知寫？  無限感恩！

---

作者: yen956    時間: 2016-1-7 15:40

'將本vba貼到Module1
Sub test()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim I As Integer
    Set sh1 = Sheets("Sheet1")    '請自行改成 "工作表1"
    Set sh2 = Sheets("Sheet2")    '請自行改成 "工作表2"
    Application.OnTime Now + TimeValue("00:00:05"), "test"
    For I = 1 To sh1.[A65536].End(xlUp).Row
        sh1.Cells(I, 1).Resize(1, 5).Copy sh2.Cells(I, 1)
    Next
End Sub
'若要結束, 請按 Ctrl+Break

---

作者: litcji    時間: 2016-1-8 02:43

感謝yen956大解答
只是 無法每隔5秒複製一列 不曉得是我哪兒弄錯了 執行時瞬間就已全複製

---

作者: qaz200581    時間: 2016-1-8 18:23

加入sleep的指令就可以囉

---

作者: yen956    時間: 2016-1-8 21:23

回復 3# litcji
Sorry, 我會錯意了, 試試看!!
'將本vba貼到Module1
Public cnt As Integer
Sub copy1()
    Dim sh1 As Worksheet, sh2 As Worksheet, x
    Set sh1 = Sheets("Sheet1")    '請自行改成 "工作表1"
    Set sh2 = Sheets("Sheet2")    '請自行改成 "工作表2"
    sh1.Cells(cnt, 1).Resize(1, 5).Copy sh2.Cells(cnt, 1)
    cnt = cnt + 1
    Application.OnTime Now + TimeValue("00:00:05"), "copy1"
End Sub
從 test 開始執行
Sub test()
    cnt = 1  '請改成你的起始列
    copy1
End Sub
'若要結束, 請按 Ctrl+Break

---

作者: litcji    時間: 2016-1-9 00:31

成功...太好了
感謝yen956大協助
讚...讚...讚................讚+10000

---

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