Длина строки и ширина ячейки

@GWolf · Регистрация: 16.03.2011

Author24 — интернет-сервис помощи студентам

Доброго дня!
В ячейках колонки, записаны буквенно-цифровые строки. Длинна первой строки блока ячеек наибольшая. Поскольку нужно установить ширину колонки по размеру строки в третьей ячейке, то AutoFit не подходит.
Попробовал определить длину строки через Len(). Но, это ничего не дало.
Поискал в Интернете - только запутался. Может кто объяснит. Как поступить?
Спасибо, всем откликнувшимся!

PS Реализация нужна на VBA. Действо происходит на Worksheets. Просьба, варианты с Forms не предлагать. Ими полнится Инет, но в данном случае это не то.

@pashulka · 16.05.2018, 06:46

Кто Вам сказал, что AutoFit не подходит ?

Visual Basic

1	Cells(3, 1).Columns.AutoFit

@Burk · 16.05.2018, 07:15

GWolf, для стандартного шрифта можно так. Можно к Len ущё добавить пару символов

Visual Basic

1	Sheets(1).Columns(1).ColumnWidth = Len(Range("A3"))

@GWolf · 16.05.2018, 07:30 **[ТС]**

Ура!
Спасибо, друзья! Все заработало. Помог вариант pashulka, но и остальное "утащил в норку" - пригодится!

@Burk · 16.05.2018, 10:18

GWolf, небольшое замечание у вас в задании было

Сообщение от GWolf

ширину колонки по размеру строки в третьей ячейке, то AutoFit не подходит.

вы или передумали, или пишите правильно задание

@GWolf 7 / 7 / 0 Регистрация: 16.03.2011 Сообщений: 26
		1
	Длина строки и ширина ячейки 16.05.2018, 06:41. Показов 2767. Ответов 4 Метки нет (Все метки) Доброго дня! В ячейках колонки, записаны буквенно-цифровые строки. Длинна первой строки блока ячеек наибольшая. Поскольку нужно установить ширину колонки по размеру строки в третьей ячейке, то AutoFit не подходит. Попробовал определить длину строки через Len(). Но, это ничего не дало. Поискал в Интернете - только запутался. Может кто объяснит. Как поступить? Спасибо, всем откликнувшимся! PS Реализация нужна на VBA. Действо происходит на Worksheets. Просьба, варианты с Forms не предлагать. Ими полнится Инет, но в данном случае это не то. 0

@GWolf 7 / 7 / 0 Регистрация: 16.03.2011 Сообщений: 26
	16.05.2018, 07:30 [ТС]	4
	Ура! Спасибо, друзья! Все заработало. Помог вариант pashulka, но и остальное "утащил в норку" - пригодится! 1

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	16.05.2018, 10:18	5
	GWolf, небольшое замечание у вас в задании было Сообщение от GWolf ширину колонки по размеру строки в третьей ячейке, то AutoFit не подходит. вы или передумали, или пишите правильно задание 0