VBA помогите пожалуйста 1. Дано целое число В. Найти сумму целых чисел, больших 10 и...

0 голосов
52 просмотров

VBA помогите пожалуйста
1. Дано целое число В. Найти сумму целых чисел, больших 10 и меньших В.

2. Среди всех двузначных чисел выбрать и вывести только кратные 8.

Вывести результаты на листы


Информатика (23 баллов) | 52 просмотров
0

Да у меня просто больше нет правда я бы и раз и 100 отдать но нету поймите

0

Да я об этом просто не подумал правда мне просто срочно нужно у самого не получается вот и спросил извините если обидел

0

Правда спасибо большое а можно когда балы будут именно вам писать ?

Дан 1 ответ
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


Скачать вложение Excel (XLS)
(150k баллов)