Question

问题概述：
我正在使用来自“分析工具”的Excel VBA直方图函数＆＃39;自动生成大约25个直方图。当生成直方图时，它被放置在具有值的单元格的顶部，有效地隐藏它们（这对我来说没问题）。因此，生成以下消息＆＃34;直方图 - 一些数据将被嵌入的图表隐藏＆＃34;用＆＃34; OK＆＃34; ＆安培; ＆＃34;帮助＆＃34;纽扣。我不想按＆＃34; OK＆＃34;每当我运行此宏时，都会有25次。

我尝试过：

Application.DisplayAlerts = False/True对我不起作用。我已尝试将其置于我的代码
Application.ScreenUpdating = False/True
还尝试使用SetWarning功能

代码（1/25）：

Dim binrng As Range  
    Set binrng = Sheets("PSDreport").Range("P4:P64")  
Dim outputrng As Range  
    Set outputrng = Sheets("PSDreport").Range("Q3")  
Application.Run "Histogram", inprng, outputrng, binrng, False, False, True, False

我的部分解决方案：

With Application  
//CODE GOES HERE//   
.SendKeys "{ENTER}"  
End With

我当前解决方案的问题：
请注意，生成代码段（1/25）的所有直方图都围绕着＆＃39; With＆＃39;。由于某种原因，生成的第一个直方图仍然会产生弹出窗口（不好）。剩下的24个成功跳过弹出窗口，但弹出的噪音仍然产生（轻微的烦恼）。

我正在寻找一种更优雅的方法来解决这个问题

Answer 1

当我尝试将嵌入的图表输出到与我的源数据相同的工作表上时，我也有此警告（“ imprng”）。将输出范围（outputrng）移到另一个工作表后，警告停止。

Answer 2

晚点参加聚会，但是其他任何人都应该尝试

有申请 .SendKeys“ {ENTER}”
//代码在这里///
结尾为

使用VBA来抑制Analysis Toolpak直方图函数信息

2 个答案: