Автоматическая установка ширины колонок в ListBox UserForm

Пользователь

Сообщений: 8 Регистрация: 06.09.2017

16.05.2025 22:09:15

Коллеги, приветствую! Озаботился задачей сделать так чтоб ширина колонок в listbox устанговливалась автоматически. Нашёл видеопример, применил, но код не работает, хотя в видео ширина колонок установливается при открытии пользовательской формы. Не могу понять в чём проблема. Файл приложен. Использую MS Excel 2021File.xlsm (24.36 КБ)
Пришу помочь опытных специалистов или поделиться решениями на эту тему если имеются.

Заранее благодарен!

DerToDD

Пользователь

Сообщений: 111 Регистрация: 14.02.2025

17.05.2025 00:10:03

эмммм. колега я врятли, не волшебник, только учусь. но вопрос, а зачем именно автоматически? не проще задать ширину исходя из максимальной ширины? а так. у вас ширшина колонок задается при открытии, и на мой взгляд все норм . а не в ширине ли юзерформы вопрос???))

Sanja

Модератор

Сообщений: 19708 Регистрация: 10.01.2013

17.05.2025 04:11:26

Проблема в локализации. Запятые в значениях ширин столбцов листа VBA считает за разделитель.
Можно так попробовать

Код
ColumnWidth = Replace(Sheet1.Cells(1, Field).Width, ",", ".")

Или округлять до целых

Код
ColumnWidth = Application.WorksheetFunction.RoundUp(Sheet1.Cells(1, Field).Width, 0)

Autosizing ColumnWidths Of A ListBox

Согласие есть продукт при полном непротивлении сторон

Commander Пользователь Сообщений: 8 Регистрация: 06.09.2017	#4 17.05.2025 17:13:29 Добрый день, уважаемые коллеги. Спасибо уважаемый Sanja. Оба варианта работают.

Читают тему