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

 

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

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

Ребята здравствуйте. Помогите на примере данного макроса, сделать обращение не к умной таблице, а к диапозону ячеек. Хочу избавится от умных таблиц, так как не учли момент что они не имеют общий доступ

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]
SUB Razdel()DIM i AS LONG     Set ShList = ТhisWorkbook.Worksheets("Склад")     Set StoreListObj = ShList.ListObjects("Склад_tb")     i = 1FOR 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 StoreListRowEND SUB
[/vba]
Автор - baskakova7441
Дата добавления - 08.09.2021 в 16:24
Nic70y Дата: Среда, 08.09.2021, 16:30 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010

For Each i In ThisWorkbook.Sheets("Склад").Range("a1:w99")

Next


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
For Each i In ТhisWorkbook.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
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 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
Поиск:

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