Браво, Билял! Реально актуально, ёмко, идеально выверено и преподнесено!!! Спасибо за урок! Вижу, что коллег интересуют все больше вопросы работы с «умными таблицами»: и действительно, на просторах интернета эти таблицы только восхваляются, в основном; но найти порой конкретное решение по манипуляциям с ними в решении разных задач - это проблема! У Вас есть замечательные видео об этих умных таблицах, но было бы просто супер, если бы Вы более глубоко коснулись трюков по решению разных задач: это - как предложение!) Спасибо заранее, буду ждать с нетерпением.
Пользуйтесь словарями и массивами. Так и быстрее и правильнее. Public Sub pUniqueValue() Dim lo As ListObject Dim iC As Long Dim vArray As Variant Dim UniqueV As Scripting.Dictionary Set lo = ThisWorkbook.Worksheets("ww").ListObjects("tt") Set UniqueV = New Scripting.Dictionary ReDim vArray(1 To lo.ListColumns(1).DataBodyRange.Count) vArray = lo.ListColumns(16).DataBodyRange.Value2 For iC = 1 To UBound(vArray) If Not UniqueV.Exists(vArray(iC, 1)) Then UniqueV.Add Key:=vArray(iC, 1), Item:=vArray(iC, 1) End If Next iC ReDim vArray(0 To UniqueV.Count) vArray = UniqueV.Items For iC = 0 To UBound(vArray) ThisWorkbook.Worksheets("ww").Range("M" & iC + 2).Value2 = vArray(iC) Next iC Set lo = Nothing Set UniqueV = Nothing Erase vArray End Sub
Браво, Билял! Реально актуально, ёмко, идеально выверено и преподнесено!!! Спасибо за урок! Вижу, что коллег интересуют все больше вопросы работы с «умными таблицами»: и действительно, на просторах интернета эти таблицы только восхваляются, в основном; но найти порой конкретное решение по манипуляциям с ними в решении разных задач - это проблема! У Вас есть замечательные видео об этих умных таблицах, но было бы просто супер, если бы Вы более глубоко коснулись трюков по решению разных задач: это - как предложение!) Спасибо заранее, буду ждать с нетерпением.
Очень полезные уроки по VBA. Спасибо Билял!
Билял, это восхитительно! Вот уж действительно, "Когда знаешь, все просто"
Класс 👍 как всегда коротко и понятно
ух ты круто, новое видео по VBA.
Большое спасибо Билял. Ставлю лайк сразу не глядя, так как знаю что видео будет точно крутым и интересным.
да действительно, очень крутое видео просто бомба :)
Вроде 9 минут, не так уж и много, но даже в таком видео есть пара крутых приёмов.
Билял, благодарю! Отличный урок! Всё на высшем уровне, всё понятно, всё получилось повторить.
Спасибо за труд!
Спасибо)
Шикарный урок! Спасибо)
Круто, а можно пожалуйста такие же примеры с использованием умных таблиц)
Умная таблица это объект listobjects
Когда урок про классы будет?
Тоже хотел бы посмотреть видео на тему классы!
Спасибо за урок, а как вывести список уникальных значений на другой лист в рабочей книге?
Спасибо! Очень круто. Подскажите, как вывести результат на Лист в ячейки?
А уникальные значения по условиям получить реально?
Пользуйтесь словарями и массивами. Так и быстрее и правильнее.
Public Sub pUniqueValue()
Dim lo As ListObject
Dim iC As Long
Dim vArray As Variant
Dim UniqueV As Scripting.Dictionary
Set lo = ThisWorkbook.Worksheets("ww").ListObjects("tt")
Set UniqueV = New Scripting.Dictionary
ReDim vArray(1 To lo.ListColumns(1).DataBodyRange.Count)
vArray = lo.ListColumns(16).DataBodyRange.Value2
For iC = 1 To UBound(vArray)
If Not UniqueV.Exists(vArray(iC, 1)) Then
UniqueV.Add Key:=vArray(iC, 1), Item:=vArray(iC, 1)
End If
Next iC
ReDim vArray(0 To UniqueV.Count)
vArray = UniqueV.Items
For iC = 0 To UBound(vArray)
ThisWorkbook.Worksheets("ww").Range("M" & iC + 2).Value2 = vArray(iC)
Next iC
Set lo = Nothing
Set UniqueV = Nothing
Erase vArray
End Sub
2021
На мой взгляд слишком мудрено. Всегда стараюсь использовать решения более простые