Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Таня Свер
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Выбор нескольких столбцов данных в "умной таблице" (ListObjects) средствами VBA
 
#
12.03.2023 14:00:07
skais675, Спасибо! ))
 
Перейти    
Выбор нескольких столбцов данных в "умной таблице" (ListObjects) средствами VBA
 
#
12.03.2023 00:35:16
Привет всем! Прошу, подскажите, почему в этом коде выскакивает ошибка "subscript out of range"?
В умной таблице нужно выделить с 6 по 9 столбик последней строки.
Код
Set table = Sheet1.ListObjects("DTtable")
Set lRow = table.ListRows.Add
Intersect(lRow.Range, table.ListColumns("6:9").DataBodyRange).Select
если указать один столбик - работает правильно
Код
Intersect(lRow.Range, table.ListColumns(6).DataBodyRange).Select

Возможно, есть другие методы, как это правильнее сделать? Спасибо!
Изменено: Таня Свер - 12.03.2023 02:22:19
 
Перейти    
Заполнение переменных номерами столбцов умной таблицы, согласно их названий
 
#
21.01.2023 10:56:44
New, спасибо ), - буду разбирать Ваш вариант. Думаю, то, что нужно ))
 
Перейти    
Заполнение переменных номерами столбцов умной таблицы, согласно их названий
 
#
19.01.2023 22:02:38
DANIKOLA, СПАСИБО!

дело в том, что я использую словари для обработки данных. Словари очень быстро обрабатывают информацию. Если заполнять информацию в словаре из массива, - способом (ActiveSheet.ListObjects("TblReference1").ListColumns("Student Name").Index), - уменьшается скорость обработки, потому что при каждой итерации - ищет номер столбца
таким способом я знаю, что можно (как у Вас в коде). Он рабочий, только листов будет 5-10, и столбцов в каждом листе по 20-30 шт.. Может есть другой способ, чтоб номера столбцов присвоить переменным.
Изменено: Таня Свер - 20.01.2023 04:37:28
 
Перейти    
Заполнение переменных номерами столбцов умной таблицы, согласно их названий
 
#
19.01.2023 21:15:10
Рашид Осмиев, что-то не могу придумать, как связать для решения вопроса ? можно подробнее, пожалуйста?
 
Перейти    
Заполнение переменных номерами столбцов умной таблицы, согласно их названий
 
#
19.01.2023 21:05:35
Доброго вечера! Не могу найти выход из ситуации...
Каким способом можно заполнить переменные номера столбцов, в зависимости от их названий.
Столбцы могут меняться местами. Нужно, чтобы номера столбцов всегда искали правильно.
Может мой пример далек от решение вопроса. Подскажите правильное направление, пожалуйста
Слышала о массиве переменных, - но не понимаю, может ли это помочь в решении этого вопроса.Или массивом констант как-то сделать??
Изменено: Таня Свер - 19.01.2023 21:08:28
 
Перейти    
Поиск в listbox. Неверно отображается последняя, искомая запись.
 
#
13.01.2023 01:38:45
DANIKOLA,  СПАСИБО большое! Все сработало.))
 
Перейти    
Поиск в listbox. Неверно отображается последняя, искомая запись.
 
#
12.01.2023 18:36:57
Добрый день! Подскажите, пожалуйста, почему неправильно отображаются данные в listBox, если по результатам поиска остается одна запись. Что нужно сделать, чтобы работало все корректно? Спасибо!
 
Перейти    
Найти номер строки (Find) в умной таблице
 
#
05.11.2022 22:53:07
New, спасибо, )
 
Перейти    
Найти номер строки (Find) в умной таблице
 
#
05.11.2022 20:46:44
artemkau88, New, БОЛЬШОЕ СПАСИБО! С Вашей помощью получилось! Ура! ))
Да и "Application.Match" в разы ищет быстрее, чем "Find".

третий параметр Application.Match (0) - это точное совпадение ??

Вот, что мне нужно было:
Код
Sub subFind()    
    Dim objDT As ListObject
    Dim lRow As ListRow
     
        Set objDT = ActiveSheet.ListObjects("dtTable")
        Set lRow = objDT.ListRows(Application.Match("свекла", objDT.ListColumns(1).DataBodyRange, 0))
    
        MsgBox "Найдено в строке таблицы: " & lRow.Index, , ""
End Sub
Изменено: Таня Свер - 05.11.2022 21:03:28
 
Перейти    
Найти номер строки (Find) в умной таблице
 
#
05.11.2022 20:03:29
artemkau88, искомое значение присутствует точно - задача найти строку искомого значения в умной таблице и всё.
я думаю, что-то изменить нужно в этой строке кода "
Код
Set lRow = objDT.DataBodyRange.Columns(1).Find(findText, LookIn:=xlValues, LookAt:=xlWhole)
а что именно - не знаю (
Код
Dim lRow As ListRow   
Dim findText As String
 findText = "свекла"
 Set lRow = objDT.DataBodyRange.Columns(1).Find(findText, LookIn:=xlValues, LookAt:=xlWhole)
Изменено: Таня Свер - 05.11.2022 20:05:17
 
Перейти    
Найти номер строки (Find) в умной таблице
 
#
05.11.2022 19:51:06
artemkau88, спасибо ))
я так понимаю, метода по-проще нет для, казалось бы, такой простой задачи )
я использую способ вычитание строки заголовка (как заметил Евгений), - это всего 2 строчки кода, а у ВАС слишком много кода для этой цели
но все равно спасибо, что откликнулись
 
Перейти    
Найти номер строки (Find) в умной таблице
 
#
05.11.2022 19:23:31
Евгений, спасибо, этот способ я знаю
если возможно, - ищу способ найти без вычитания номера строки заголовка, то есть поиск в самой умной таблице, а не поиск на листе.
Изменено: Таня Свер - 05.11.2022 19:24:05
 
Перейти    
Найти номер строки (Find) в умной таблице
 
#
05.11.2022 19:05:18
Здравствуйте друзья!
Не могу никак связать логику.
Хочу найти номер строки в умной таблице (!не номер строки на листе) через Find и результат записать в объект ListRow
Код в файле, нужно только одну строку подправить, но не знаю как (.
Может я ищу не правильно, - подскажите, пожалуйста как нужно.

Спасибо!
Изменено: Таня Свер - 05.11.2022 19:07:10
 
Перейти    
Событие textbox.Enter в UserForm v.2
 
#
28.08.2022 13:58:59
Цитата
написал:
Например так, если текстбоксы и комбобоксы не внутри фрейма или мультипейджа:
а есть реализация, - если объекты находятся внутри фрейма, или мультипейджа ?
 
Перейти    
Событие AfterUpdate в модуле классов
 
#
28.08.2022 13:46:43
Цитата
написал:
Вариант ZVI
супер, переделала под свой запрос, - всё работает.
Только, ещё не пойму как, - буду разбиратся.
Спасибо, друзья!
Изменено: Таня Свер - 28.08.2022 13:47:06
 
Перейти    
Событие AfterUpdate в модуле классов
 
#
28.08.2022 13:24:23
да, одна строка, - но, если объектов 80-90 шт, (160-180 строк однотипного кода). Плюс, - объекты будут добавлятся, или некоторые удалятся... По-этому ищу альтернативу через класс модуль, если это, конечно, реально.
Изменено: Таня Свер - 28.08.2022 13:28:23
 
Перейти    
Событие AfterUpdate в модуле классов
 
#
28.08.2022 12:59:35
Цитата
написал:
Вариант: создать всего две внешних и вызывать их.
Спасибо!, Этот вариант я рассматривала, - получается для каждого объекта всёравно придётся писать по две процедуры для вызова внешних
 
Перейти    
Событие AfterUpdate в модуле классов
 
#
28.08.2022 12:41:28
Простите, уже прошло 5 дней, - никто не ответил, Я не правильно задала вопрос, или этот вопрос не решаем ? (
 
Перейти    
Событие AfterUpdate в модуле классов
 
#
22.08.2022 20:21:02
Приветствую! Нужна ваша помощь. Хочу реализовать подсказки в текст боксах. Текст боксов будет около сотни. Знаю, что это можно реализовать через события AfterUpdate и Enter. Но в класс модулях нету этих событий. В интернете не нашла нужного результата. Как реализовать это, не создавая по две процедуры для каждого текст бокса ? Пример прилагается. Спасибо!
Изменено: Таня Свер - 26.08.2022 20:59:49
 
Перейти    
Страницы: 1
Наверх