3582326625

Zadanie 4

Sub tabela()

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

For i = ActiveCen.Row To ActiveCelLRow + 9

For j = ActiveCeIl.Column To ActiveCelLColumn + 9

Cells(i, j) = x

x = x + 1

Next j

Nexti

End Sub

Zadanie 5

Function trojka(tablica As Vadant) As Vaiiant Dim zbiór As yariant,

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 = UBound(zbior, 2) - LBound(zbior, 2) + 1 'kolumny

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

For i = tablicaJRow 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

Nexti

trojka = s

Elsę

trojka = "argument musi byc tablica"

End If

End Function