Уважаемый Билял, Спасибо Вам за огромный багаж знаний, навыки и опыт, которыми вы щедро делились. Пусть сбудутся все ваши желания и оправдаются ожидания. Будьте счастливы и на 100% реализованы! В русскоязычном сегменте на youtube Ваши уроки вне конкуренции по содержанию, изложению и доходчивости материала. Новый курс VBA это просто высший пилотаж.
Билял, огромная и искренняя благодарность тебе за этот труд и бескорыстие! Только сейчас, пройдя последний урок этого плейлиста, я посмотрел последнее видео твоего канала. Очень жаль, что "ситуация" так на тебя подействовала и заставила прекратить вести этот замечательный канал. Благодаря именно твоим видео я погрузился в изучение Excel и недавно решился на VBA - супер крутая и доступная подача информации, супер качественная и выверенная, ничего лишнего, только суть! Попробуй посмотреть на происходящее под другим углом. Нас ведь не спросили, хотим мы этого или нет. Это не решение ВСЕХ русских, поддерживаем мы его или нет. И уж точно это не решение твоей аудитории, большей частью которой являются если уж и не русские, то как минимум русскоговорящие. Но по твоей логике получается так, что мы (твоя аудитория) виноваты в происходящем и нас надо "наказать", прекратив канал. Мне видится такое решение по меньшей мере поспешным и необдуманным. Большее и лучшее что мы можем делать в ситуации, не зависящей от нас - это продолжать заниматься тем, что мы можем лучше всего. В твоём случае очевидно, что данный канал - это твоё детище и сюда явно вложено очень много твоего труда и времени. Подумай ещё раз есть ли в твоём деле место политике. С уважением и благодарностью твой подписчик. Русский. Добра и всего наилучшего тебе!
С наступающим Новым годом! Успехов всем в личной жизни, здоровья, в постижении курса Excel & VBA. Билял, вам побольше лайков от подписчиков! А нам побольше замечательных уроков!
Все здорово! Спасибо! Но я бы посоветовал классику! Рассказать на примере светофора! Как то оно легче в голову ложиться, да и слов меньше, а конструктива больше
Видео помогло автоматизировать процессы. Пока еще не могу понять как копировать умные таблицы , которые не имеют постоянной формы. То есть таблица может быть большая или маленькая по строкам.
Нет в этом плейлисты пока рассмотрено лишь самое главное, ещё пара основных тем отсутствует. Но я бы а любом случае посоветовал бы посмотреть сперва этот курс, а потом старый. В старом рассмотрены все основы
Билял, Здравствуйте! После ключевого слова Else в условной конструкции Вы указываете ":", но без него тоже работает. Для чего необходимо указывать ":"?
Билял, расскажите пожалуйста об использовании Function в условиях If, то есть, если такое условие выполняется, то переходим к этой функции, если другое, то к другой функции
Здравствуйте! Большое спасибо за Ваш труд! не совсем по теме данного урока, но т.к видео из недавних, может кто то знает что делать в такой ситуации: -как по отдельности прописать i = LBound(PutRange) To UBound(PutRange) и j = LBound(PutRange) To UBound(PutRange) для правильного автоматического определения выбранного диапазона ? ------------------- Sub InpBoxEx2() Dim PutRange As Variant Dim AllRnage As String PutRange = Application.InputBox("What's a range?)", , Type:=8) For i = LBound(PutRange) To UBound(PutRange) For j = LBound(PutRange) To UBound(PutRange) AllRnage = AllRnage & "/ " & PutRange(i, j) Next j Next i MsgBox AllRnage End Sub ----------------------- если выбрать квадратный диапазон данных например 3х3 ("A1:C3") в InputBox, то макрос работает, а вот если ("A1:C5") то тут уже проблемка:/
Помогите пожалуйста Как прописать, если у меня есть два варианта Эксель файлов, например: файл1 и файл2. Если у меня открыт файл1 то проделываем такую процедуру, если открыт файл2 то такую процедуру. Спасибо за материал
Отличный урок, как и все. Уточните пожалуйста, как можно из названия файла вытащить числа. Например имя файла "заказ на участок номер 6234 ответственный Иванов. xlsx". Как можно вытащить из названия только цифры 6234?
Здравствуйте Антон! Спасибо за комментарий и интересный вопрос. Накидал сейчас вот такое решение, потестируйте: Sub extractNumbers() Dim strFileName As String 'Для примера задаём имя файла просто следующим образом strFileName = "заказ на участок номер 6234 ответственный Иванов.xlsx" Dim lngPositionCounter As Long Dim strExtractedNumbers As String Dim lngTextLength As Long lngTextLength = Len(strFileName) Dim boolUnderlineNeeded As Boolean If strFileName "" Then 'Проверка, указано ли название файла For lngPositionCounter = 1 To lngTextLength 'Проверка каждой позиции названия If IsNumeric(Mid(strFileName, lngPositionCounter, 1)) = True Then 'Если число, то сохраняем в переменную (след. строка) strExtractedNumbers = strExtractedNumbers & Mid(strFileName, lngPositionCounter, 1) If lngPositionCounter + 1
@@BilyalKhassenov Здравствуйте, проверил код, у меня почему-то он не работает. Но возможно я и сам, что то делаю не так. Ваши видео очень полезны, но в связи с тем, что многих нюансов пока что не знаю еще, трудно воспринимается код. В Вашем ответе тоже много, что непонятно. Очень хочу разобраться в vba. Думаю Вы правильно поступите, если будете с позиции высококвалифицированного специалиста снимать видео по частным случаям. Т.к. эти видео позволят намного быстрее вникать в суть. База, которую Вы даёте и частные случаи, это будет суперсила. Спасибо Вам еще раз за все.
18:26 Sub Test() Dim a(), b() As Variant, i As Integer, cel As Range a = Array(49, 99, 149, 500) b = Array(0, 5, 7, 10) For Each cel In Range(Range("C3"), Range("C3").End(xlDown)) For i = UBound(a) To LBound(a) Step -1 If cel.Value < a(i) Then cel.Offset(0, 1) = b(i) & " %" End If Next i Next cel End Sub
Уважаемый Билял, Спасибо Вам за огромный багаж знаний, навыки и опыт, которыми вы щедро делились. Пусть сбудутся все ваши желания и оправдаются ожидания. Будьте счастливы и на 100% реализованы! В русскоязычном сегменте на youtube Ваши уроки вне конкуренции по содержанию, изложению и доходчивости материала. Новый курс VBA это просто высший пилотаж.
Спасибо за работу Билял. Очень хорошо объясняешь, понятно и просто. Спасибо. Мы ценим ваш труд.
Таким языком и примерами нужно все учебники писать, учиться на порядок легче было бы. Огромное спасибо за труд!
Билял, огромная и искренняя благодарность тебе за этот труд и бескорыстие! Только сейчас, пройдя последний урок этого плейлиста, я посмотрел последнее видео твоего канала. Очень жаль, что "ситуация" так на тебя подействовала и заставила прекратить вести этот замечательный канал. Благодаря именно твоим видео я погрузился в изучение Excel и недавно решился на VBA - супер крутая и доступная подача информации, супер качественная и выверенная, ничего лишнего, только суть! Попробуй посмотреть на происходящее под другим углом. Нас ведь не спросили, хотим мы этого или нет. Это не решение ВСЕХ русских, поддерживаем мы его или нет. И уж точно это не решение твоей аудитории, большей частью которой являются если уж и не русские, то как минимум русскоговорящие. Но по твоей логике получается так, что мы (твоя аудитория) виноваты в происходящем и нас надо "наказать", прекратив канал. Мне видится такое решение по меньшей мере поспешным и необдуманным. Большее и лучшее что мы можем делать в ситуации, не зависящей от нас - это продолжать заниматься тем, что мы можем лучше всего. В твоём случае очевидно, что данный канал - это твоё детище и сюда явно вложено очень много твоего труда и времени. Подумай ещё раз есть ли в твоём деле место политике. С уважением и благодарностью твой подписчик. Русский. Добра и всего наилучшего тебе!
Как всегда на самом интересном месте закончился плейлист( Ждать ли продолжения?
У Вас определено есть талант делать сложное понятным)
Спасибо за труд!
Спасибо, Билял! Ты лучший!
Спасибо за проделанную работу!
Класс, Билял большое спасибо за долгожданное видео :)
С наступающим Новым годом! Успехов всем в личной жизни, здоровья, в постижении курса Excel & VBA.
Билял, вам побольше лайков от подписчиков! А нам побольше замечательных уроков!
Здравствуйте, Константин!
Больше спасибо, Вас тоже с наступающим! Желаю всего самого лучшего 😊
С уважением,
Билял
Спасибо
Спасибо 🌟
Все здорово! Спасибо! Но я бы посоветовал классику! Рассказать на примере светофора!
Как то оно легче в голову ложиться, да и слов меньше, а конструктива больше
Первый!!!!
Добрый день,
В конце видео Вы приглаашет на посмотр следущего урока, но в комплекте - всего 10 уроков.
Видео помогло автоматизировать процессы. Пока еще не могу понять как копировать умные таблицы , которые не имеют постоянной формы. То есть таблица может быть большая или маленькая по строкам.
Очень крутой курс, спасибо огромное!
Будет ли продолжение?
Всегда пожалуйста! :)
Будет, только пока не знаю когда :)
@@BilyalKhassenov а курс основы VBA охватывает, то есть все основные темы рассмотрены?
Нет в этом плейлисты пока рассмотрено лишь самое главное, ещё пара основных тем отсутствует. Но я бы а любом случае посоветовал бы посмотреть сперва этот курс, а потом старый. В старом рассмотрены все основы
Билял, Здравствуйте! После ключевого слова Else в условной конструкции Вы указываете ":", но без него тоже работает. Для чего необходимо указывать ":"?
Добрый день!
Скажите, пожалуйста, есть ли продолжение нового курса VBA?
видимо нет
Билял, расскажите пожалуйста об использовании Function в условиях If, то есть, если такое условие выполняется, то переходим к этой функции, если другое, то к другой функции
Здравствуйте!
Большое спасибо за Ваш труд!
не совсем по теме данного урока, но т.к видео из недавних, может кто то знает что делать в такой ситуации:
-как по отдельности прописать i = LBound(PutRange) To UBound(PutRange) и j = LBound(PutRange) To UBound(PutRange) для правильного автоматического определения выбранного диапазона ?
-------------------
Sub InpBoxEx2()
Dim PutRange As Variant
Dim AllRnage As String
PutRange = Application.InputBox("What's a range?)", , Type:=8)
For i = LBound(PutRange) To UBound(PutRange)
For j = LBound(PutRange) To UBound(PutRange)
AllRnage = AllRnage & "/ " & PutRange(i, j)
Next j
Next i
MsgBox AllRnage
End Sub
-----------------------
если выбрать квадратный диапазон данных например 3х3 ("A1:C3") в InputBox, то макрос работает, а вот если ("A1:C5") то тут уже проблемка:/
For j = LBound(PutRange, 1) To UBound(PutRange, 1)
For i = LBound(PutRange, 2) To UBound(PutRange, 2)
сорри, ложная тревога)
Решил попробовать этот курс, просто чтобы приценить свой потенциал к программированию. Задания выполнил, но голова тяжело соображает :(
Помогите пожалуйста
Как прописать, если у меня есть два варианта Эксель файлов, например: файл1 и файл2. Если у меня открыт файл1 то проделываем такую процедуру, если открыт файл2 то такую процедуру.
Спасибо за материал
Когда одно условие, у меня прога ругается, если я закрываю end if, без этой штуки работает
Отличный урок, как и все.
Уточните пожалуйста, как можно из названия файла вытащить числа.
Например имя файла "заказ на участок номер 6234 ответственный Иванов. xlsx". Как можно вытащить из названия только цифры 6234?
Здравствуйте Антон!
Спасибо за комментарий и интересный вопрос. Накидал сейчас вот такое решение, потестируйте:
Sub extractNumbers()
Dim strFileName As String
'Для примера задаём имя файла просто следующим образом
strFileName = "заказ на участок номер 6234 ответственный Иванов.xlsx"
Dim lngPositionCounter As Long
Dim strExtractedNumbers As String
Dim lngTextLength As Long
lngTextLength = Len(strFileName)
Dim boolUnderlineNeeded As Boolean
If strFileName "" Then 'Проверка, указано ли название файла
For lngPositionCounter = 1 To lngTextLength 'Проверка каждой позиции названия
If IsNumeric(Mid(strFileName, lngPositionCounter, 1)) = True Then 'Если число, то сохраняем в переменную (след. строка)
strExtractedNumbers = strExtractedNumbers & Mid(strFileName, lngPositionCounter, 1)
If lngPositionCounter + 1
@@BilyalKhassenov Класс, супер, огромное спасибо, я еще не проверял, но очень рад такому качественному, а главное быстрому ответу.
@@BilyalKhassenov Здравствуйте, проверил код, у меня почему-то он не работает. Но возможно я и сам, что то делаю не так.
Ваши видео очень полезны, но в связи с тем, что многих нюансов пока что не знаю еще, трудно воспринимается код. В Вашем ответе тоже много, что непонятно. Очень хочу разобраться в vba. Думаю Вы правильно поступите, если будете с позиции высококвалифицированного специалиста снимать видео по частным случаям. Т.к. эти видео позволят намного быстрее вникать в суть. База, которую Вы даёте и частные случаи, это будет суперсила.
Спасибо Вам еще раз за все.
Привет, а где 11 урок и другие?
18:26
Sub Test()
Dim a(), b() As Variant, i As Integer, cel As Range
a = Array(49, 99, 149, 500)
b = Array(0, 5, 7, 10)
For Each cel In Range(Range("C3"), Range("C3").End(xlDown))
For i = UBound(a) To LBound(a) Step -1
If cel.Value < a(i) Then
cel.Offset(0, 1) = b(i) & " %"
End If
Next i
Next cel
End Sub
Попробовал - это заклинание работает. Но тут явно использовано "чуть больше" навыков, чем рассказал Билял в уроках ;)
Доброго дня! Питання до автора. Підкажіть, будь ласка, де можна переглянути продовження даного курсу? Дякую!
Я так понимаю курс закончен?