Опубликовано: 27.08.2018
Изменение размера ячейки в VBA Excel. Высота строки, ширина столбца, автоподбор ширины ячейки в зависимости от содержимого. Свойства RowHeight и ColumnWidth объекта Range.
Размер ячейки по высоте и ширине определяется высотой строки и шириной столбца, на пересечении которых она находится. Если, в вашем случае, нежелательно изменять размеры всей строки или всего столбца, используйте объединенные ячейки нужной величины.
Обратите внимание, что высота строки задается в пунктах, а ширина столбца в символах, поэтому их числовые значения не соответствуют друг другу по фактическому размеру.
Высота строки и ширина столбца в ExcelПрограммно, без дополнительных макросов, можно изменять высоту строки только в пунктах, а ширину столбца только в символах.
На сайте поддержки офисных приложений Microsoft так написано об этих величинах:
высота строки может принимать значение от 0 до 409 пунктов, причем 1 пункт приблизительно равен 1/72 дюйма или 0,035 см; ширина столбца может принимать значение от 0 до 255, причем это значение соответствует количеству символов, которые могут быть отображены в ячейке.Для изменения высоты строки используйте свойство RowHeight объекта Range. И не важно, будет объект Range представлять из себя выделенный произвольный диапазон, отдельную ячейку, целую строку или целый столбец - высота всех строк, пересекающихся с объектом Range будет изменена после присвоения свойству RowHeight этого объекта нового значения.
Примеры изменения высоты строк:
Изменение высоты отдельной ячейки:
ActiveCell.RowHeight = 10в результате, строка, в которой находится активная ячейка, приобретает высоту, равную 10 пунктам.
Изменение высоты строки:
Rows(3).RowHeight = 30в результате, третья строка рабочего листа приобретает высоту, равную 30 пунктам.
Изменение высоты ячеек заданного диапазона:
Range("A1:D6").RowHeight = 20в результате, каждой из первых шести строк рабочего листа будет задана высота, равная 20 пунктам.
Изменение высоты ячеек целого столбца:
Columns(5).RowHeight = 15в результате, всем строкам рабочего листа будет назначена высота, равная 15 пунктам.
Для изменения ширины столбца используйте свойство ColumnWidth объекта Range. Как и в случае с высотой строки, не важно, будет объект Range представлять из себя выделенный произвольный диапазон, отдельную ячейку, целую строку или целый столбец - ширина всех столбцов, пересекающихся с объектом Range будет изменена после присвоения свойству ColumnWidth этого объекта нового значения.
Примеры изменения ширины столбцов:
Изменение ширины отдельной ячейки:
ActiveCell.ColumnWidth = 15в результате, столбец, в котором находится активная ячейка, приобретает ширину, равную 15 символам.
Изменение ширины столбца:
Columns(3).ColumnWidth = 50в результате, третий столбец рабочего листа (столбец «C») приобретает ширину, равную 50 символам.
Изменение ширины ячеек заданного диапазона:
Range("A1:D6").ColumnWidth = 25в результате, каждому из первых четырех столбцов рабочего листа будет задана ширина, равная 25 символам.
Изменение ширины ячеек целой строки:
Rows(4).ColumnWidth = 35в результате, всем столбцам рабочего листа будет назначена ширина, равная 35 символам.
Для автоподбора ширины ячейки в соответствие с размером ее содержимого используйте следующий код:
'запишем для примера в любую ячейку рабочего 'листа какой-нибудь текст, например, такой: Cells(5, 5) = "Автоподбор ширины ячейки" 'теперь подгоним ширину ячейки, а точнее 'столбца, в котором эта ячейка находится: Cells(5, 5).EntireColumn.AutoFitИмейте в виду, что ширина столбца будет подогнана по расположенной в этом столбце ячейке с самым длинным содержимым. Например, если длина содержимого ячейки Cells(7, 5) будет превышать длину содержимого ячейки Cells(5, 5), то автоподбор ширины пятого столбца произойдет по содержимому ячейки Cells(7, 5), несмотря на то, что в строке кода указана другая ячейка.
Разделы
» Ваз
» Обзор
» Новости
Календарь
Архив
О сайте
ПОПУЛЯРНОЕ
РЕКЛАМА
www.school4mama.ru © 2016. Запчасти для автомобилей Шкода