Введение - Об этом экспресс-курсе VBA (Серия VBA 1)


Просмотров:
0
Добавлено:
10.05.2021
Категории: Разное
Комментарии (0)
Написать
Кликните на изображение чтобы обновить код, если он неразборчив
Антон Вольт: Огромная Благодарность за труд! Много важной информации без "воды".

Альбина Скорова: Хммм, попррррррррробуем.

Алексей Соков: 2021

Володя Зеленкин: привет ранепе

Антон Журавлев: Приветствую. До этого тоже на ютубе проходил уроки по Макросам, но они закончились. Сегодня нашел ваш канал. Буду пробовать =)

Руслан: Классные уроки. Хочу порешать задачи, есть ли какие нибудь сборник задач?

давид маргарян: msgbox="красава"

Максимус Аве: я уже писал свое мнение под другими видео. но что то надо писать под каждым видео.

Rani: Билял, ещё такой момент. Манипуляции с данными в ексель нужны обычно для того, чтобы вставить их в шаблон ворда, в какое то определённое место. Осветите, пожалуйста, этот момент

И Иванов: Отличные видео. Сколько лет изучаете VBA?

Elias A.: а чего так анонимно? ни имени, ни откуда (кроме location: Germany), ни какой опыт ;)

Sobirjon Majidov: Не подскажете, как указать файлы фотографий? спрашиваю у гугла, не хочет ответить, или не так спрашиваю..... Уточнение. Надо чтобы в FileFilter попали все расширение которые имеют фотографии. Например "JPG, JPEG, TIFF, PNG, BMP" ну и т.д. По аналогии как импортируется в самом экселе с фильтром "Все рисунки". Ну и еще, был бы рад, если подскажете и если это возможно. Вставить картинки без предварительного выбора. Т.е у меня код получился вот такой, в 13 ой строке адрес ячейки, можно ли его указать без select? Если есть замечание по коду, буду воспринимать на ура Sub ImortPictures() 'нескольк фотография Dim FileName As Variant Dim lngCounter, i As Long Dim vbImportFile As Variant FileName = Application.GetOpenFilename(MultiSelect:=True) i = 1 If IsArray(FileName) = True Then Application.ScreenUpdating = False For lngCounter = LBound(FileName) To UBound(FileName) Debug.Print "Сейчас будет вставлена картинка " & (FileName(lngCounter)) Cells(3 + i, 1 + i).Select ' Можно как-то указать ячейку, но без select shBlank.Pictures.Insert(FileName(lngCounter)).Select i = i + 1 Next lngCounter End If End Sub Заранее, спасибо!

Андрей Лесников: Мега-мега-мегаграмотное изложение материала и продуктивные уроки! Редкость на просторах интернета! Низкий Вам поклон за столь эффективное изложение материала по VBA! Вы педагог от Бога, продолжайте в том же духе! Низкий поклон за труды! Не поленюсь и напишу это коммент по каждым видео курса!!!

Anastassiya Yelina/Guzik: О бОГИ КАЖЕТСЯ Я НАШЛА ВСЕ В ОДНОМ МЕСТЕ)

Похожие видео: