Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/ListBox не показывает значения массива. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ListBox не показывает значения массива. (Макросы/Sub)
ListBox не показывает значения массива.
OfficePlankton Дата: Воскресенье, 11.12.2022, 22:00 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Доброго времени суток уважаемым экспертам.
Не получается справится с небольшой подзадачей: вывести открытые книги в ListBox.
Прошу подсказать в чем я был неправ:
- считываю имена файлов - наполняю ими массив .
- хочу показать этот массив в простейшей юзерформе с ListBox1. через List. - показывает пустые позиции!
- и несколько смущает, что пустых позиций в ListBox на одну больше.

[vba]
Код
Sub macros1()
Dim massiv1() As Variant
kolvofail = Application.Workbooks.Count
ReDim massiv1(kolvofail)
For i = 1 To kolvofail
massiv1(i) = Array(Application.Workbooks(i).Name)
Next i
UserForm1.ListBox1.Clear
UserForm1.ListBox1.List = massiv1
UserForm1.Show
End Sub
[/vba]
 
Ответить
СообщениеДоброго времени суток уважаемым экспертам.
Не получается справится с небольшой подзадачей: вывести открытые книги в ListBox.
Прошу подсказать в чем я был неправ:
- считываю имена файлов - наполняю ими массив .
- хочу показать этот массив в простейшей юзерформе с ListBox1. через List. - показывает пустые позиции!
- и несколько смущает, что пустых позиций в ListBox на одну больше.

[vba]
Код
Sub macros1()
Dim massiv1() As Variant
kolvofail = Application.Workbooks.Count
ReDim massiv1(kolvofail)
For i = 1 To kolvofail
massiv1(i) = Array(Application.Workbooks(i).Name)
Next i
UserForm1.ListBox1.Clear
UserForm1.ListBox1.List = massiv1
UserForm1.Show
End Sub
[/vba]

Автор - OfficePlankton
Дата добавления - 11.12.2022 в 22:00
Pelena Дата: Воскресенье, 11.12.2022, 22:37 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 18707
Репутация: 4260 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
Нумерация строк в листбоксе начинается с нуля, поэтому примерно так
[vba]
Код
Sub macros1()
    Dim massiv1() As Variant
    kolvofail = Application.Workbooks.Count - 1
    ReDim massiv1(kolvofail)
    For i = 0 To kolvofail
        massiv1(i) = Application.Workbooks(i + 1).Name
    Next i
    UserForm1.ListBox1.Clear
    UserForm1.ListBox1.List = massiv1
    UserForm1.Show
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Нумерация строк в листбоксе начинается с нуля, поэтому примерно так
[vba]
Код
Sub macros1()
    Dim massiv1() As Variant
    kolvofail = Application.Workbooks.Count - 1
    ReDim massiv1(kolvofail)
    For i = 0 To kolvofail
        massiv1(i) = Application.Workbooks(i + 1).Name
    Next i
    UserForm1.ListBox1.Clear
    UserForm1.ListBox1.List = massiv1
    UserForm1.Show
End Sub
[/vba]

Автор - Pelena
Дата добавления - 11.12.2022 в 22:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ListBox не показывает значения массива. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2023 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!