3582326631

Function trojka(tablica As Variant) As Variant Dim zbiór As Variant, s As Integer, x As Integer, m As Integer, n As Integer, i As Integer, j As Integer, r As Rangę

Set r = Selection If IsArray(tablica) Then zbiór = tablica s = 0

n = UBound(zbior, 2) - LBound(zbior, 2) + 1 'kolumny

m = UBound(zbior, 1) - LBound(zbior, 1) + 1 'wiersze

For i = tablica.Row To tablica.Row + m - 1

For j = tablica.Column To tablica.Column + n -1

x = Cells(i, j).Value

If x Mod 3 = 0 Then

s = s + 1

End If

Next j

Next i

trojka = s

Elsę

trojka = "argument musi byc tablica"

End If

End Function

Sub tabelaO

Dim i As Integer, j As Integer, x As Integer x = 1

For i = ActiveCell.Row To ActiveCell.Row + 9

Forj = ActiveCell.Column To ActiveCell.Column + 5

Cells(i, j) = x

x = x + 1

Next j

Next i

End Sub