Ширина столбцов под текст в ListBox, ListView и другом.

@Busine2009 · Регистрация: 13.06.2009

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

Есть что-нибудь вроде ListBox и ListView, но чтобы ширина столбцов подгонялась автоматически под текст, содержащийся в столбцах? Сейчас картина обстоит такая в отношении ListView. Ширина столбцов регулируется с помощью заголовков ListView, которые появляются в режиме ListView1.View = lvwReport, и возможно две ситуации без хитрых манипуляций:

если ширина заголовка не указана, то столбцы всегда имеют одну и ту же ширину;
можно устанавливать ширину столбцов, указывая ширину заголовков.

Я так понимаю, что обходной путь на данном этапе развития VBA - это подсчёт количества букв в словах, находящихся в столбцах, и определение самого длинного слова. Затем умножаем количество букв в этом слове на ширину одной буквы и находим тем самым длину самого длиного слова, а затем эту длину пишем в свойство заголовка ListView.

@Bazzy · 14.02.2011, 11:19

Busine2009, можете прикрепить файл с примером?

@Busine2009 · 14.02.2011, 11:54 **[ТС]**

Bazzy,
красным помечено, что текст не умещается.

@Ципихович Эндрю · 14.02.2011, 18:11

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

умножаем количество букв в этом слове на ширину одной буквы

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

@Bazzy · 14.02.2011, 19:12

VB.NET
1
2
3
Range("a1").Value = "ewerwerwer234234234324324rwerwer" 'Вставить самое длинное значение из ListBox
Columns("a:a").AutoFit
Range("b1").Value = Columns("a:a").ColumnWidth 'нужная Вам ширина

@Наталья310 · 28.09.2011, 15:37

Помогите, пожалуйста, с задачей!
Условие тоже самое!
Напишите программу с использованием операторов условий и цикла, вычисляющую общую выручку от продаж в у.е и количество сделок для заданного менеджера. Результаты поместите в ячейки J1 и J2.
Во вложении задача в exel, по ней надо написать программу!!
Спасибо))

@Ципихович Эндрю · 28.09.2011, 15:47

Сообщение от Наталья310

Условие тоже самое!

и рядом не лежало

@Наталья310 · 28.09.2011, 15:51

всмысле?
что-то надо добавить?

@Ципихович Эндрю · 28.09.2011, 16:01

смысл такой - что сделано? и что конеретно не получается?

@Наталья310 · 28.09.2011, 16:05

Вот, это задание.
1,2,3 задания, сделаны, надо 4
Не знаю, как в VBA программы писать!

@Наталья310 · 29.09.2011, 10:07

В чем здесь ошибка?!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub prog()
Dim k As Integer, s As Long
i=4
s=0
k=0
Do while Cells(i,2)<> ""
If Cells(i,2) = "Альшанскай"
s=s+Cells(i,8)
k=k+1
End if
i=i+1
Loop
Range("K1")="Сумма выручки Альшанского"
Range("K2")=s
Range("L1")="Число сделок Альшанского"
Range("L2")=k
 
 
End Sub

@Busine2009 · 29.09.2011, 10:25 **[ТС]**

Visual Basic
1
If Cells(i, 2) = "Альшанскай" Then

@Наталья310 · 29.09.2011, 13:59

В чем именно?
Надо из всех найти "Альшанского" и сложить его общую выручку!И кол-во его продаж.

Добавлено через 3 часа 25 минут
If Cells(i, 2) = "Альшанскай" Then

сделала так, ошибку выделяет Do while Cells(i,2)<> ""

@Busine2009 · 29.09.2011, 14:24 **[ТС]**

В 4 строке нужно указать имя обрабатываемого листа.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub prog()
Dim s As Integer, k As Long, i As Long
Dim ЖурналПродаж As Excel.Worksheet
Set ЖурналПродаж = Worksheets("ЖурналПродаж")
s = 0
k = 0
i = 4
Do While ЖурналПродаж.Cells(i, 2) <> ""
    If ЖурналПродаж.Cells(i, 2) = "Альшанскай" Then
        s = s + ЖурналПродаж.Cells(i, 8)
        k = k + 1
    End If
    i = i + 1
Loop
ЖурналПродаж.Range("K1") = "Сумма выручки Альшанского"
ЖурналПродаж.Range("K2") = s
ЖурналПродаж.Range("L1") = "Число сделок Альшанского"
ЖурналПродаж.Range("L2") = k
End Sub

Когда создаёте сообщение на форуме, то указывайте название ошибки и номер строки, в которой произошла ошибка.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575

	Ширина столбцов под текст в ListBox, ListView и другом. 14.02.2011, 00:43. Показов 15006. Ответов 13 Метки нет (Все метки) Есть что-нибудь вроде ListBox и ListView, но чтобы ширина столбцов подгонялась автоматически под текст, содержащийся в столбцах? Сейчас картина обстоит такая в отношении ListView. Ширина столбцов регулируется с помощью заголовков ListView, которые появляются в режиме ListView1.View = lvwReport, и возможно две ситуации без хитрых манипуляций: если ширина заголовка не указана, то столбцы всегда имеют одну и ту же ширину; можно устанавливать ширину столбцов, указывая ширину заголовков. Я так понимаю, что обходной путь на данном этапе развития VBA - это подсчёт количества букв в словах, находящихся в столбцах, и определение самого длинного слова. Затем умножаем количество букв в этом слове на ширину одной буквы и находим тем самым длину самого длиного слова, а затем эту длину пишем в свойство заголовка ListView. 0

@Bazzy 197 / 189 / 15 Регистрация: 09.02.2011 Сообщений: 457
	14.02.2011, 11:19
	Busine2009, можете прикрепить файл с примером? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	14.02.2011, 11:54 [ТС]
	Bazzy, красным помечено, что текст не умещается. Миниатюры 0

@Наталья310 0 / 0 / 0 Регистрация: 28.09.2011 Сообщений: 5
	28.09.2011, 15:51
	всмысле? что-то надо добавить? 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,324
	28.09.2011, 16:01
	смысл такой - что сделано? и что конеретно не получается? 0

@Наталья310 0 / 0 / 0 Регистрация: 28.09.2011 Сообщений: 5
	28.09.2011, 16:05
	Вот, это задание. 1,2,3 задания, сделаны, надо 4 Не знаю, как в VBA программы писать! Миниатюры 0

@Наталья310 0 / 0 / 0 Регистрация: 28.09.2011 Сообщений: 5
	29.09.2011, 13:59
	В чем именно? Надо из всех найти "Альшанского" и сложить его общую выручку!И кол-во его продаж. Добавлено через 3 часа 25 минут If Cells(i, 2) = "Альшанскай" Then сделала так, ошибку выделяет Do while Cells(i,2)<> "" 0