Обращение к ListBox расположенному на другом листе

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Обращение к ListBox расположенному на другом листе (Макросы/Sub)

lostandleft

Дата: Суббота, 05.10.2019, 10:41 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 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

Ответить

китин

Дата: Суббота, 05.10.2019, 10:42 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

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

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

lostandleft

Дата: Суббота, 05.10.2019, 11:10 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Цитата китин, 05.10.2019 в 10:42, в сообщении № 2 ()

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

Исправил

Ответить

lostandleft

Дата: Суббота, 05.10.2019, 13:32 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 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

Ответить

Обращение к ListBox расположенному на другом листе (Макросы/Sub)

Страница 1 из 1
1