💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Цикл For Each

Для обработки группы однородных объектов или массивов применяется следующая конструкция цикла:

For Each Элемент In Группа (имя группы однородных объектов)

[Инструкции] или [блок Операторов]

Exit For

Next элемент

Sub Test()

'Подготовка таблицы

Cells(1, 1) = " Иванов"

Cells(2, 1) = " Сидоров"

Cells(3, 1) = " Петров"

Cells(4, 1) = " Малинин"

Cells(5, 1) = " Калинин"

'Dim vari As Variant

For Each vari In Range(" A1: A5")

MsgBox (" Здравствуйте " & vari)

Next vari

End Sub

Цикл While

While условие (Например, x< 20)

[Инструкции] или [блок Операторов]

Wend

Sub сумма()

Dim x, s As Double

x = 0

s = 0

While x < = 100

s = s + x

x = x + 1

Wend

MsgBox (" s=" + Str(s))

End Sub

Цикл Do While…Loop

выполняет циклы до тех пор, пока соблюдается какое-либо заданное условие. Необходимо отметить, что условие проверяется до того, как выполняется инструкция или группа операторов.

В этом случае синтаксис операторов цикла Do While...Loop имеет следующий вид:

Do While условие (Например, x< 20)

[Инструкции] или [блок Операторов]

Exit Do

Loop

Пример