excel - VBA 宏初学者 - 如何使以下代码在任务之间停止和启动？-6ren

excel - VBA 宏初学者 - 如何使以下代码在任务之间停止和启动？

转载作者：行者123 更新时间：2023-12-04 22:30:44

我是一个完全的初学者，没有接受过正规的编码教育。下面给出的是我编写的 VBA 代码。我在启用宏的 Excel 工作表中运行它。在每个 Action 之后，代码会等待 10 分钟，然后再进行下一个 Action 。但是，在那 10 分钟内，我无法对 Excel 表进行任何手动更改，因为宏一直处于“等待模式”。有什么办法可以让宏停止运行，然后在 10 分钟后重新开始？这样我就可以在过渡期间对 Excel 工作表进行更改。

此外，只要输出保持不变，欢迎任何其他优化代码的建议。非常感谢。

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B8").Select
ActiveSheet.Paste
Range("A5").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B14").Select
ActiveSheet.Paste
Range("A11").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B20").Select
ActiveSheet.Paste
Range("A17").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B26").Select
ActiveSheet.Paste
Range("A23").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B32").Select
ActiveSheet.Paste
Range("A29").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B38").Select
ActiveSheet.Paste
Range("A35").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B44").Select
ActiveSheet.Paste
Range("A41").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B47").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B50").Select
ActiveSheet.Paste
Range("A47").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B53").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B56").Select
ActiveSheet.Paste
Range("A53").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B62").Select
ActiveSheet.Paste
Range("A59").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B65").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B68").Select
ActiveSheet.Paste
Range("A65").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B71").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B74").Select
ActiveSheet.Paste
Range("A71").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B77").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B80").Select
ActiveSheet.Paste
Range("A77").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B86").Select
ActiveSheet.Paste
Range("A83").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B89").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B92").Select
ActiveSheet.Paste
Range("A89").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B95").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B98").Select
ActiveSheet.Paste
Range("A95").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B101").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B104").Select
ActiveSheet.Paste
Range("A101").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B107").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B110").Select
ActiveSheet.Paste
Range("A107").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B113").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B116").Select
ActiveSheet.Paste
Range("A113").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B119").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B122").Select
ActiveSheet.Paste
Range("A119").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B125").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B128").Select
ActiveSheet.Paste
Range("A125").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B131").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B134").Select
ActiveSheet.Paste
Range("A131").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B137").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B140").Select
ActiveSheet.Paste
Range("A137").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B143").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B146").Select
ActiveSheet.Paste
Range("A143").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B149").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B152").Select
ActiveSheet.Paste
Range("A149").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B158").Select
ActiveSheet.Paste
Range("A155").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B161").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B164").Select
ActiveSheet.Paste
Range("A161").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B167").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B170").Select
ActiveSheet.Paste
Range("A167").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B173").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B176").Select
ActiveSheet.Paste
Range("A173").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B179").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B182").Select
ActiveSheet.Paste
Range("A179").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B185").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B188").Select
ActiveSheet.Paste
Range("A185").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B191").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B194").Select
ActiveSheet.Paste
Range("A191").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B197").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B200").Select
ActiveSheet.Paste
Range("A197").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B203").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B206").Select
ActiveSheet.Paste
Range("A203").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B209").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B212").Select
ActiveSheet.Paste
Range("A209").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B215").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B218").Select
ActiveSheet.Paste
Range("A215").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"
Application.Wait DateAdd("s", 580, Now)

Sheets("NSE Data").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Wait DateAdd("s", 15, Now)
Range("B48:V50").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B221").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("NSE Data").Select
Range("B1").Select
Selection.Copy
Sheets("2nd Nov").Select
Range("B224").Select
ActiveSheet.Paste
Range("A221").Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm AM/PM"`

最佳答案

您可以将您的代码分解为更模块化的代码，其中每个子程序都做一件事，并将其与 Application.OnTime 一起使用以按时间间隔执行每个子程序

Option Explicit

Public Sub test()
    Dim t As Date
    t = Time
    Application.OnTime t + TimeSerial(0, 0, 10), "a"
    Application.OnTime t + TimeSerial(0, 0, 20), "b"
End Sub

Public Sub a()   
    Debug.Print "A"   
End Sub

Public Sub b()
    Debug.Print "B"
End Sub

循环执行 5 行:

Option Explicit
Public Sub test()
    Dim t As Date, i As Long
    For i = 1 To 5
        t = Time
        Application.OnTime t + TimeSerial(0, 0, i * 10), "'a """ & i * 5 & """'"
    Next
End Sub

Public Sub a(ByVal rowNumber As Long)
    Debug.Print Cells(rowNumber, 1).Address
End Sub

关于excel - VBA 宏初学者 - 如何使以下代码在任务之间停止和启动？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/53141186/

文章推荐： excel - 将 HTML 导出到具有不同结果的文本文件

文章推荐： excel - 如何在 dd/mm/yyyy 格式的单元格中获取今天的日期？

文章推荐： forms - 从无脂肪框架中的表单获取数据值

JavaScript () 以下 }
这个问题在这里已经有了答案: standalone parentheses in javascript [duplicate] (5 个答案) 关闭 8 年前。我在学习JavaScript，有时会
mysql - 优化MySQL查询:以下
我是mysql新手，我必须减少以下更新查询的执行时间 UPDATE temp_countcalculations, ( SELECT count(*) as insuffcounts,CRP_
python - 以下 for 循环如何工作？
def escape_html(s): for (i, o) in (("&","&"),(">", ">"),(" "变成 ">"等。关于python - 以下 for 循环
c++ - 以下 if 语句中的条件是做什么的？
if (read(read(cin, data1), data2)) 问题是C++ Primer 5th Edition 的练习。 read 函数定义如下: std::istream &read(st
以下 C 宏会导致问题吗？
我想创建两个宏。其中一个将扩展到函数原型(prototype)和函数内容，另一个将扩展到仅函数原型(prototype)。我正在考虑创建以下内容: #ifdef SOME_CONDITION #def
java - 以下 $in 查询中出现太多参数错误
我正在使用 jongo API - org.jongo.MongoCollection 是类。我有对象 ID 列表并转换为与 ObjectId[] 相同并尝试按如下方式查询 collection.f
java - 以下 ^.*$ 正则表达式匹配什么？
有人可以解释以下正则表达式匹配什么吗？ ^.*$ 谢谢! 最佳答案或者整个字符串或者整行，取决于是否multiline mode被使用。关于java - 以下 ^.*$ 正则表达式匹配什么？，我们
c - 以下 for 循环的功能有何不同
#include void main() { int a,b,c; for(b = c = 10; a = "- FIGURE?, UMKC,XYZHello Folks,TFy!QJ
java - 以下 Sonar 问题的解决方案？
我的代码段中的以下代码行被 Sonar 检测为问题。代码段: final int Pending=1; Sonar 问题: Name 'Pending' must matc
mysql - 以下 SQL 查询的正确解决方案是什么？
Print name of all activities with neither maximum nor minimum number of participants 我尝试了以下查询，但出现错误:
javascript - 以下 JavaScript 构造是否称为闭包？
这个问题在这里已经有了答案: What is this practice called in JavaScript? (7 个回答) 关闭8年前。 (function() { //do stuff
haskell - 以下 foldl 实现有什么问题？
根据任务，我们必须通过 foldr 实现 foldl。通过比较函数签名和 foldl 实现，我得到了以下解决方案: myFoldl :: (a -> b -> a) -> a -> [b] -> a
javascript - 以下 React 组件之间有什么区别？
这个问题在这里已经有了答案: Export an es6 default class inline with definition or at end of file? (1 个回答) 关闭 2 年
c++ - 以下 3 种定义对象的方法是否相同？
据我了解，以下是相同的: Person p{}; // Case 1 Person p = {}; // Case 1.5 我注意到 Person p = Person{}; // Case 2 产生
javascript - 以下 javascript 函数发生了什么
below i have given a javascript code picture `` can any one help me in this code. what do this code.
elasticsearch - 以下 Elasticsearch 查询有什么问题？
我想在标题和正文上搜索全文，并在答案计数上进行过滤。我阅读了elasticsearch documentation for combining filters并构建了此查询。 "query": {
c - 以下 C 代码中是否存在内存泄漏？
它是流动的 C 代码中的内存泄漏吗？ #include int *a; int main() { a = malloc(sizeof(int)*10); return
c - 以下 C 中的声明之间有什么区别？
这两个声明有什么区别: char (*ptr)[N]; 对比 char ptr[][N]; 谢谢。最佳答案 (1)声明 char (*ptr)[N]; ptr 是指向大小为 N 的字符数组的指针下
haskell - 以下 haskell 类型类实例有什么问题？
data II = I Int Int deriving (Show) instance II Show where show I a b = show (a+b) showt.hs:3:2: s
clojure - 以下 clojure 代码如何运行？
我从 clojuredoc 中阅读了关于 condp 的文档。在文档中我找到了以下代码: (condp 一些 [1 2 3 4] #{0 6 7} :>> 公司 #{4 5 9} :>> 十二月 #{

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

excel - VBA 宏初学者 - 如何使以下代码在任务之间停止和启动？