У меня есть как месячные графики так и накопительные, предыдущий месяц + все до января текущего включительно суммой. Месячные они стабильны по показателям + у меня графики все комбинированные, так как разные участки выпускают разное количество продукции. Делаю проекции работы оборудования, чтоб все читалось и смотрелось на одном графике на формате лист А4. Опытном путем для себя подобрал все эти коэффициенты макс и мин значение осей, и ими работаю, отталкиваясь от данных которые будут в диаграмме * коэффициент. Этот мой код который я тупо взял из своих документов, вам нужно немного оптимизировать под себя и под свои нужды, какие именно они известно только вам. У меня это выглядит примерно так, смотреть картинку.
Я такое с помощью макросов только реализовывал. Данные у меня разные, из месяца в месяц, а шаблон один. Месяц сменил, нажал на кнопку подобрать параметры осей, с учетом коэффициентов которые для каждой диаграммы свои и вуала все красиво, все читаемо)) Сбрасываем все оси в дефолт:
Код
Private Sub CommandButton1_Click()
' сбросить оси в дефолт
График = Range("AA28").Value ' название графика забираем из ячейки
With ActiveSheet.ChartObjects(График).Chart
.Axes(xlValue).MinimumScaleIsAuto = True
.Axes(xlValue).MaximumScaleIsAuto = True
End With
End Sub
Затем настраиваем по Макс и Мин значениям на основе отображаемых данных:
Код
Private Sub CommandButton2_Click()
' максимальное и минимальное значение оси
График = Range("AA28").Value
Макс = Range("AA29").Value
Мин = Range("AA30").Value
With ActiveSheet.ChartObjects(График).Chart
.Axes(xlValue).MinimumScale = Мин
.Axes(xlValue).MaximumScale = Макс
End With
End Sub
В файле есть скрытый лист, на нем и производятся все расчеты. Достаточно в него посмотреть, потратить немного времени и после этого можно понять логику и алгоритм вычисления.
Была подобная проблема при запуске в 2010 офисе, "работоспособного" файла 2003 офиса. При включении содержимого вылетал весь эксель. Вылечил отключением не найденных библиотек в VBA редакторе (Tools - References ). После этого все ОК.
Подскажите где храниться код формул которые я записал и добавил в библиотеку формул надстройки плекс. Нужно это для того чтобы этот макрос прицепить к кнопке на панели. Спасибо.
Спасибо за интерес к вопросу, писали файлик какие то профессора. Чем писали я не знаю.
Цитата
Так в чем сам вопрос?
В том что не корректно работает файл в 2010 офисе. Точнее работает криво, после танцев с бубном, а это Поначалу ставлю 2003, зате сверху накатываю 2010, и только после этого файл начинет считать но не до конца как надо! Выскакивает например вот та самая ошибка которую обозначил раньше.
Я просто привел макрос, который у меня стоит не кнопке! У меня просто есть мысль, я этой кнопкой записываю на новую страницу данные, или перезаписываю, и вот когда там есть 2444/01/09 (или что то похожее) мне все коверкает в даты!
был эксперимент, беру лист, перевожу его в текстовый формат, заношу данные, далее беру и просто перезаписываю все эти данные выбирая тот же лист, и в итоге, он все данные перезаписывает, и меняет мне к примеру 2444/01/09 на 09.01.2444
Распишу примерно что я имею: Есть кнопка с макросом -
Private Sub CommandButton2_Click() If Z * P = 0 Then Exit Sub MultiPage1.Value = 0 ComboBox1.Visible = True ComboBox1.Clear ComboBox1.AddItem "Новый лист" For I = 1 To Worksheets.Count If Left(Worksheets(I).Name, 2) = "ИД" Then ComboBox1.AddItem Worksheets(I).Name Next ComboBox1.SetFocus End Sub
В макросе есть вот это ComboBox1.AddItem "Новый лист"
У меня такая идея, как сделать так, чтоб "новый лист" был не в авто формате, а в текстовом формате по умолчанию!
У меня похожая проблема, только смысл вот такой, как наступает осень то просто волосы дыбом встают от этих замен.
при вводе например: 2444/01/09 то он автоматом ставит 197240, или дату 09.01.2444
апостроф помогает, но один раз. Потом когда все данные загоняешь на расчет, то все номера заказов (2444/01/09) переделываются на даты, после записи на лист