293016964

T.Ziębakowski: PROGRAMOWANIE MAKR ... strona 15

4.    Makro w kolumnie H wypisuje zakupy z grupy rozrywka.

Sub lista()

'Wypisz za pomocą makra listę zakupów z grupy rozrywka.

Dim szczeg As Rangę, rodź As Rangę, obszar As Rangę Dim i As Integer, j As Integer Set zakup = Rangę("zakup")

Set rodzaj = Rangę("rodzaj")

Set obszar = Rangę("hlO:h60") i = 1

For j = 1 To rodząj.Count

If rodzaj(j) = "rozrywka" Then obszar(i) = zakup(j) i = i + 1 End If Next j End Sub

5.    Makro w kolumnie G wypisuje bez powtórzeń wszystkie rodzaje zakupów.

Sub list()

Dim grupa As Rangę, lista As Rangę, i As Integer, j As Integer, k As Integer

Dim dopisz As Boolean

Set grupa = Rangę("rodzaj")

Set lista = Rangę("G3:G13") k = 0

For i = 1 To grupa.Count dopisz = True For j = 1 To k

If grupa(i) = lista(j) Then dopisz = False Next j

If dopisz Then k = k + 1

lista(k) = grupa(i)

End If Next i End Sub

6. Funkcja podaje dzień (datę), w którym po raz ostatni wydano na rozrywkę. Funkcję można użyć w formule w komórce arkusza pisząc: =ostatni_dzień_rozrywka (data)

Function ostatni_dzień_rozrywka(daty As Rangę) As Datę

'Za pomocą funkcji VBA podaj dzień, w którym ■po raz ostatni w lutym wydano na rozrywkę.

Dim dzień As Datę, i As Integer dzień = "1995-02-01"

For i = 1 To daty.Count

If daty(i).Offset(0, -1) = "rozrywka" And daty(i) > dzień Then dzień = daty(i)

End If Next i

ostatni_dzień_rozrywka = dzień End Function