Классическая ситуация: получаешь файл от коллег, который собирался из разных источников. Данные разного формата, выглядит страшно.
Такое руководителю не покажешь.
Вместо ручного корректирования, я предлагаю тебе немного постараться один раз, чтобы пожинать плоды автоматизации в будущем.
Ты сможешь форматировать все данные
ЗА 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 – выравнивание по горизонтали. Варианты: xl
Left, xlCenter, xlRight.
➡️ Selection.VerticalAlignment = xlCenter – выравнивание по горизонтали. Варианты: xl
Top, xlCenter, xlBottom.
➡️
Selection.Rows.AutoFit – автоподгон высоты строк.
➡️
Selection.Columns.AutoFit – автоподгон ширины столбцов.
🍒 3.Вишенка на торте Добавляй макрос на панель быстрого доступа, чтобы форматировать таблицы за 1 клик.
Если забыл как это делать, то посмотри
на примере добавления функции отправки писем.❎ Подписывайся на
Hello Excel