Разрботать подпрограмму, которая для выделенного диапазона рабочей таблицы вычисляет сумму всех элементов, которые без остатка делятся на число 6. Элементы массива задать самостоятельно через функцию Inputbox.
Код:
Sub Z1()
Dim n As Integer, m As Integer, j As Integer, i As Integer
n = InputBox("введите количество столбцов")
m = InputBox("введите количество строк")
For i = 1 To n
For j = 1 To m
Sheets("Лист1").Cells(i, j) = InputBox("введите" & j & "элемент" & i & "строки")
Next j
Next i
End Sub
Код:
Sub Z2()
Dim a1 As Range, max As Double, s As Double
With ActiveSheet
Set a1 = Selection
a1.Activate
max = Application.max(a1)
s = 0
For x = 1 To a1.Rows.Count
For y = 1 To a1.Columns.Count
If a1(x, y) Mod 6 Then
s = s + a1(x, y)
End If
Next y
Next x
MsgBox " s=" & s, , "Результат"
End With
End Sub