Актуализирано: август 2021 г.; Работи в Excel 365, 2019, 2016.
В днешния урок за автоматизация на Excel ще научим как бързо да променяме ширината на колона на работен лист според нуждите – но програмно с помощта на VBA (Visual Basic за приложения).
Предпоставки
За да напишете 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Промяна на ширината на диапазон от множество колони
В този пример избираме диапазон от колони, след което променяме ширината.
Можете да приложите кода по същия начин, както е описано в предишния раздел.
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 .
Създайте ясен годишен отчет за организация с нестопанска цел в PowerPoint с безплатен шаблон, практична структура на слайдовете, показатели за въздействие, финансови данни и съвети за презентации, подходящи за дарители.
Създайте презентация за инвеститори в технологичен стартъп в PowerPoint с практична структура на слайдовете, послания, фокусирани върху доказателствата, достъпен дизайн и по-малко разсейващи фактори.
Използвайте този прост шаблон за матрица за делегиране на задачи в Word, за да зададете собственици, ограничения за решения, крайни срокове и контролни точки, без да усложнявате прекалено малкия екип.
Използвайте този лесен за печат лист за посещаемост на детски градини за домашни грижи, с имена на децата, часове на пристигане/заминаване, подписи и съвети за съответствие.
Използвайте този шаблон за маркетингова стратегия от една страница, който може да се отпечата, за да дефинирате вашата местна аудитория, оферта, канали, бюджет, седмични действия и измерими цели.
Спрете Excel да конвертира стойности като 1/2, 11-53 или JAN1 в дати. Научете надеждни решения за въвеждане, поставяне, импортиране на CSV файлове и вече конвертирани клетки.
Създайте изискан PowerPoint за обява за недвижими имоти безплатно с практичен план на слайдовете, снимка, брандиране, достъпност, съответствие и съвети за експорт.
Поправете Outlook, когато получавате имейли, но не можете да изпращате. Проверете Изпращача, офлайн режима, влизането, SMTP настройките, профили и промените в Microsoft 365.
Създайте прост двуседмичен трекер на заплатите в Excel за малък екип, включващ работно време, възнаграждения, удръжки, маркери за преглед, обобщения и насоки за водене на записи.
Build or customize a printable event planning checklist and budget template in Microsoft Word, with practical sections, tradeoffs, and tips for Word vs. Excel.
