83530

Zadanie 4

Sub tabela()

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

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

For j = ActiveCell.Column To AcdveCeIl.Column + 9

Cellsfi, j) = x

x = x + 1

Next j

Next i

End Sub

Zadanie 5

Function trojkaftablica As Variant) As Variant Dim zbiór As Variant,

Dim s As Integer Dim x As Integer Dim m As Integer Dim n As Integer Dim i As Integer Dim j As Integer Dim r As Rangę Set r = Selection If IsArray(tablica) Then zbiór = tablica s = 0

n = UBoundfzbior, 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