Tag: 延迟

Excel VBA循环连续复制/粘贴延迟

我已经有下面的代码成功地将Sheet1上的一行复制并粘贴到Sheet2上的下一个打开的行上。 该行的数据从外部应用程序导入并不断更新，从而创build历史logging。 我已经尝试了几种方法来循环这个动作，并且失败了。 目标：使用button点击或按键退出循环的选项以.25秒延迟循环该代码。 延迟比退出条件更重要，因为如果需要的话，我可以使用Esc。 Private Sub START_Click() Application.ScreenUpdating = False Dim copySheet As Worksheet Dim pasteSheet As Worksheet Set copySheet = Worksheets("Sheet1") Set pasteSheet = Worksheets("Sheet2") copySheet.Range("A23:L23").Copy pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

在条件格式化之前刷新单元格值

我有一个工作表，显示形状的数据看起来不错。 这些形状只是引用数据分段表中的单元格。 暂存区域中的数据使用getpivotdata公式来查找数据。 在我的显示板上，向用户显示值的形状，还有一个combobox可以更改数据透视表。 数据透视表更改后，它将更新暂存区域中的数据，从而更改显示页上形状的数据。 然后我调用一个macros来设置形状为绿色，如果> 0或红色，如果<0。 问题是，虽然透视数据正在改变，正在重新计算，我的形状保持其颜色根据旧的值改变，因为新的领域还没有计算。 我已经尝试了DoEvents，但是对于它的function并没有什么经验，并且没有运气。 我不想拖延一段固定的时间，因为那太可怕了。 我也尝试调用我的updateColoursmacros之前调用StagingSheet.calculate没有成功。 有任何想法吗？