Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 16:35:04

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
  Просмотр сообщений
Страниц: [1] 2 3
1  Основные форумы / Вопросы по Excel и VBA / Re:Расчет процентов : 22.12.2018, 12:00:50
Понял... Спасибо огромное!!
2  Основные форумы / Вопросы по Excel и VBA / Re:Расчет процентов : 22.12.2018, 11:46:53
Спасибо! Но вот если в прошлом году выпустили 4 транспортного средства а в этом 1 - то снижение. А вот если в прошлом году выпустили 4, а в этом ноль, то рост на 100% Непонимающий
3  Основные форумы / Вопросы по Excel и VBA / Расчет процентов : 22.12.2018, 11:29:13
Доброго времени суток профессионалам и любителям форума!!!
Подскажите, пожалуйста, возможно ли изменить или дополнить формулу по расчету процентного соотношения (к прошлому году), если имеется нулевое значение.
4  Основные форумы / Вопросы по Excel и VBA / Re:размер диаграммы : 21.05.2016, 09:28:12
Кросс:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=78019&TITLE_SEO=78019-razmer-oblasti-diagrammy&buf_fid=1
5  Основные форумы / Вопросы по Excel и VBA / Re:размер диаграммы : 20.05.2016, 16:45:16
Текст подписи горизонтальной оси диаграммы...
6  Основные форумы / Вопросы по Excel и VBA / Re:размер диаграммы : 20.05.2016, 16:11:51
Спасибо, Дмитрий!!!
Проанализировав и потестировав Ваш код и код с "Планеты..." получил точно, что хотел:
Код: (vb)
Dim lcnt As Long
lcnt = ActiveSheet.Range("D101:$D1601").SpecialCells(xlVisible).Count
ActiveSheet.Shapes("Диаграмма 1").Width = lcnt * 40

И, парни, кто смотрит раздел может подскажите, почему не работает код изменения размера шрифта на диаграмме:
Код: (vb)
ActiveChart.Axes(xlCategory).Format.TextFrame2.TextRange.Font.Size = 10

С уважением IgorK Подмигивающий
7  Основные форумы / Вопросы по Excel и VBA / Re:размер диаграммы : 20.05.2016, 12:11:29
Кросс:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=78019&TITLE_SEO=78019-razmer-oblasti-diagrammy&buf_fid=1
8  Основные форумы / Вопросы по Excel и VBA / Re:размер диаграммы : 20.05.2016, 11:19:03
Всем доброго дня! Пытаясь решить свою задачу, пришел к такому коду:

Код: (vb)

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, "Ошибка!" (это просто окошко с предупреждением, так сказать...).
Мне нужен бул такой код:
Код: (vb)
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
12  Основные форумы / Вопросы по Excel и VBA / Re:раскраска диаграмм с помощью макроса : 14.05.2016, 16:22:31
Парни, если кто ищет тоже, что и я в последних сообщениях, то смотрите по ссылке:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=77874&TITLE_SEO=77874-raskraska-diagrammy-kodom-vba

Комментарий администратора исправил ссылку
13  Правила форума и вопросы по работе форума / ВОПРОСЫ ПО РАБОТЕ ФОРУМА / Re:Чего Вам не хватает на этом форуме и что лишнее? : 12.05.2016, 01:11:33
Уважаемый Дмитрий! Сегодня я пообщался с Михаилом С, о проблеме которого узнал из "Курилки"... Дай Бог у него все нормально. Но он со скорбью, так сказать сообщил о несчастье с коллегой Александром  (ikki). Многие желают светлой памяти и всего, только чего можно пожелать в такой ситуации. Я зарегистрирован только на нашем форуме (Вашем). но глобальная помощь друг другу, я понял, присутствует везде, не зависимо от спецификации форумов. Хотя оно так и должно быть! Так может подумать над созданием какой - нибудь странички Музея внутри форумов, может для всех по специфике форумов - как раз для светлой памяти об Участниках форума (как минимум заслуженных профессионалов).
Я думаю это было - бы действительно здорово и памятно...
С уважением IgorK Подмигивающий
14  Основные форумы / Вопросы по Excel и VBA / Re:Помогите с заменой слов в строках по таблице замен + автозапуск : 11.05.2016, 16:33:10
Добрый день. Пример наверное надо все таки прикрепить. Как можно посмотреть на вкладке "ПОМОЩЬ". Ниже диалогового окна, в котором Вы набираете текст вопроса есть кнопка "ОБЗОР" - далее на своем ПК выберите необходимый файл.
15  Основные форумы / Вопросы по Excel и VBA / Re:приравнивание ячеек с помощью VBA : 11.05.2016, 11:14:45
Здравствуйте, Дмитрий. А какую вставку лучше использовать?
Я пробовал такую вставку:
Код: (vb)
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Но она почему - то формулы не копирует, а формат все равно копирует (условное форматирование ячейки по цвету)
Страниц: [1] 2 3
Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru