Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Aleksandr Dorchynets
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Включение и отключение макроса с помощью кнопки
 
#
28.06.2022 19:47:48
Спасибо Вам большое!
 
Перейти    
Смена цвета в VBA
 
#
27.06.2022 18:32:08
evgeniygeo, спасибо Вам большое!
 
Перейти    
Смена цвета в VBA
 
#
27.06.2022 13:27:18
Здравствуйте!
Это макрос для смены параметров копирование и вставки по умолчанию.
Ссылка на тему с макросом: (13 сообщения)
Сам макрос:
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  With Target
    .NumberFormat = "General"
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlCenter
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    With .Font
      .Name = "Times New Roman"
      .FontStyle = "обычный"
      .Size = 8
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .ColorIndex = xlAutomatic
      .TintAndShade = 0
      .ThemeFont = xlThemeFontNone
    End With
  End With
End Sub
В нем хочу заменить:
• автоматический цвет текста на: RGB (255, 255, 255)
• автоматический цвет фона на: RGB (68, 84, 106)

Пробовал сделать сам, но выбывает ошибку.
Помогите, пожалуйста
 
Перейти    
Включение и отключение макроса с помощью кнопки
 
#
27.06.2022 13:18:56
Здравствуйте!
Это макрос для смены параметров копирование и вставки по умолчанию.
Ссылка на тему с макросом: (13 сообщения)
Сам макрос:
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  With Target
    .NumberFormat = "General"
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlCenter
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    With .Font
      .Name = "Times New Roman"
      .FontStyle = "обычный"
      .Size = 8
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .ColorIndex = xlAutomatic
      .TintAndShade = 0
      .ThemeFont = xlThemeFontNone
    End With
  End With
End Sub
Как сделать так, чтоб макрос включать и выключать по кнопке?
(P.S каждый раз удалять и добавлять его в редакторе VBA неудобно)

Заранее благодарю
Изменено: Aleksandr Dorchynets - 27.06.2022 13:20:44
 
Перейти    
Одновременная повторная сортировка нескольких таблиц на одном листе
 
#
26.05.2022 16:10:31
Нужно просортировать ВСЕ 1600 строк в каждой из таблиц и после этого отобразить их в свернутом виде.
Вариант 1 (см. файл примера) сортирует все 1600 строк, но после его запуска все таблицы остаются в развернутом виде.
Возможно ли дописать шаг в макрос, который все свернет? (P.S. Макрорекодер не помогает)
Изменено: Aleksandr Dorchynets - 26.05.2022 16:11:56
 
Перейти    
Одновременная повторная сортировка нескольких таблиц на одном листе
 
#
26.05.2022 14:01:01
Спасибо Игорь за ваш вариант, но все 6 таблиц всегда находиться в свернутом состоянии (Screenshot 1) и при использовании макроса таблица сортируется на основе верхних 10 строк (нижние строки не анализируются)
Снизу приложил пример с вашем макросом.
Изменено: Aleksandr Dorchynets - 26.05.2022 14:11:07
 
Перейти    
Одновременная повторная сортировка нескольких таблиц на одном листе
 
#
25.05.2022 15:21:41
Цитата
написал:
Если бы Вы озаботились файлом с примером, то вариантов было бы больше
Все 6 таблиц имеют одинаковую сортировку: (Screenshot 1)
• сортировка по красному цвету снизу
• сортировка значений по убиванию
1 Вариант реализации
Если включить запись макроса и сделать следующие:
просортировать каждую таблицу, свернуть сгруппированные ячейки – то при воспроизведении макроса свёртывание сгруппированных ячеек не выполняется. (Screenshot 2)
2 Вариант от DANIKOLA
Он хорош тем, что макрос воспроизводиться быстро и свёртывание сохраняется, но есть 1 недочет:
При каждой повторной сортировке создаются дубликаты (Screenshot 3), которые при повторном открытии файла приводят к этой ошибке: (Screenshot 4)

Я уже использую 1 вариант, но если у кого-то есть и получше, то буду рад их изучить.
Изменено: Aleksandr Dorchynets - 25.05.2022 15:29:00
 
Перейти    
Одновременная повторная сортировка нескольких таблиц на одном листе
 
#
23.05.2022 13:33:53
Спасибо всем большое!
Если есть новые варианты реализации, то отправляйте – всегда интересно изучить.
 
Перейти    
Одновременная повторная сортировка нескольких таблиц на одном листе
 
#
22.05.2022 15:27:52
Здравствуйте!

На 1 листе имею 6 умных таблиц, которые часто обновляются.

Как одним щелчком автоматически обновить все сортировки, чтоб не тикать поочерёдно каждую таблицу?
(функцию Сорт не рассматриваю)

Возможно есть такая кнопка в какой-нибудь надстройке (Plex, Kutools и т.д.)?
 
Перейти    
Указания аргументов функции, которые извлекаются из другой формулы
 
#
18.05.2022 11:50:58
Если есть новые варианты реализации, то отправляйте – всегда интересно изучить.
 
Перейти    
Указания аргументов функции, которые извлекаются из другой формулы
 
#
17.05.2022 22:30:26
Спасибо Вам всем большое!
 
Перейти    
Указания аргументов функции, которые извлекаются из другой формулы
 
#
17.05.2022 18:28:26
Здравствуйте!

Есть Сумма двух чисел.
Справа каждой Суммы должны отображаться координаты слагаемых из таблицы.
Вот так: Screenshot 1
Вот формула одного з столбцов: Screenshot 2

Как вместо простого D4 указать первое слагаемое из Суммы?
Буду очень благодарен за Вашу помощь!
Изменено: Aleksandr Dorchynets - 17.05.2022 18:29:36
 
Перейти    
Power Query. Транспонировать один столбец в таблицу с несколькими столбцами.
 
#
13.02.2022 20:25:35
Здравствуйте!

Нужно транспонировать один столбец в таблицу с несколькими столбцами. Делаю это в Power Query.
Ошибка:
при использовании команды Столбец сведения (Pivot) в выдаёт ошибку:
Цитата
Элементов в перечислении было слишком много для выполнения операции
в англ. версии
Цитата
Too many elements in the enumeration to complete
Заранее благодарю.  
Изменено: Aleksandr Dorchynets - 13.02.2022 20:55:47
 
Перейти    
Power Query: Как сделать ссылку на другой запрос с определенного шага?
 
#
29.12.2021 15:20:33
Спасибо всем большое
 
Перейти    
Power Query: Как сделать ссылку на другой запрос с определенного шага?
 
#
29.12.2021 02:41:01
Здравствуйте,

Есть Запрос №1.
Запрос №2 ссылается на Запрос №1 с определенного шага редактирования Запроса №1.
Как должна выглядеть формула?
 
Перейти    
Power query. Как добавить в запрос независимый столбец со своими данными?
 
#
20.12.2021 23:44:49
Спасибо Вам огромное
 
Перейти    
Power query. Как добавить в запрос независимый столбец со своими данными?
 
#
20.12.2021 15:53:50
Добрый день,

Хочу добавить новый столбец в запросе Power query.  
Свойства:
- Должен иметь одинаковое значение (константу) для каждой строки.  
- Новый столбец не рассчитывается не основе имеющихся столбцов (независимый)  
 
Как решал:  
- Продублировал имеющийся столбец и выполнил в нем замену значений на нужную константу (не подходит)  
 
Вопрос:
Как добавить столбец с константой, который не рассчитывается на основе имеющихся столбцов?
Изменено: Aleksandr Dorchynets - 20.12.2021 15:56:45
 
Перейти    
Excel НЕ выделяет скрытые/отфильтрование ячейки.
 
#
11.12.2021 23:13:57
Большое всем спасибо за помощь!
 
Перейти    
Excel НЕ выделяет скрытые/отфильтрование ячейки.
 
#
11.12.2021 17:52:33
Цитата
написал:
Сейчас Excel копирует только видимые строки
Спасибо

Я так понял, что команда: Выделить – Только видимые ячейки работают только для скрытых/группированных ячеек, а не отфильтрованных.
 
Перейти    
Excel НЕ выделяет скрытые/отфильтрование ячейки.
 
#
11.12.2021 17:32:26
Цитата
sokol92 написал:
Где об этом сказано?
Здесь: Копирование только видимых ячеек


Возможно я ошибаюсь но:
По умолчанию excel должен выделять все ячейки в диапазоне (будь то видимые или не видимые) и если нужно выделить именно отфильтрованные ячейки, то для этого существует отдельная команда: F5 – Выделить – Только видимые ячейки.
Изменено: Aleksandr Dorchynets - 11.12.2021 17:32:41
 
Перейти    
Excel НЕ выделяет скрытые/отфильтрование ячейки.
 
#
11.12.2021 15:09:27
Добрый день,

При выделении ячеек в отфильтрованной таблице или диапазоне выделяются только видимые ячейки (команда: F5 - Выделить - Только видимые ячейки не была выбрана) Эта проблема возникает в любом файле.
По умолчанию Excel должен копировать видимые + скрытые/фильтрованные ячейки.

В чем проблема?
 
Перейти    
Страницы: 1
Наверх