Конструкция Select Case - (Серия VBA 20)

แชร์
ฝัง
  • เผยแพร่เมื่อ 2 ธ.ค. 2024

ความคิดเห็น • 28

  • @udovenko9
    @udovenko9 10 หลายเดือนก่อน +1

    Начал слушать, очень приятный голос, можно книги начитывать смело !

  • @АндрейЛесников-з8ч
    @АндрейЛесников-з8ч 5 ปีที่แล้ว +4

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

    • @BilyalKhassenov
      @BilyalKhassenov  5 ปีที่แล้ว

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

  • @Unuser555
    @Unuser555 ปีที่แล้ว

    Это лучшая серия по VBA из того, что я видел. Спасибо, Билял

  • @andrewsmolyakov4404
    @andrewsmolyakov4404 3 ปีที่แล้ว +3

    Очень крутая серия лекций! Вчера встала задача: числа превращать в текст. Например, "87123" представить в виде текста "Восемьдесят семь тысяч сто двадцать три". И сегодня, благодаря вашим лекциям, эта задача решена.

  • @АндрейВасильевич-й9с
    @АндрейВасильевич-й9с 3 ปีที่แล้ว +4

    Приятный урок. Спасибо)
    Что бы не забыть поставить лайк, прошелся по всему плей листу и кликнул) Но в итоге система не засчитала. Видимо с начало просмотр, а потом лайк)

  • @i.serhiienko
    @i.serhiienko 2 ปีที่แล้ว +1

    Мне, как чайнику, намного больше "заходил" формат плейлиста с графиками:
    Вот скачайте исходный файл с данными, вот задача что надо сделать, а вот пошагово что мы делаем и вот что в итоге мы получаем...
    Спасибо за уроки, много полезного для себя узнал

  • @V._A._S.
    @V._A._S. 3 ปีที่แล้ว +1

    Кратко, чётко и по делу. Лайк. Со смартфона почему то немного размыто. Дома с ноутбука пересмотрю.

  • @Bah1918
    @Bah1918 5 ปีที่แล้ว +6

    Спасибо за уроки

    • @BilyalKhassenov
      @BilyalKhassenov  5 ปีที่แล้ว +1

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

  • @olegyes934
    @olegyes934 3 ปีที่แล้ว +2

    Великолепная подача материала, все доступно и понятно! Огромное спасибо!

  • @alekseychaykovskiy3963
    @alekseychaykovskiy3963 5 ปีที่แล้ว +2

    Спасибо, понятное изложение. Количество просмотров подобного познавательного контента всегда удручает. Оставлю коммент, вдруг поможет в продвижении. :)

    • @BilyalKhassenov
      @BilyalKhassenov  4 ปีที่แล้ว

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

  • @maksimkisliak4782
    @maksimkisliak4782 3 ปีที่แล้ว +1

    Коммент ради раскрутки канала!

  • @temniknn1377
    @temniknn1377 3 ปีที่แล้ว +2

    Очень хорошее объяснение

  • @АрменЖидрасян
    @АрменЖидрасян 3 ปีที่แล้ว

    Спасибо, очень наглядно показано и рассказано.

  • @romankuznetsov3990
    @romankuznetsov3990 5 ปีที่แล้ว +7

    Спасибо большое за видео. Будем ждать ролик про упомянутый bubble sort ;)

    • @BilyalKhassenov
      @BilyalKhassenov  5 ปีที่แล้ว +1

      Здравствуйте, Роман! Спасибо Вам!
      Да, пожалуй, следующие два видео снимать когда буду, одно посвящу теме bubble sort :) А пока небольшой спойлер о следующем уроке, который выйдет в следующую субботу: он будет посвящен более углубленному изучению Msgbox. В нём я расскажу, как можно использовать функционал Msgbox для более продвинутого взаимодействия с пользователем.
      Так что, stay tuned! :)
      С уважением,
      ХБ

  • @ОлегОлег-я9д
    @ОлегОлег-я9д 2 ปีที่แล้ว

    шикарный материал, исчерпывающая подача информации!👍

  • @Dmitrii-Zhinzhilov
    @Dmitrii-Zhinzhilov 3 ปีที่แล้ว +1

    Билял, благодарю! Очень полезный урок

  • @SamSambl4
    @SamSambl4 4 ปีที่แล้ว +1

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

  • @ЮрийКривцов-ъ9ф
    @ЮрийКривцов-ъ9ф 4 ปีที่แล้ว +1

    отлично быстро понятно и ваще ништяк!

  • @ride_for_yourself
    @ride_for_yourself 4 ปีที่แล้ว

    CСпасибо огромное за ценную информацию!
    Подскажите на каком уроке у вас есть информация по поводу того как суммировать данные из определенных ячеек по листам с учетом того что количество листов может быть разное под каждый новый проект?... Можно такое реализовать этой конструкцией или как-то по другому?

  • @olegkaravskyi4856
    @olegkaravskyi4856 4 ปีที่แล้ว

    Здравствуйте!
    Огромное спасибо за Ваш труд, это очень полезная штука!!
    Подскажите, есть ли возможность подставлять в проверку "Case" динамические диапазонны, списки, чтобы проверка производилась по сопоставлению значений из колонки в умной таблице.
    Например, как с вашим примером, если внесли значение "Транспортные расходы", то при последующей записи "Транспортные расходы" выводилось сообщение, что данная запись уже существует. Своего рода создание списка уникальных значений?

  • @ДарьяВладимировна-ш1п
    @ДарьяВладимировна-ш1п 3 ปีที่แล้ว

    интересно, а добавлялось ли условие в последнем примере на исключение лишних пробелов между строк или в конце, начале?) И большие/маленькие буквы :D

  • @АлексейСоков-ь8и
    @АлексейСоков-ь8и 3 ปีที่แล้ว +1

    2021

  • @alexeyyarovoy8093
    @alexeyyarovoy8093 2 ปีที่แล้ว

    Я пытаюсь после данного урока сделать функцию не много сложнее
    Хочу что бы он выдавал уведомление в зависимости от значения в ячейке, но у меня не получаетья. В чем моя ошибка, подскажите пожалуйста. Чего то не хватает
    :
    Sub lessonSub()
    Dim CatG As String
    Dim range As range
    range = ("H1")
    CatG = range
    Select Case CatG
    Case "ìîëîêî", "òâîðîã", "ñëèâêè"
    MsgBox "WARNNING! ÑÊÎÐÎÏÎÐÒßÙÈÅÑß ÏÐÎÄÓÊÒÛÝ"
    Case "êðóïà", "ñîëü", "ñïåöèè"
    MsgBox "Íåîáõîäèìà äîïîëíèòåëüíàÿ îáåðòêà"
    Case "îâîùè", "ôðóêòû", "ÿãîäû"
    MsgBox "Äîïîëíèòåëüíûå êîðîáêè"
    Case Else
    MsgBox "Äîïîëíèòåëüíîãî îáðàùåíèÿ íå òðåáóåò"
    End Select
    End Sub