IF - Как работают условия в VBA (Серия VBA 9)
содержание видео
Дата: 2021-09-02
Похожие видео
Комментарии и отзывы: 10
Vladimir
Sub lesson9_home_work)
'При помощи структры иф и фор ич пробижались по колонке с3-с7 и выдали коментарий отлично хорошо удовлитворительно
Dim cellchecked As Range
For Each cellchecked In Range(b3: b7)
If cellchecked = 3 Then
cellchecked. Offset(0, 1) = Удовлитворительно
ElseIf cellchecked = 4 Then
cellchecked. Offset(0, 1) = Хорошо
ElseIf cellchecked = 5 Then
cellchecked. Offset(0, 1) = Отлично
End If
Next cellchecked
End Sub
ответить
Sub lesson9_home_work)
'При помощи структры иф и фор ич пробижались по колонке с3-с7 и выдали коментарий отлично хорошо удовлитворительно
Dim cellchecked As Range
For Each cellchecked In Range(b3: b7)
If cellchecked = 3 Then
cellchecked. Offset(0, 1) = Удовлитворительно
ElseIf cellchecked = 4 Then
cellchecked. Offset(0, 1) = Хорошо
ElseIf cellchecked = 5 Then
cellchecked. Offset(0, 1) = Отлично
End If
Next cellchecked
End Sub
ответить
Мордыхай
код написал. У меня работает. Ответ боюсь смотреть. Вдруг затупил. Оставлю его тут.
никому не подсматривать!
Sub HomeWork1)
Dim checkscore As Range
For Each checkscore In Range(B3: B7)
If checkscore = 5 Then
checkscore. Offset(0, 1) = отлично
ElseIf checkscore = 4 Then
checkscore. Offset(0, 1) = хорошо
ElseIf checkscore = 3 Then
checkscore. Offset(0, 1) = удовлетворительно
End If
Next checkscore
End Sub
ответить
код написал. У меня работает. Ответ боюсь смотреть. Вдруг затупил. Оставлю его тут.
никому не подсматривать!
Sub HomeWork1)
Dim checkscore As Range
For Each checkscore In Range(B3: B7)
If checkscore = 5 Then
checkscore. Offset(0, 1) = отлично
ElseIf checkscore = 4 Then
checkscore. Offset(0, 1) = хорошо
ElseIf checkscore = 3 Then
checkscore. Offset(0, 1) = удовлетворительно
End If
Next checkscore
End Sub
ответить
Екатерина
Добрый день! Подскажите в чем ошибка в домашнем коде, пожалуйста. Выдает 424 ошибку: object required
Sub tets)
Dim cellCheked As Range
For Each cellCheked In Range(B3: B7)
If cellCheked = 3 Then
cellCheked. Offset(0, 1) = удовлетворительно
ElseIf cellCheked = 4 Then
cellscheked. Offset(0, 1) = хорошо
ElseIf cellCheked = 5 Then
cellscheked. Offset(0, 1) = отлично
End If
Next cellCheked
End Sub
ответить
Добрый день! Подскажите в чем ошибка в домашнем коде, пожалуйста. Выдает 424 ошибку: object required
Sub tets)
Dim cellCheked As Range
For Each cellCheked In Range(B3: B7)
If cellCheked = 3 Then
cellCheked. Offset(0, 1) = удовлетворительно
ElseIf cellCheked = 4 Then
cellscheked. Offset(0, 1) = хорошо
ElseIf cellCheked = 5 Then
cellscheked. Offset(0, 1) = отлично
End If
Next cellCheked
End Sub
ответить
Андрей
Мега-мега-мегаграмотное изложение материала и продуктивные уроки! Редкость на просторах интернета! Низкий Вам поклон за столь эффективное изложение материала по VBA! Вы педагог от Бога, продолжайте в том же духе! Низкий поклон за труды! Не поленюсь и напишу это коммент по каждым видео курса!
ответить
Мега-мега-мегаграмотное изложение материала и продуктивные уроки! Редкость на просторах интернета! Низкий Вам поклон за столь эффективное изложение материала по VBA! Вы педагог от Бога, продолжайте в том же духе! Низкий поклон за труды! Не поленюсь и напишу это коммент по каждым видео курса!
ответить
Юлия
Здравствуйте. Вашу уроки, просто супер!
Подскажите, что я делаю не так. Я пишу всё как в примере, но у меня (я про elseif) выскакивает диалоговое окно только с пятерками! Когда пятерки заканчиваются ничего больше не выдает. Будто он не переходит на elseif
ответить
Здравствуйте. Вашу уроки, просто супер!
Подскажите, что я делаю не так. Я пишу всё как в примере, но у меня (я про elseif) выскакивает диалоговое окно только с пятерками! Когда пятерки заканчиваются ничего больше не выдает. Будто он не переходит на elseif
ответить
Армен
Спасибо, я хоть и пользовался уже циклами и проверкой значений, но всё таки кое чего нового узнал(учился методом тыка. Только насколько я понял из тех документации есть ещё вариант вместо Then ставить GoTo, но не пользовался сам.
ответить
Спасибо, я хоть и пользовался уже циклами и проверкой значений, но всё таки кое чего нового узнал(учился методом тыка. Только насколько я понял из тех документации есть ещё вариант вместо Then ставить GoTo, но не пользовался сам.
ответить
Aleksey
Спасибо большое за такие замечательные уроки. Похвалюсь что сделал дз с дополнительными функциями (оценка 2 - это неуд, и цвет текста описания отлично и хорошо - зеленый, удовлетворительно - синий а неуд - красный)
ответить
Спасибо большое за такие замечательные уроки. Похвалюсь что сделал дз с дополнительными функциями (оценка 2 - это неуд, и цвет текста описания отлично и хорошо - зеленый, удовлетворительно - синий а неуд - красный)
ответить
Александр
Спасибо вам большое, на удивление быстро выполнил задание, правда немного подсмотрел в прошлые уроки, но думаю, всё так быстро получилось благодаря вашему грамотному и понятному объяснению!
ответить
Спасибо вам большое, на удивление быстро выполнил задание, правда немного подсмотрел в прошлые уроки, но думаю, всё так быстро получилось благодаря вашему грамотному и понятному объяснению!
ответить
Герман
Очень удачно подаётся материал по урокам от лёгкого к сложному. Пока даже я все понимаю. В подобных курсах все по-другому, первые два урока норм, а затем бац интегралы и логорифмы.
ответить
Очень удачно подаётся материал по урокам от лёгкого к сложному. Пока даже я все понимаю. В подобных курсах все по-другому, первые два урока норм, а затем бац интегралы и логорифмы.
ответить
Анастасия
Автор вы перфекционист в подаче материала, спасибо огромное! Занимаюсь аналитикой в excel и долго откладывала изучение vba, рада, что наткнулась на ваш канал)
ответить
Автор вы перфекционист в подаче материала, спасибо огромное! Занимаюсь аналитикой в excel и долго откладывала изучение vba, рада, что наткнулась на ваш канал)
ответить
Добавить отзыв, комментарий
Другие видео канала
