Dim s As Integer, d As Date, h As Integer
d = CDate(InputBox("Введите дата начала графика", , "2016/01/02"))
Do While s < 176
h = Weekday(d, vbMonday)
If h <> 7 Then
s = s + 8
Cells(i + 1, 2) = s
Cells(i + 1, 3) = d
End If
Cells(i + 1, 4) = h
i = i + 1
d = d + 1
<span>Loop</span>
Цикл — різновид керівної конструкції у високорівневих мовах
програмування, призначена для організації багаторазового виконання
набору інструкцій. Також циклом може називатися будь-яка багатократно виконувана послідовність команд, організована будь-яким чином.
Подчеркни "по обычной почте" , "по электронной почте" и "позвонить по телефону".
Богатырь богатырь тигр тигр тигрщ
все во вложении (сначало само задание потом ответ)