Просмотр сообщений
|
Страниц: [1] 2 3
|
3
|
Основные форумы / Вопросы по Excel и VBA / Расчет процентов
|
: 22.12.2018, 11:29:13
|
Доброго времени суток профессионалам и любителям форума!!! Подскажите, пожалуйста, возможно ли изменить или дополнить формулу по расчету процентного соотношения (к прошлому году), если имеется нулевое значение.
|
|
|
6
|
Основные форумы / Вопросы по Excel и VBA / Re:размер диаграммы
|
: 20.05.2016, 16:11:51
|
Спасибо, Дмитрий!!! Проанализировав и потестировав Ваш код и код с "Планеты..." получил точно, что хотел: Dim lcnt As Long lcnt = ActiveSheet.Range("D101:$D1601").SpecialCells(xlVisible).Count ActiveSheet.Shapes("Диаграмма 1").Width = lcnt * 40
И, парни, кто смотрит раздел может подскажите, почему не работает код изменения размера шрифта на диаграмме: ActiveChart.Axes(xlCategory).Format.TextFrame2.TextRange.Font.Size = 10
С уважением IgorK
|
|
|
8
|
Основные форумы / Вопросы по Excel и VBA / Re:размер диаграммы
|
: 20.05.2016, 11:19:03
|
Всем доброго дня! Пытаясь решить свою задачу, пришел к такому коду: Application.ScreenUpdating = 0 Sheets("Лист1").Visible = True ActiveWindow.SelectedSheets.Visible = False 'фильтруем данные диаграммы по критерию "1" ActiveSheet.Range("D5:$D17").AutoFilter Field:=1, Criteria1:="=1" 'устанавливаем ширину диаграммы = 500 ActiveSheet.Shapes("Диаграмма 1").Width = 500 Application.ScreenUpdating = 1
Можно ли синхронизировать «AutoFilter Field:=1, Criteria1…» с «Width = …» , т.е. если фильтр оставил к примеру 5 строчек, то Width = 10, если 10 строчек, то Width = 20, ну и т.д. С уважением Igor.
|
|
|
9
|
Основные форумы / Вопросы по Excel и VBA / размер диаграммы
|
: 18.05.2016, 15:03:53
|
Доброго всем дня. Парни, кто может подсказать - как в диаграмме сделать неизменную ширину столбца? Если на области построения десять столбцов, то они имеют ширину, например 10 мм, если на этой же области пять столбцов, то их ширина автоматически увеличивается, ну и наоборот. В общем ширина столбца подвязана под ширину области построения. Как сделать наоборот? С уважением IgorK
|
|
|
10
|
Основные форумы / Вопросы по Excel и VBA / Re:использование функции MsgBox "...", 48, "Ошибка!"
|
: 15.05.2016, 18:05:49
|
Парни, спасибо всем, кто смотрел тему и, возможно хотел помочь... Разобрался сам. Для моей задачи нужен был не MsgBox "нет такого отряда", 48, "Ошибка!" (это просто окошко с предупреждением, так сказать...). Мне нужен бул такой код: On Error Resume Next
'тут ваш код вместе со строчкой, _ где возникает ошибка
If Err.Number = 1004 Then MsgBox "Ошибка! Описание: …", 48, "Ошибка" Err.Clear 'очищаем полученную ошибку On Error GoTo 0 'при следующей ошибке использовать стандартный обработчик Exit Sub 'выход из процедуры Режим2 End If
Прикрепил файл уже с этим кодом, может кому понадобится... 8)
|
|
|
11
|
Основные форумы / Вопросы по Excel и VBA / использование функции MsgBox "...", 48, "Ошибка!"
|
: 15.05.2016, 14:01:25
|
Доброго дня всем любителям и профессионалам форума. Парни, подскажите как можно решить такую задачу: - есть программа (приложил пример, т.к. программа "тяжелая") для работы. Программа может быть использована как для подразделения с одним отрядом, так и несколькими. Для подразделения с несколькими отрядами работает фильтр (через код VBA). Но когда в диапазоне диаграммы нет номера отряда, к которому прикреплена кнопка, то код выдает ошибку (это естественно...). Вроде как можно использовать функцию MsgBox "нет такого отряда", 48, "Ошибка!", но в каком месте кода и как ее вставить не разберусь... Код на Листе1 в исходном тексте С уважением Igor K
|
|
|
13
|
Правила форума и вопросы по работе форума / ВОПРОСЫ ПО РАБОТЕ ФОРУМА / Re:Чего Вам не хватает на этом форуме и что лишнее?
|
: 12.05.2016, 01:11:33
|
Уважаемый Дмитрий! Сегодня я пообщался с Михаилом С, о проблеме которого узнал из "Курилки"... Дай Бог у него все нормально. Но он со скорбью, так сказать сообщил о несчастье с коллегой Александром (ikki). Многие желают светлой памяти и всего, только чего можно пожелать в такой ситуации. Я зарегистрирован только на нашем форуме (Вашем). но глобальная помощь друг другу, я понял, присутствует везде, не зависимо от спецификации форумов. Хотя оно так и должно быть! Так может подумать над созданием какой - нибудь странички Музея внутри форумов, может для всех по специфике форумов - как раз для светлой памяти об Участниках форума (как минимум заслуженных профессионалов). Я думаю это было - бы действительно здорово и памятно... С уважением IgorK
|
|
|
15
|
Основные форумы / Вопросы по Excel и VBA / Re:приравнивание ячеек с помощью VBA
|
: 11.05.2016, 11:14:45
|
Здравствуйте, Дмитрий. А какую вставку лучше использовать? Я пробовал такую вставку: PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Но она почему - то формулы не копирует, а формат все равно копирует (условное форматирование ячейки по цвету)
|
|
|
|
|