Предмет: Информатика, автор: focusshift

Задание такое: Разработать макрос на VBA. Массив целых чисел [ q [ i, j] , i =1,2; j=1,3]. Нужно, чтобы выводились результаты расчета суммы и количества элементов, удовлетворяющих условию: 10 < q [i, j] <18.


Аноним: Значения элементов массива откуда брать? С листа эксель? Вводить по одному через inputBox? Получать от датчика случайных чисел?
focusshift: С листа эксель
Аноним: С указанного места (например с A1) или просто выделить где угодно мышью область 2х3?
focusshift: где угодно

Ответы

Автор ответа: Аноним
1
Sub aaa()
    a = Range(Cells(1, 1), Cells(2, 3))
    s = 0: k = 0
    For Each p In a
        If p > 10 And p < 18 Then
            s = s + p: k = k + 1
        End If
    Next p
    MsgBox "Элементов " + CStr(k) + ", сумма " + CStr(s)
End Sub

Данные разместить в области A1:C2


Аноним: Если непонятно, спрашивайте, это не совсем школьный вариант решения.
Похожие вопросы
Предмет: Қазақ тiлi, автор: 3456789012345678905
Предмет: Математика, автор: sasa200706