293016963

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

1. Makro wypisuje zakupy z grupy rozrywka w zakresie K3 do KI00.

Sub zakupy()

Dim zakup As Rangę, grupa As Rangę, lista As Rangę, k As Integer, n As Integer Set zakup = Rangę("zakup")

Set grupa = Rangę("rodzaj")

Set lista = Rangę("K3:K100") n = 1

For k = 1 To grupa.Count

If grupa(k) = "rozrywka" Then lista(n) = zakup(k) n = n + 1 End If Next k

End Sub_

2. Makro wypisuje w zakresie H3 do H5 trzy maksymalne kwoty wydatków, a w zakresie 13:15 wypisuje daty, w których te wydatki były poniesione.

Sub max3 ()

Dim kwoty As Rangę, max As Rangę, maxdata As Rangę, daty As Rangę, i As Integer Set kwoty = Rangę(^rkwotaⁿ)

Set daty = Rangę("data")

Set maxdata = Rangę("13:15")

Set max - Rangę("H3:H5") max = 0

For i = 1 To kwoty.Count If kwoty(i) > max(1) Then max(3) = max(2) max(2) = max(1) max(l) = kwoty li) maxdata(3) |= msxdata(2) maxdata(2) = mexdata(l) maxdata(l) = dęty(i)

Elself kwoty(i) > nax(2) Then max(3) = max(2) max(2) = kwotyii) maxdata(3) = mexdata(2) maxdata(2) = daty(i)

Elself kwoty (i) > ntax(3) Then max(3) = kwotyii) maxdata(3) = daty(i)

End If Next i

End Sub_

3. Makro zaznacza na żółto zakupy jajek.

Sub j aj ka()

■zaznacza na żółto zakupy jajek

Dim zakup As Rangę, i As Integer Set zakup = Rangę("zakup")

For i = 1 To zakup.Count

If InStr(zakup(i), "jajka") > 0 Then zakup(i).Interior.ColorIndex = 6 Next i End Sub