Vba 循环下拉列表,但需要包含一个;“等等”;功能

Vba 循环下拉列表,但需要包含一个;“等等”;功能,vba,excel,bloomberg,Vba,Excel,Bloomberg,我试图构建的宏本质上告诉excel: 从下拉列表中选择一个项目,该项目将更改另一个单元格的值 然后将该值复制并粘贴到另一张图纸上 向下移动到下拉列表中的下一项 重复 我使用了下面的代码。然而,当我在下拉列表中选择一个新项目时,我也在使用彭博社(Bloomberg)来提取数据。提取数据需要几秒钟的时间。现在,代码不会“等待”彭博社在粘贴值之前提取数据因此,我的问题是,如何合并一段代码,让excel在开始下一步之前,每次从下拉列表中选择一个新项目时都要等待20秒左右。 Sub DebtAutopul

我试图构建的宏本质上告诉excel:

  • 从下拉列表中选择一个项目,该项目将更改另一个单元格的值
  • 然后将该值复制并粘贴到另一张图纸上
  • 向下移动到下拉列表中的下一项
  • 重复
  • 我使用了下面的代码。然而,当我在下拉列表中选择一个新项目时,我也在使用彭博社(Bloomberg)来提取数据。提取数据需要几秒钟的时间。现在,代码不会“等待”彭博社在粘贴值之前提取数据因此,我的问题是,如何合并一段代码,让excel在开始下一步之前,每次从下拉列表中选择一个新项目时都要等待20秒左右。

    Sub DebtAutopull()
    Dim dvCell As Range
    Dim inputRange As Range
    Dim c As Range
    Dim i As Long
    
    Set dvCell = Worksheets("PULLER").Range("B2")
    Set inputRange = Evaluate(dvCell.Validation.Formula1)
    
    i = 1
    Application.ScreenUpdating = False
    For Each c In inputRange
        dvCell = c.Value
    
        Worksheets("PASTE").Cells(i, "E").Value = Worksheets("PULLER").Range("D2").Value
        i = i + 1
    
    Next c
    Application.ScreenUpdating = True
    
    End Sub
    
    Application.Wait(Now+TimeValue(“0:00:20”))
    您需要暂停的地方。

    谷歌搜索“Excel VBA Wait”会在microsoft和stackoverflow上返回答案。可能重复的