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

Вход

Регистрация

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

 

= Мир MS Excel/Обращение не к умной таблице а к выбранному диапазону ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение не к умной таблице а к выбранному диапазону ячеек (Формулы/Formulas)
Обращение не к умной таблице а к выбранному диапазону ячеек
baskakova7441 Дата: Среда, 08.09.2021, 16:24 | Сообщение № 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
[/vba]
 
Ответить
СообщениеРебята здравствуйте. Помогите на примере данного макроса, сделать обращение не к умной таблице, а к диапозону ячеек. Хочу избавится от умных таблиц, так как не учли момент что они не имеют общий доступ
[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
[/vba]

Автор - baskakova7441
Дата добавления - 08.09.2021 в 16:24
Nic70y Дата: Среда, 08.09.2021, 16:30 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7017
Репутация: 1618 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
For Each i In ThisWorkbook.Sheets("Склад").Range("a1:w99")

Next
[/vba]


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение[vba]
Код
For Each i In ThisWorkbook.Sheets("Склад").Range("a1:w99")

Next
[/vba]

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

Nic70y, уважаемый, можно вас попросить изменить мой макрос согласно диапазону. Буду очень Вам благодарен. Спасибо.
Изучаю язык согласно примерам.
 
Ответить
СообщениеNic70y, уважаемый, можно вас попросить изменить мой макрос согласно диапазону. Буду очень Вам благодарен. Спасибо.
Изучаю язык согласно примерам.

Автор - baskakova7441
Дата добавления - 08.09.2021 в 16:38
Nic70y Дата: Среда, 08.09.2021, 16:43 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 7017
Репутация: 1618 ±
Замечаний: 0% ±

Excel 2010
Цитата baskakova7441, 08.09.2021 в 16:38, в сообщении № 3 ()
согласно диапазону
какому?
приложите файл пример


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение
Цитата baskakova7441, 08.09.2021 в 16:38, в сообщении № 3 ()
согласно диапазону
какому?
приложите файл пример

Автор - Nic70y
Дата добавления - 08.09.2021 в 16:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение не к умной таблице а к выбранному диапазону ячеек (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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