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

Вход

Регистрация

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

 

= Мир MS Excel/Обращение к ListBox расположенному на другом листе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение к ListBox расположенному на другом листе (Макросы/Sub)
Обращение к ListBox расположенному на другом листе
lostandleft Дата: Суббота, 05.10.2019, 10:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Подскажите пожалуйста, каким образом перебрать поочередно все данные из listbox2 находящегося на листе "Вводные"
Обращения типа
[vba]
Код
MsgBox "ThisWorkbook.Sheets("ВыбратьСклад").ListBox2.Items(i)"
[/vba]
создают ошибку.
Хотел написать код вроде такого:

[vba]
Код
        For i = 0 To .ListCount - 1
            MsgBox "ThisWorkbook.Sheets("ВыбратьСклад").ListBox2.Items(i)"
        Next
[/vba]

ничего не получается, помогите пожалуйста.

Для оценки происходящего, смотрите модуль в документе!!! и Формулу на листе таблица!!!
К сообщению приложен файл: 7064421.xls(68.5 Kb)


Сообщение отредактировал lostandleft - Суббота, 05.10.2019, 11:01
 
Ответить
СообщениеПодскажите пожалуйста, каким образом перебрать поочередно все данные из listbox2 находящегося на листе "Вводные"
Обращения типа
[vba]
Код
MsgBox "ThisWorkbook.Sheets("ВыбратьСклад").ListBox2.Items(i)"
[/vba]
создают ошибку.
Хотел написать код вроде такого:

[vba]
Код
        For i = 0 To .ListCount - 1
            MsgBox "ThisWorkbook.Sheets("ВыбратьСклад").ListBox2.Items(i)"
        Next
[/vba]

ничего не получается, помогите пожалуйста.

Для оценки происходящего, смотрите модуль в документе!!! и Формулу на листе таблица!!!

Автор - lostandleft
Дата добавления - 05.10.2019 в 10:41
китин Дата: Суббота, 05.10.2019, 10:42 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5882
Репутация: 914 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
lostandleft, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеlostandleft, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

Автор - китин
Дата добавления - 05.10.2019 в 10:42
lostandleft Дата: Суббота, 05.10.2019, 11:10 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

Исправил
 
Ответить
Сообщение
Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

Исправил

Автор - lostandleft
Дата добавления - 05.10.2019 в 11:10
lostandleft Дата: Суббота, 05.10.2019, 13:32 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
[vba]
Код
Function МЕССАГА() As Variant

' -------------------------------------------------------------
With Worksheets("Выбрать Склад").ListBox2
For i = 0 To .ListCount - 1
MsgBox Worksheets("Выбрать Склад").ListBox2.List(i)
Next

End With

' --------------------------------------------------------------

End Function
[/vba]

Решение нашел сам


Сообщение отредактировал lostandleft - Суббота, 05.10.2019, 13:33
 
Ответить
Сообщение[vba]
Код
Function МЕССАГА() As Variant

' -------------------------------------------------------------
With Worksheets("Выбрать Склад").ListBox2
For i = 0 To .ListCount - 1
MsgBox Worksheets("Выбрать Склад").ListBox2.List(i)
Next

End With

' --------------------------------------------------------------

End Function
[/vba]

Решение нашел сам

Автор - lostandleft
Дата добавления - 05.10.2019 в 13:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение к ListBox расположенному на другом листе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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