Ребята всем привет 👋.
Продолжаем изучать VBA. Сегодня публикую седьмую часть справочника.
🔔 Напомню, так как сам справочник объемный я буду публиковать его серией отдельных уроков. План такой:
- часть 7. Массивы и Коллекции (план сегодняшнего урока)
- часть 8. Словари
Если вы только начинаете осваивать VBA мы уверены, каждый может найти для себя что-то новое!
✨ А прежде, чем мы начнем 📣 напомню, теперь у нас на канале есть удобный рубрикатор 👉 Быстрый поиск решения. Путеводитель по Excel, а все видео 📽 предыдущих уроков доступны и на YouTube.
✔️ Часть 7. Массивы и Коллекции
🔔 ссылку на исходник и возможность скачать справочник см. в конце статьи 🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽
⏺ Массивы
🔘 Создать ▶️
Dim arr(1 To 3) As Variant
arr(1) = “one”
arr(2) = “two”
arr(3) = “three”
🔘 Создание из Excel ▶️
Dim arr(1 To 3) As Variant
Dim cell As Range, i As Integer
i = LBound(arr)
For Each cell In Range(“A1:A3”)
i = i + 1
arr(i) = cell.value
Next cell
🔘 Прочитать все элементы ▶️
Dim i as Long
For i = LBound(arr) To UBound(arr)
MsgBox arr(i)
Next i
🔘 Стереть ▶️ Erase arr
🔘 Преобразование массива в строку ▶️ Dim sName As String
sName = Join(arr, “:”)
🔘 Увеличение размера ▶️ ReDim Preserve arr(0 To 100)
🔘 Установить значение ▶️ arr(1) = 22
⏺ Коллекции
🔘 Создать ▶️
Dim coll As New Collection
coll.Add “one”
coll.Add “two”
🔘 Создание из Excel ▶️
Dim coll As New Collection
Dim cell As Range
For Each cell In Range(“A1:A2”)
coll.Add cell.value
Next cell
🔘 Добавить элемент ▶️ coll.Add “Value”
🔘 Добавьте элемент перед ▶️ coll.Add “Value”, Before:=1
🔘 Добавьте элемент после ▶️ coll.Add “Value”, After:=1
🔘 Элемент чтения ▶️ MsgBox coll (1)
🔘 Подсчет элементов ▶️ coll.Count
🔘 Прочитать все элементы ▶️
Dim item As Variant
For Each item In coll
MsgBox item
Next item
🔘 Удалить элемент ▶️ coll.Remove (1)
🔘 Удалить все элементы ▶️ Set coll = New Collection
А на этом сегодня все. 👏 Продолжение следует...
Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel. Следите за нашими новостями и вы узнаете больше о VBA и Excel в частности.
📝 Нам очень важна Ваша обратная связь. Отзыв по уроку и любые вопросы пишите в комментариях.
💝 А если у Вас пока нет вопросов, но вы дочитали данную статью до конца оставьте в комментариях просто смайлик 😉 (автору будет приятно)
И конечно же, за лайк 👍 и репост 🔁 данного поста благодарочка 💖 и респект 🤝 каждому!
⏩ ССЫЛКА НА СПРАВОЧНИК
