TGViewer
Hello Excel Hello Excel @helloexcel · 3.06K subscribers
Post #713 1.2K
Классическая ситуация: получаешь файл от коллег, который собирался из разных источников. Данные разного формата, выглядит страшно.

Такое руководителю не покажешь.
Вместо ручного корректирования, я предлагаю тебе немного постараться один раз, чтобы пожинать плоды автоматизации в будущем.

Ты сможешь форматировать все данные ЗА 1 КЛИК МЫШИ.


👨‍💻 1.Делаем макрос Автоформат

Вспоминаем как работать с этим зверем.

➡️ Введение
➡️ Как делать макрос

Обрати внимание на последнюю ссылку, она тебе сильно поможет.
Едем дальше. В новый макрос тебе нужно вставить следующий код:

Sub Автоформат()
Cells.Select
Selection.Font.Name = "Gotham Pro"
Selection.Font.Size = 11
Selection.Font.Italic = False
Selection.Font.Underline = False
Selection.Font.Bold = False
Selection.Font.Color = vbBlack
Selection.Interior.Pattern = xlNone
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Rows.AutoFit
Selection.Columns.AutoFit
End Sub


Макрос Автоформат выделяет весь текст на листе и форматирует так, как мне нужно.
Ты можешь настроить код под свой формат, детали ниже.


👀 2.Разбор макроса

➡️ Selection.Font.Name = "Gotham Pro" – устанавливаешь свой корпоративный шрифт или просто тот, что нравится

➡️ Selection.Font.Size = 11 – размер текста.

➡️ Selection.Font.Italic = False – выключаешь курсив. True – включил / False – выключил.

➡️ Selection.Font.Underline = False – выключаешь подчеркивание. True – включил / False – выключил.

➡️ Selection.Font.Bold = False – выключаешь полужирное написание. True – включил / False – выключил.

➡️ Selection.Font.Color = vbBlack– цвет текста, здесь черный. Можешь использовать стандартные названия типа vbRed, vbWhite или в формате RGB - Selection.Font.Color = RGB(255, 0, 0).

➡️ Selection.Interior.Pattern = xlNone – выключена заливка.

➡️ Selection.HorizontalAlignment = xlCenter – выравнивание по горизонтали. Варианты: xlLeft, xlCenter, xlRight.

➡️ Selection.VerticalAlignment = xlCenter – выравнивание по горизонтали. Варианты: xlTop, xlCenter, xlBottom.

➡️ Selection.Rows.AutoFit – автоподгон высоты строк.

➡️ Selection.Columns.AutoFit – автоподгон ширины столбцов.


🍒 3.Вишенка на торте

Добавляй макрос на панель быстрого доступа, чтобы форматировать таблицы за 1 клик.
Если забыл как это делать, то посмотри на примере добавления функции отправки писем.


❎ Подписывайся на Hello Excel
  • 👍 10
More from @helloexcel
  1. Apr 20, 2026И друзья, спасибо вам 💚
  2. Apr 20, 2026Post #729
  3. Apr 20, 2026Post #728
  4. Apr 20, 2026Post #727
  5. Apr 20, 2026[AI-сумасшествие] Чао, друзья! Мы давно не виделись! Начну с главного вопроса: вам тоже на…
  6. Jun 16, 2025🚀 Ускоряемся на х1000 🚀 Сегодня понедельник после затяжных выходных, нужно порадовать те…
Threads Profile ViewerView any public Threads profile without an account.Open ThreadLook →Writing with AI? Make it sound human.Metric37 rewrites AI drafts so they read naturally. Free AI detector, 1,500 words free.Try Metric37 →