Как установить ширину столбца электронной таблицы Excel с помощью VBA?

Обновлено: август 2021 г.; Работает в Excel 365, 2019, 2016.

В сегодняшнем учебнике по автоматизации Excel мы узнаем, как быстро изменить ширину столбца рабочего листа по мере необходимости, но программно с использованием VBA (Visual Basic для приложений).

Предпосылки

Чтобы написать код VBA, вам необходимо в первую очередь убедиться, что вкладка разработчика включена. Если вы не уверены в процедуре, обязательно ознакомьтесь с нашей подробной процедурой .

На компьютере с Windows откройте Microsoft Excel .
На главной ленте нажмите « Разработчик» .
Нажмите команду Visual Basic . Это откроет редактор VBA .
В проводнике проекта с левой стороны выделите конкретный лист, в который вы будете вставлять свой код. Кроме того, вы можете вставить новый модуль или добавить наш код в существующий модуль VBA.

Установка ширины одного столбца

В этом примере мы выберем один столбец на активном рабочем листе и соответствующим образом изменим его.

С помощью редактора VBA скопируйте следующий код на лист или модуль.


Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

Запустите свой код, нажав F5, или выберите «Выполнить» >> «Выполнить подпрограмму» или «Форма».
Сохраните свою работу, нажав «Файл» >> «Сохранить» или значок «Диск».

Изменить ширину диапазона из нескольких столбцов

В этом примере мы выбираем диапазон столбцов, затем меняем ширину.

Вы можете применить код так же, как описано в предыдущем разделе.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Следующие шаги

Начиная с VBA? Обязательно изучите руководство по основам VBA для Excel .

Оставить комментарий

Бесплатный шаблон календаря счетов для Excel: простой способ отслеживать сроки оплаты

Организуйте регулярные платежи в Excel с помощью месячного календаря, списка счетов, отслеживания статуса, сумм по условию (SUMIFS) и выделения сроков оплаты. Включает практический иллюстративный пример.

Бесплатный шаблон Excel для учета доходов и расходов по арендной недвижимости: простая настройка для начинающих

Создайте бесплатный трекер доходов и расходов по арендной недвижимости в Excel с учетом по объектам, категориями для Schedule E, отслеживанием денежного потока, чеками и обновленными нормами пробега на 2026 год.

Бесплатный шаблон счета для малого бизнеса в Excel с автоматическим расчетом налога с продаж

Создайте переиспользуемый счет в Excel, который автоматически рассчитывает промежуточный итог, налогооблагаемые продажи, налог с продаж и общую сумму к оплате, с практическим чек-листом для малых предприятий США.

Outlook получает почту, но не отправляет? Как найти и устранить истинную причину

Исправьте Outlook, когда входящая почта работает, а отправка не удается. Изолируйте проблемы с веб-почтой, папкой «Исходящие», SMTP, лимитами аккаунта и профилем без догадок.

Как конвертировать PDF в редактируемый документ Word без потери форматирования

Конвертируйте PDF в редактируемый Word, сохраняя максимальное количество форматирования. Узнайте о лучшем методе, проверке качества, опциях OCR и случаях, когда стоит сменить подход.

Как запретить Excel автоматически преобразовывать числа в даты

Узнайте, как предотвратить превращение записей вроде 1-2, 3/4, JAN1 и кодов товаров в даты. Используйте текстовый формат, апостроф, настройки автоматического преобразования данных или контролируемый импорт CSV.

Простой шаблон презентации для адаптации новых сотрудников: практическое руководство по слайдам

Создайте понятную презентацию для адаптации новых сотрудников с практическим планом слайдов, примерами контента, советами по настройке и чек-листом готовности.

Как исправить ошибку открытия документа Word в режиме «Только для чтения» на Mac

Исправьте ошибку открытия документа Word в режиме «Только для чтения» на Mac, проверив режим Word, разрешения Finder, права доступа, обновления Office и активацию.

Простой шаблон матрицы делегирования задач в Word для руководителей небольших команд

Используйте этот простой шаблон матрицы делегирования задач в Word для назначения ответственных, определения полномочий, сроков, контрольных точек и критериев успеха, а также узнайте, когда лучше использовать диаграмму RACI или приложение для управления задачами.

6 простых и быстрых решений для исправления ошибки PS4 CE-32895-7

Получение ошибки CE-32895-7 при попытке войти в систему или подключиться к PS4, затем следуйте приведенным решениям и легко устраните ошибку PS4 CE-32895-7.