Коллекции в VBA - Collections - (Серия VBA 22)
содержание видео
Дата: 2021-09-02
Похожие видео
Комментарии и отзывы: 6
Stas
Здравствуйте Билял! Спасибо за Ваши уроки, они просто незаменимый помощьник про изучении VBA. Пытаюсь каждый урок приенять на прктике с связи с чем хотел задать вопрос в котором испытываю трудности. очень надеюсь на Вашу помощь.
Задача такова: Необходимо каждый раз вставлять в последнюю колонку документа вставлять некое значение и протягивать его вниз до дех пор пока есть какое либо значение в соседней колонке слева и если с первой частью проблем нет то вот со второй (протягиванием) есть. Сложность еще в том что каждый раз эти последние колонки будут отличаться.
Вот что получилось у меня, но способ довольно топорный, и полагаю есть более рациональное решение например с использованием масивов:
Sub AddSubDate)
Range(A1. Select
Selection. End(xlToRight. Offset(0, 1. Select
ActiveCell. Value = Sub Date
Selection. Offset(1, 0. Select
Selection. FormulaR1C1 = =TODAY)
Selection. Copy
Selection. Offset(0, -1. Select
Selection. End(xlDown. Select
Selection. Offset(0, 1. Select
Range(Selection, Selection. End(xlUp. Select
ActiveSheet. Paste
Selection. Copy
Selection. PasteSpecial Paste: =xlPasteValues, Operation: =xlNone, SkipBlanks _
: =False, Transpose: =False
End Sub
Также хотел узнать есть ли какой то способ обьявить как range последнюю колонку или строчку что бы потом ее просто указывать как переменную. Спасибо заранее!
ответить
Здравствуйте Билял! Спасибо за Ваши уроки, они просто незаменимый помощьник про изучении VBA. Пытаюсь каждый урок приенять на прктике с связи с чем хотел задать вопрос в котором испытываю трудности. очень надеюсь на Вашу помощь.
Задача такова: Необходимо каждый раз вставлять в последнюю колонку документа вставлять некое значение и протягивать его вниз до дех пор пока есть какое либо значение в соседней колонке слева и если с первой частью проблем нет то вот со второй (протягиванием) есть. Сложность еще в том что каждый раз эти последние колонки будут отличаться.
Вот что получилось у меня, но способ довольно топорный, и полагаю есть более рациональное решение например с использованием масивов:
Sub AddSubDate)
Range(A1. Select
Selection. End(xlToRight. Offset(0, 1. Select
ActiveCell. Value = Sub Date
Selection. Offset(1, 0. Select
Selection. FormulaR1C1 = =TODAY)
Selection. Copy
Selection. Offset(0, -1. Select
Selection. End(xlDown. Select
Selection. Offset(0, 1. Select
Range(Selection, Selection. End(xlUp. Select
ActiveSheet. Paste
Selection. Copy
Selection. PasteSpecial Paste: =xlPasteValues, Operation: =xlNone, SkipBlanks _
: =False, Transpose: =False
End Sub
Также хотел узнать есть ли какой то способ обьявить как range последнюю колонку или строчку что бы потом ее просто указывать как переменную. Спасибо заранее!
ответить
Виктор
Аналог Collections в TurboDelphi - ключевое слово record, которое позволяет объединять данные разных типов вместе и создавать свой комплексный тип данных. Например, можно создать тип данных - запись о человеке с указанием в отдельных полях фамилии, телефона, адреса и т. д, потом в свою очередь объединить такие записи в массив - получится телефонная книга (совместное использование массивов и записей в TurboDelphi. Только в TurboDelphi обращение к полям записи (коллекции) более удобно - через точку - как свойство: Human. Surname
ответить
Аналог Collections в TurboDelphi - ключевое слово record, которое позволяет объединять данные разных типов вместе и создавать свой комплексный тип данных. Например, можно создать тип данных - запись о человеке с указанием в отдельных полях фамилии, телефона, адреса и т. д, потом в свою очередь объединить такие записи в массив - получится телефонная книга (совместное использование массивов и записей в TurboDelphi. Только в TurboDelphi обращение к полям записи (коллекции) более удобно - через точку - как свойство: Human. Surname
ответить
Kamaldzhan
Билял, добрый день!
Спасибо за урок, очень сильно помог разобраться с коллекциями. Но есть вопрос, а как можно вывести номер индекса определенного наименования из коллекции, если наименования в коллекции он берет из таблицы и соответственно я не прописываю отдельно номер как у вас показано с момента 7: 20? т. е. мне нужно что как только он находит определенное значение в коллекции выдал мне его индекс.
ответить
Билял, добрый день!
Спасибо за урок, очень сильно помог разобраться с коллекциями. Но есть вопрос, а как можно вывести номер индекса определенного наименования из коллекции, если наименования в коллекции он берет из таблицы и соответственно я не прописываю отдельно номер как у вас показано с момента 7: 20? т. е. мне нужно что как только он находит определенное значение в коллекции выдал мне его индекс.
ответить
pavel
Отличное видео! Коллекции, как вы заметили, очень похожи на массивы, но если с массивами все понятно, то как и где применять коллекции не совсем ясно. Как я понял, в коллекции можно записать только константы, изменить же значения, записанные в ячейки не получится. Может, на примере, расскажите, где применяются коллекции в vba.
ответить
Отличное видео! Коллекции, как вы заметили, очень похожи на массивы, но если с массивами все понятно, то как и где применять коллекции не совсем ясно. Как я понял, в коллекции можно записать только константы, изменить же значения, записанные в ячейки не получится. Может, на примере, расскажите, где применяются коллекции в vba.
ответить
Андрей
Мега-мега-мегаграмотное изложение материала и продуктивные уроки! Редкость на просторах интернета! Низкий Вам поклон за столь эффективное изложение материала по VBA! Вы педагог от Бога, продолжайте в том же духе! Низкий поклон за труды! Не поленюсь и напишу это коммент по каждым видео курса!
ответить
Мега-мега-мегаграмотное изложение материала и продуктивные уроки! Редкость на просторах интернета! Низкий Вам поклон за столь эффективное изложение материала по VBA! Вы педагог от Бога, продолжайте в том же духе! Низкий поклон за труды! Не поленюсь и напишу это коммент по каждым видео курса!
ответить
juli
Спасибо за Ваш труд! Все очень понятно и по теме. Коллекции использовал при написании макроса для поиска вложений в письмах Outlook.
ответить
Спасибо за Ваш труд! Все очень понятно и по теме. Коллекции использовал при написании макроса для поиска вложений в письмах Outlook.
ответить
Добавить отзыв, комментарий
Другие видео канала
