[發問] 如何定時將工作表1的儲存格數字複製到工作表2的儲存格？

litcji

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

litcji

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

yen956

回復 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

qaz200581

加入sleep的指令就可以囉

litcji

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

yen956

'將本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