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

Вход

Регистрация

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

 

= Мир MS Excel/Не срабатывает Nothing после выполнения зависимых списков - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не срабатывает Nothing после выполнения зависимых списков (Макросы/Sub)
Не срабатывает Nothing после выполнения зависимых списков
baskakova7441 Дата: Среда, 01.09.2021, 16:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Выполняю зависимые списки следующим образом:
[vba]
Код
SUB Razdel()
DIM i AS LONG
     Set ShList = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShList.ListObjects("Склад_tb")
     i = 1
FOR Each StoreListRow In StoreListObj.ListRows
        IF StoreListRow.Range.Cells(i, 1) <> StoreListRow.Range.Cells(i + 1, 1) THEN
                AddRew.txb_arcticle.AddItem StoreListRow.Range.Cells(i, 1)
       END IF
NEXT StoreListRow
END SUB


SUB Groop()
     Set ShList = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShList.ListObjects("Склад_tb")
     AddRew.txb_desc.CLEAR
FOR Each StoreListRow In StoreListObj.ListRows
        IF StoreListRow.Range(1) = AddRew.txb_arcticle.Value THEN
                AddRew.txb_desc.AddItem StoreListRow.Range(2)
                END IF
                NEXT StoreListRow
END SUB
[/vba]
Далее выполняю вот это
[vba]
Код
SUB SearhArticle() 'Вывод данных по значению Артикла(Шифр Металлопродукции)
DIM Cell AS Range
     Set ShStore = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShStore.ListObjects("Склад_tb")
     IF AddRew.txb_nuumber.Value = "" THEN
     AddRew.txb_nuumber.Value = ""
     END IF
     Set Cell = StoreListObj.ListColumns.Item(2).Range.Find(AddRew.txb_desc.Value, LookAt:=xlWhole)
     
     IF NOT Cell IS Nothing THEN
        AddRew.txb_nuumber.Value = Cell.Cells(1, 3)
     END IF
     END SUB
[/vba]
Но данные почему то не появляются. Файл приложил. Помогите найти причину почему так происходит. Кто понимает что я делаю исходя из кода поймет меня.
Для других описываю, мне нужно так:
Если я в поле "Группа металлопродукции" выбираю значение
В другом поле ниже, выбираю другое значение
ТО в 3 поле которое после идет, должно подставится определённые данные которые зависят от второго поля.
К сообщению приложен файл: _bd_.xls(231.0 Kb)
 
Ответить
СообщениеВыполняю зависимые списки следующим образом:
[vba]
Код
SUB Razdel()
DIM i AS LONG
     Set ShList = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShList.ListObjects("Склад_tb")
     i = 1
FOR Each StoreListRow In StoreListObj.ListRows
        IF StoreListRow.Range.Cells(i, 1) <> StoreListRow.Range.Cells(i + 1, 1) THEN
                AddRew.txb_arcticle.AddItem StoreListRow.Range.Cells(i, 1)
       END IF
NEXT StoreListRow
END SUB


SUB Groop()
     Set ShList = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShList.ListObjects("Склад_tb")
     AddRew.txb_desc.CLEAR
FOR Each StoreListRow In StoreListObj.ListRows
        IF StoreListRow.Range(1) = AddRew.txb_arcticle.Value THEN
                AddRew.txb_desc.AddItem StoreListRow.Range(2)
                END IF
                NEXT StoreListRow
END SUB
[/vba]
Далее выполняю вот это
[vba]
Код
SUB SearhArticle() 'Вывод данных по значению Артикла(Шифр Металлопродукции)
DIM Cell AS Range
     Set ShStore = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShStore.ListObjects("Склад_tb")
     IF AddRew.txb_nuumber.Value = "" THEN
     AddRew.txb_nuumber.Value = ""
     END IF
     Set Cell = StoreListObj.ListColumns.Item(2).Range.Find(AddRew.txb_desc.Value, LookAt:=xlWhole)
     
     IF NOT Cell IS Nothing THEN
        AddRew.txb_nuumber.Value = Cell.Cells(1, 3)
     END IF
     END SUB
[/vba]
Но данные почему то не появляются. Файл приложил. Помогите найти причину почему так происходит. Кто понимает что я делаю исходя из кода поймет меня.
Для других описываю, мне нужно так:
Если я в поле "Группа металлопродукции" выбираю значение
В другом поле ниже, выбираю другое значение
ТО в 3 поле которое после идет, должно подставится определённые данные которые зависят от второго поля.

Автор - baskakova7441
Дата добавления - 01.09.2021 в 16:19
RAN Дата: Среда, 01.09.2021, 17:17 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5494
Репутация: 1100 ±
Замечаний: 0% ±

2010
Цитата
Не срабатывает Nothing

Что значит "не срабатывает"? Все работает штатно. Но вот
[vba]
Код
Cell.Cells(1, 3)
[/vba]
это, скорее всего не та ячейка, куда вы целитесь, а чуть дальше.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата
Не срабатывает Nothing

Что значит "не срабатывает"? Все работает штатно. Но вот
[vba]
Код
Cell.Cells(1, 3)
[/vba]
это, скорее всего не та ячейка, куда вы целитесь, а чуть дальше.

Автор - RAN
Дата добавления - 01.09.2021 в 17:17
baskakova7441 Дата: Среда, 01.09.2021, 17:27 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

RAN, да, моя невнимательность. Тут надо ссылаться на ячейку поиска. ТО есть вместо 3, 2

Прошу помощи в этой теме, а можете подсказать как сделать макрос для умной таблице, например так:
Я нажимаю на кнопку "1" а она выполняет след.действие:
в столбце 2, выбирает например 1 и все данные выводятся связанные с 1, и так далее. И соответственно макрос на удаление всех фильтров
 
Ответить
СообщениеRAN, да, моя невнимательность. Тут надо ссылаться на ячейку поиска. ТО есть вместо 3, 2

Прошу помощи в этой теме, а можете подсказать как сделать макрос для умной таблице, например так:
Я нажимаю на кнопку "1" а она выполняет след.действие:
в столбце 2, выбирает например 1 и все данные выводятся связанные с 1, и так далее. И соответственно макрос на удаление всех фильтров

Автор - baskakova7441
Дата добавления - 01.09.2021 в 17:27
Serge_007 Дата: Среда, 01.09.2021, 17:56 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 14465
Репутация: 2384 ±
Замечаний: ±

Excel 2010
baskakova7441, правила форума прочитайте, в первую очередь пп. 5q


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщениеbaskakova7441, правила форума прочитайте, в первую очередь пп. 5q

Автор - Serge_007
Дата добавления - 01.09.2021 в 17:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не срабатывает Nothing после выполнения зависимых списков (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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