VBA помогите пожалуйста
1. Дано целое число В. Найти сумму целых чисел, больших 10 и меньших В.
2. Среди всех двузначных чисел выбрать и вывести только кратные 8.
Вывести результаты на листы
Ответы на вопрос
Ответил Аноним
0
Во вложении - файл рабочей книги MS Excel 2003.
Макросы - в проекте для первого листа.
Ниже их текст.
Sub ex1()
b = Cells(1, 2)
s = 0
For i = 11 To b - 1
s = s + i
Next i
Cells(2, 2) = s
End Sub
Sub ex2()
i = 5
For j = 16 To 99 Step 8
Cells(i, 1) = j
i = i + 1
Next j
End Sub
Макросы - в проекте для первого листа.
Ниже их текст.
Sub ex1()
b = Cells(1, 2)
s = 0
For i = 11 To b - 1
s = s + i
Next i
Cells(2, 2) = s
End Sub
Sub ex2()
i = 5
For j = 16 To 99 Step 8
Cells(i, 1) = j
i = i + 1
Next j
End Sub
Приложения:
Ответил Colesic
0
Эникей Магистр можете мне помочь ссылка https://znanija.com/task/21617830 балы добавил
Новые вопросы