Использование VBA для подавления функции Messege функции гистограммы Analysis Toolpak - PullRequest
0 голосов
/ 18 мая 2018

Обзор вопроса:
Я использую функцию гистограммы Excel VBA из 'Analysis Toolpak', чтобы автоматически генерировать приблизительно 25 гистограмм.Когда график гистограммы генерируется, он помещается поверх ячеек, в которых есть значения, эффективно скрывая их (что у меня хорошо).Поэтому генерируется следующее сообщение: «Гистограмма - некоторые данные будут скрыты встроенными графиками» с кнопками «ОК» и «Справка».Я не хочу нажимать «ОК» 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), обернуты вокруг "С",По какой-то причине первая сгенерированная гистограмма все еще производит всплывающее окно (не хорошо).оставшиеся 24 успешно пропускают всплывающие окна, но шум от всплывающих окон все еще создается (небольшое раздражение).

Я ищу более элегантный способ решения этой проблемы

1 Ответ

0 голосов
/ 21 октября 2018

У меня тоже было это предупреждение, когда я пытался вывести свою встроенную диаграмму на тот же рабочий лист, на котором у меня были исходные данные (ваше "imprng").Как только я переместил свой выходной диапазон (outputrng) на другой лист, предупреждение прекратилось.

...