Редактирование данных из таблицы Excel - ListBox выводит только один столбец

@dimusiko · Регистрация: 14.07.2014

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

доброго времени суток!
нашел очень хороший исходник по редактированию на этом форуме и подогнал под свои данные. Проблема не велика но хотелось бы от неё избавится. описывать именно саму проблему очень долго поэтому кому не сложно скачайте этот экселевский файл с макросами и посмотрите.
не добавил сюда потому что выдает ошибку, формат видимо изменился из за макросов
http://vk.com/away.php?utf=1&t... %3Dsharing
проблема заключается с формой редактирования. я уже все что можно там пытался поменять но у меня все ранво вместо моих столбцов отображается только один.. и я не знаю как это попровить. подскажите кто знает. может быть я не там капаю

Добавлено через 3 минуты
сам listbox не хочет выводить несколько столбцов и выводит только один

@Апострофф · 16.07.2014, 20:06

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

не добавил сюда потому что выдает ошибку, формат видимо изменился из за макросов

dimusiko, что-нибудь про архивы (ZIP, RAR и т.д.) Вы слышали?

@dimusiko · 16.07.2014, 20:08 **[ТС]**

ахахахаха)) а ведь реально) сорри просто целый день за компом делаю эти задания.. башка не варит уже)))

SoftIce · 16.07.2014, 22:32

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

вместо моих столбцов отображается только один.. и я не знаю как это попровить

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Activate()
   Dim i As Integer
   Sheets("База_данных").Activate
    i = 2
    Do
        i = i + 1
    Loop Until Worksheets("База_данных").Cells(i, 1) = ""
    i = i - 1
    ListBox1.ColumnCount = 4 '!!!!!!!!!!!!!!!!!!!!!!!!
    ListBox1.RowSource = "База_данных!B2:E" & CStr(i)
    ListBox1.ColumnWidths = "35;35;35;35;35"
End Sub

@Hugo121 · 16.07.2014, 23:59

Так поуниверсальнее, работает и на 2003:

Visual Basic
1
2
3
4
5
6
7
8
Private Sub UserForm_Activate()
    With Sheets("База_данных").Range("A1").CurrentRegion
        a = .Offset(1).Columns(2).Resize(.Rows.Count - 1, 4).Value
    End With
    ListBox1.ColumnCount = 4    '!!!!!!!!!!!!!!!!!!!!!!!!
    ListBox1.List = a
    ListBox1.ColumnWidths = "35;35;35;35"'ведь 4 заказывали?
End Sub

Да и код быстрее и покороче...

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@dimusiko 0 / 0 / 0 Регистрация: 14.07.2014 Сообщений: 5

	Редактирование данных из таблицы Excel - ListBox выводит только один столбец 16.07.2014, 20:02. Показов 2511. Ответов 4 Метки нет (Все метки) доброго времени суток! нашел очень хороший исходник по редактированию на этом форуме и подогнал под свои данные. Проблема не велика но хотелось бы от неё избавится. описывать именно саму проблему очень долго поэтому кому не сложно скачайте этот экселевский файл с макросами и посмотрите. не добавил сюда потому что выдает ошибку, формат видимо изменился из за макросов http://vk.com/away.php?utf=1&t... %3Dsharing проблема заключается с формой редактирования. я уже все что можно там пытался поменять но у меня все ранво вместо моих столбцов отображается только один.. и я не знаю как это попровить. подскажите кто знает. может быть я не там капаю Добавлено через 3 минуты сам listbox не хочет выводить несколько столбцов и выводит только один 0

@dimusiko 0 / 0 / 0 Регистрация: 14.07.2014 Сообщений: 5
	16.07.2014, 20:08 [ТС]
	ахахахаха)) а ведь реально) сорри просто целый день за компом делаю эти задания.. башка не варит уже))) 0

Редактирование данных из таблицы Excel - ListBox выводит только один столбец

Решение