Workbooks - Worksheets - Range. Разбираемся! (Серия VBA 5)

[@zyablik19992210]

28.10.23 - вместо изучения питона лобызаю vba:)) работаю в компании, где с рабочих компов нет доступа в интернет и не будет никогда (в целях предотвращения утечек), поэтому единственное, где можно программировать - excel Просто хотелось утвердиться тут Желаю всем успеха, я поехал дальше) Автор - огонь, благодарю!

[@АндрейЛесников-з8ч]

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

[@BilyalKhassenov]

Здравствуйте, Андрей! Со своей стороны точно также не поленюсь и поблагодарю Вас за этот приятный комментарий под каждым видео точно так же :) С уважением и хорошего Вам дня, ХБ

[@blackmes0730]

Жалею что не посмотрел ето видео когда сам писал код, еле как написал калькулятор, паралельно изучая синтаксис, и не зная о форматах сохранения в екселе, сохранил просто файл без кода, когда решил проверить, сохранилось ли все нормально, увидел одну большую детскую неожиданность. Спасибо автору за хорошие видео👍

[@katerina6030]

При первом методе обращения к книге VBA выдавал ошибку 9. Помогло указание расширения в названии книги. Была открыта только одна книга.

[@BilyalKhassenov]

Здравствуйте, Екатерина! Спасибо за Ваш комментарий! Я сейчас подумал, что возможно это зависит от того, сохранен ли указываемый файл где-либо (например, на рабочем столе). Но нет, в моём случае работает как указание лишь имени, так и указание имени с расширением файла, например: MsgBox Workbooks("Сохраненный файл").Name / MsgBox Workbooks("Сохраненный файл.xlsm").Name Возможно, причина в разных версиях Excel? Какая у Вас версия? С уважением, Билял

[@Российскийинтеллигент]

@@BilyalKhassenov У меня такая же ошибка выскочила. Excel 2010

[@kondr48]

Разница в том, включено ли в панели управления windows отображение расширения файла или нет.

[@stay39]

@@kondr48 Спасибо , помогло. Отключил отображение, ошибка ушла.

[@babunv2]

Интересно если человек претендует на то чтобы обучать VBA людей - должен ли он это знать?

[@ВероникаБарбышова]

Спасибо за наглядные пояснения!

[@АлександрФилиппов-щ7ю]

Отлично, спасибо большое !!!

[@BilyalKhassenov]

Здравствуйте, Александр! Рад стараться :) Хороших Вам выходных! С уважением, ХБ

[@ABeRezka]

Спасибо. Замечательные уроки!!!

[@bvanbanan]

1:00 ахаха! "Это что за покемон!"

[@ortah3759]

Большое спасибо!

[@vjhighlander]

Странно. У меня, например, открыто две книги Книга1.xlsm и Книга2.xlsm. Если я прописываю MsgBox Workbooks("Книга1").Name или же MsgBox Workbooks("Книга2").Name то есть без .xlsm, то у меня выскакивает ошибка Subscript out of range А если я прописываю MsgBox Workbooks("Книга1.xlsm").Name или же MsgBox Workbooks("Книга2.xlsm").Name то имя нормально выводится... Почему так?

[@LichEight]

какая версия ?

[@excelpowerquerypowerbi586]

like

[@давидмаргарян-ю1ч]

получается если я на листе захочу указать диапазон на определенном листе мне надо написать msgbpx worksheet(1).range("A1") ? верно?

[@фокси-я9ь]

Подскажите почему когда записываю код msgbox workbooks («книга1»).name выдает ошибку(subscript out of range. Дописал в книга1.xlsx и все работает. Но вы не указываете формат

[@Anonymus-vn8yd]

Подскажите, а почему вы не указали цепочку к Range("A1")? Разве не правильно было бы писать MsgBox Workbooks(1).Worksheets(1).Range("A1").Address ?

[@BilyalKhassenov]

Здравствуйте! Да Вы абсолютно правы - наиболее правильным методом указания требуемой ячейки является эксплицитное указание всего пути до неё. В данном же примере я сократил код, отбросив точное указание пути к требуемой ячейке, для создания более наглядного, простого примера. Но, как было сказано, это было сделано лишь для простоты понимания. В реальном коде всегда следует эксплицитно указывать требуемую ячейку. С уважением и хороших Вам выходных 😊 Билял

[@Anonymus-vn8yd]

Билял Хасенов - Excel & VBA Добрый вечер! Спасибо, вам, за подробный ответ и за замечательный курс! Продолжаю обучаться по вашим видео!!! Успехов!!!

[@BilyalKhassenov]

@@Anonymus-vn8yd Большое спасибо! Вам тоже успехов! Если что, всегда обращайтесь 😊 С уважением, Билял

[@bopiyeff]

Спасибо за огромный труд изучаю VBA с нуля, и не понимаю зачем он будут ли дальше конкретные задачи, которые необходимо будет решить?

[@tigerpenguin6274]

Билял, помогите пожалуйста! Как определить сколько слов/символов поместиться до видимой границы ячейки? Есть что-то более простое, чем посимвольная вставка и ожидание изменения высоты столбца, при включенном WrapText?

[@BilyalKhassenov]

Здравствуйте! Могу Вам предложить следующий вариант. Вписываете весь нужный текст в одну ячейку без включенного Wrap Text (например, A1). Затем выбираете ячейки, за область которых не должен выходить этот текст (например, A1:C5). И во вкладке «Главная» нажимаете «Заполнить» и выбираете «Выровнять». Текст будет разделён в указанной области таким образом, чтобы не пересекалась указанную границу. При этом заметьте, что имеющийся в этой области нижестоящий текст будет заменён на разделенный текст из А1. Кроме того, этот метод работает лишь с текстовыми строками до 255 символов. Остальной текст будет обрезан и потерян. Надеюсь, такой вариант Вам подходит. С уважением и хороших Вам выходных, Билял

[@tigerpenguin6274]

@@BilyalKhassenov Спасибо за ответ, но это не то:) Я неполно/неверно описал конкретную задачу(вставка большого текста в ячейку фиксированной ширины, где нужно распределить текст в несколько строк), чтобы упростить вопрос и наверное Вы не поняли:) Решил в итоге так: Некий текст разбиваю по-пробелам методом split и заношу в массив String. Запоминаю ширину нужной ячейки. Создаю фигуру для вставки текста "AddShape(msoShapeRectangle, param2 , param3 , param4 , param5).TextFrame..." с шириной целевой ячейки, характеристиками текста целевой строки и(!) включенным AutoSize. Далее циклом вставляю слова с пробелами по-одному в фигуру и проверяю "больше ли ширина фигуры - ширины целевой строки + 2 условных еденицы ширины(т.е. несколько пикселей, т.к. фигура с текстом всегда будет чуть шире ячейки с таким же текстом)". Если да, то удаляю из целевой ячейки(строки) слово и один пробел - т.е. остальной текст переносится на нижний ряд. И так до конца вставки нужного текста. Фигуру удаляю и создаю заново нужное число раз, работает довольно быстро. Похожая ситуация встречается у разных людей:) Я не смог нагуглить решения, но подсказал программист, решавший схожую задачу. Думаю это кому-то может пригодиться, кто-то возможно наткнется по ключевым словам. Не знаю где лучше описать это, для помощи другим. Возможно Вам захочется сделать видео на эту тему :)

[@ГеоргийСапожкин-з5й]

Классный урок

[@deavator]

Хорошие уроки! Только небольшая поправка. Для объекта "Range" наверно правильнее употреблять термин "диапазон" вместо "область".

[@Dmitrii-Zhinzhilov]

Благодарю!!!

[@KyklaKolduna]

Здравствуйте. Спасибо за ваши уроки! Я решила проверить все варианты методов указания книг и в первом варианте я получаю ошибку :( Мой файл excel называется VBA уроки, я записала вывод на экран так: MsgBox Workbooks("VBA уроки").Name В чем может быть ошибка? Остальные варианты работают.

[@pavel7914]

нашли ошибку?

[@kondr48]

Возможно дело в том, что в панели управления windows у вас включено отображение расширения файлов, а название книги Вы указываете без расширения.

[@a.k.1058]

супер

[@sergoa.8849]

респект

[@user-en8ko2vd1k]

15 сен 2022

[@АзатБашмаков]

Остановился здесь 4-53

[@alexanderostrovski7074]

"Щёлкнули" только :-)

[@udovenko9]

Не осилил, смотреть 3-4 часа видео чистой теории нету сил.

[@yellowmoonishka1725]

ths