Question

我对VBA很新。我创建了一个从单个单元格复制的资源，并创建了一个包含n个结果的字符串。同时，它会在结果右侧创建一个图表。当结果低于页面视图时，工作表会来回跳转，图表如下。有没有办法使用VBA保持整个工作表仍然（不明显刷新），同时为每个结果刷新图表？非常感谢任何人的帮助。

Answer 1

无需在那里选择任何内容：

For a = 1 To Range("n").Value
 'Copying Crossed to Results
 Range("D18").Copy
 Cells(a + 16, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False 
' Creates Needle Drop Graph 
'Delete Old Chart 
On Error Resume Next
 ActiveSheet.ChartObjects("PinDrop").Delete
On Error Goto 0
 'Create Chart 
With ActiveSheet.Shapes.AddChart.Chart
   .ChartType = xlXYScatter 
   .Parent.Name = "PinDrop"
end with

如何在工作表上刷新一个对象，而其余对象在Excel VBA上冻结

1 个答案: