VBA Excel программирование для начинающих - Новый курс VBA (1)

[@MegaDjeday]

Огромное спасибо! Только начал первый курс смотреть, а вы уже второй выпускаете! Только не бросайте это дело, это самый лучший курс по VBA.

[@BilyalKhassenov]

Здравствуйте, igor! Большое спасибо за Ваш комментарий 😊 Конечно, буду и дальше снимать видео, рад что они важны для зрителей 😊 С уважением и хороших Вам выходных, Билял

[@ЄвгеніяЛейман]

@@BilyalKhassenov Подскажите, пожалуйста, лучше смотреть оба курса или какой-то один выбрать?

[@dncdncdncdnc8034]

о да, да и еще раз да! годнота ждет нас господа! во мне аж дар поэта проснулся! последний раз подобный нетерпеж испытывал в далеком детстве... когда каждый день ждал заветных 20:45, что-бы насладиться очередным выпуском "Спокойной ночи малыши":) извиняюсь конечно за такое сравнение, но в условиях дефицита мультиков, я действительно очень любил эту передачу:)

[@ГенадийСидоренко-б9ц]

Как в том анекдоте "ничего себе, за хлебушком пошел" Просто хотел, для сына сделать небольшую, простенькую програмку для составления строительных смет. Так увлекся, что смотрю, на старости лет "программистом" стану. Однозначно, лайк (вподобайка) і коментар у підтримку каналу(Билял Хасенов - Excel, VBA & More) і звичайно підписка.

[@kuzinvla5539]

Билял, приветствую👋👋👋! Благодаря твоим видео стал понимать VBA. Не первый год пытаюсь хоть как-то освоить VBA, но дальше чтения книг, статей из интернета и просмотра обычных роликов не продвигался 😔. Благодаря Тебе я перешёл от теории к практике - пишу первую программу, если можно так сказать 😉. Твои видео и твой подход к подаче материала реально работает 💪. От всего сердца респект тебе и низкий поклон за труд 🤝. Удачи!

[@Евгений-10.11]

Спасибо, Билял! Заинтригован новым курсом и жду с нетерпением новых плэйлистов!

[@SuperAdamius]

Ура! Спасибо большое за Ваши труды!

[@piktogor]

Спасибо за видео! Звучит многообещающе. Уверен так и будет

[@vip007ad]

Билал, огромное спасибо за ваши уроки , ждем с нетерпением!!!!

[@lexxb4328]

Молодец, не останавливайся на достигнутом!

[@ramilz772]

Большое спасибо автору курса! Этот курс лучшее что есть в Ютубе по VBA для начинающих. Сказать, что этот курс стоит посмотреть все равно что ничего не сказать. И да, лайков на самом деле должно быть больше!

[@captain_swan]

Крутая тема написать тест с подкачкой вопросов из файла )

[@ДмитрийСергеев-л6г]

Спасибо огромное! Я в восторге!!! Очень помогает в работе!!!

[@Serega_Zaicev]

я первый курс просмотрел круто, но не хватало практики в 1 курсе ,а в анонсе нового курса упор на практику ставитса очень классно

[@AlexConglomerate]

Урааа!!!

[@siamherbs]

Билял, хочу выразить вам свою благодарность за интересные курсы по VBA. Могу сказать вам точно, что с таким подходом плана обучения вас ждет обязательный успех. Ваш метод интересный, ёмкий и информативный. Главное, имеет логичную последовательность. Но не останавливайтесь на достигнутом. Как понимаете, нет совершенства. Я бы сказал, совершенство - поиск лучшего все время.

[@user-ye2mm6ov6li]

Шикарное видео. Отличный курс. Огромное вам спасибо

[@SamSambl4]

Спасибо за трудъ!

[@BilyalKhassenov]

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

[@АнсарСерикбаев-б4н]

Ждем

[@anira1504]

🎉🎉🎉спасибо ❤

[@ДмитрийНеизвестный-щ4ц]

Билял - жемчужина ютьюба Рекомендую ваш канал всем офисным работникам. Посмотрел полтора урока на канале но уже во всю ковяряю чужой код. Море пользы при совершенно крошечных затратах времени. Язык вроде несложный. Только ради познания нового уже интересно.

[@rozaraissa6294]

Я- против войны. Поддерживаю тебя полностью. . Мне 70 лет. И я - учитель нем языка в прошлом. И я- из Казахстана. Рада что нашла твой канал! Ты - классный парень и духовно и профессионально! Успехов тебе в защите докторской! А я- займусь осваивать технологии на твоем канале... Грамотно и доходчиво преподносишь материал... ❤

[@zaremaalieva8042]

Билял, благодарю за уроки! Жду Ваших уроков по power query )

[@khrom-h7j]

Сперва лайк, просмотр потом) В плейлисте почему то дубль получился

[@BilyalKhassenov]

Здравствуйте, Роман! Большое спасибо за Ваш комментарий, а также за заметку касательно дубля в плейлисте - уже поправил 😊 С уважением и хороших Вам выходных, Билял

[@РаминРодионов]

Спасибо, Билял

[@ilyakozlov9230]

Спасибо!

[@samarkand1795]

спасибо. отпишусь на последнем уроке видео и сообщу о результатах

[@ИгорьМосква-м3э]

Билял, приветствую. В поисках годных роликов vba для начинающих наткнулся на твои уроки. Думаю свое обучение начать с них. Но сориентируй, пожалуйста ,с какого из 2 курсов начать? С первого 40 уроков,или второго ,нового,10 уроков. Первый,вроде как ,более объемный и ,наверное, полный. Вместе с тем,второй,как я понял, учел что-то мб не реализованное в первом. Достаточно ли будет одного из них? Или нужно проходить оба? Думаю,эти вопросы не только у меня появились)

[@BilyalKhassenov]

Здравствуйте, Игорь! Я бы предложил начать с нового плейлиста, а затем пересмотреть старый. Старый более объемный, но в новом есть некоторые пункты и улучшения, о которых лучше сразу знать. Полагаю, так легче потом и первый курс будет пройден :)

[@ИгорьМосква-м3э]

Билял, спасибо за оперативный ответ. Важная информация. Так и сделаю)

[@БаяманЭргешов-л4я]

Сделайте пожалуйста видео про интеграцию Power Query и VBA

[@alex-em4em]

ГОТОВО

[@vladbasyak18]

где можно купить полный курс?

[@ПлатониМарк-л2ю]

а курс уже окончен? все основные темы рассмотрены?

[@Al_Gen]

Слышал что VBA Microsoft office меняют синтаксис без предупреждения, в итоге работает на том компе где прогали, но может не работать у соседа. К тому же любой антивирус в первую очередь вырубает все скрипты Microsoft office. Это так?

[@BilyalKhassenov]

Нет :)

[@mominjonsodiqov1107]

к какому языку программирования относится этот код

[@sohozh]

Почему бы не сделать платный курс? Я бы с удовольствием приобрел. Не всем доступна функция спонсорства - у меня в стране не работает

[@VizorSRF]

Билял, выручай! Учусь по вашим видео, но столкнулся с функцией линейной интерполяции, которую не могу осилить для редактирования, автор её вот здесь опубликовал kzbin.info/www/bejne/bYW0inWorZmLepI но она работает не так ка нужно. Требуется что бы при аргументе за пределами массива функция возвращала крайние значения а не ошибку.

[@BilyalKhassenov]

Вы имеете введу возвращение минимального значения из массива х, в случае если вводимый аргумент x меньше минимального значения из этого массива? И также возвращение максимального значения х, если вводимый аргумент x больше максимального значения этого же массива? Если так, то можно добавить в код следующие строчки: Dim dblMin As Double Dim dblMax As Double dblMin = Application.WorksheetFunction.Min(xArr) dblMax = Application.WorksheetFunction.Max(xArr) If x < dblMin Then LININTERPOLATION = dblMin Exit Function ElseIf x > dblMax Then LININTERPOLATION = dblMax Exit Function End If Вот весь код целиком: Option Explicit Sub tester() Dim lngTester As Long lngTester = LININTERPOLATION(Range("B5:B9"), Range("C5:C9"), Range("G11")) End Sub Function LININTERPOLATION(xRng As Range, yRng As Range, x As Double) As Variant ' Выполняет линейную интерполяцию Dim xArr() As Double, yArr() As Double Dim x0 As Double, x1 As Double Dim y0 As Double, y1 As Double Dim y As Double Dim i0 As Variant Dim i1 As Variant ' Убедиться в том, что диапазоны xRng и yRng охватывают только одну строку ' или один столбец и что эти диапазоны имеют равное число строк и столбцов If (xRng.Rows.Count > 1 And xRng.Columns.Count > 1) Or _ (yRng.Rows.Count > 1 And yRng.Columns.Count > 1) Or _ xRng.Rows.Count yRng.Rows.Count Or _ xRng.Columns.Count yRng.Columns.Count Then LININTERPOLATION = CVErr(xlErrRef) Exit Function End If ' Передать данные из диапазонов в массивы xArr = RngToDblArray(xRng) yArr = RngToDblArray(yRng) Dim dblMin As Double Dim dblMax As Double dblMin = Application.WorksheetFunction.Min(xArr) dblMax = Application.WorksheetFunction.Max(xArr) If x < dblMin Then LININTERPOLATION = dblMin Exit Function ElseIf x > dblMax Then LININTERPOLATION = dblMax Exit Function End If ' Определить координаты ближайших точек i0 = GetClosest(xArr, x, False) i1 = GetClosest(xArr, x, True) If i0 = "#N/A" Or i1 = "#N/A" Then LININTERPOLATION = CVErr(xlErrNA) Exit Function End If x0 = xArr(i0) y0 = yArr(i0) x1 = xArr(i1) y1 = yArr(i1) ' Уравнение линейной интерполяции и вывод результата If x0 = x Then y = y0 Else y = y0 + (x - x0) * (y1 - y0) / (x1 - x0) End If LININTERPOLATION = y End Function Function RngToDblArray(rng As Range) As Double() ' Передает данные из диапазона в массив типа Double Dim i As Integer Dim arr() As Double ReDim arr(rng.Cells.Count - 1) For i = 0 To rng.Cells.Count - 1 arr(i) = rng.Cells(i + 1) Next i RngToDblArray = arr End Function Function GetClosest(xArr() As Double, x As Double, isUpper As Boolean) As Variant ' Ищет ближайшее меньшее (если isUpper = False) или ближайшее большее (если isUpper = True) значение ' и возвращает его позицию Dim i As Integer Dim result As Integer Dim isFirstEncounter As Boolean Dim isDistSmaller As Boolean isFirstEncounter = False For i = LBound(xArr) To UBound(xArr) If Not isFirstEncounter Then If isUpper = False And xArr(i) = x Then result = i isFirstEncounter = True End If Else isDistSmaller = Abs(xArr(i) - x) < Abs(xArr(result) - x) If isUpper = False And xArr(i) = x And isDistSmaller Then result = i End If End If Next i If isFirstEncounter Then GetClosest = result Else GetClosest = "#N/A" End If End Function Однако учтите, что, по сути, результат этих вычислений с приравниванием возвращаемого значения минимуму или же максиму диапазона не является интерполяцией. С уважением, Билял

[@VizorSRF]

@@BilyalKhassenov Спасибо! Теперь узнал чуть больше о работе с массивами!

[@serikurazgaliyev1241]

А Где ссылка на курс? Такой труд должен быть оплачен!