293016961

strona 12 T.Zifbakowski: PROGRAMOWANIE MAKR...

Przykłady makr i funkcji:

1. Dotyczy pliku Dochod.xls

Function grupa(dochód As Currency) As Integer ' Wyznacza grupę podatkowa

If dochód < 37024 Then grupa = 1

If (dochód >= 37024) And (dochód < 74048) Then grupa = 2 If dochód >= 74048 Then grupa = 3 End Function

Function grupal(dochód As Variant) As Integer

' Wyznacza grupę podatkowa - drugi sposób

If dochód < 37048 Then grupal = 1

Elself dochód < 74048 Then grupal = 2

Elsę

grupal = 3

End If End Function

Sub dochódl()

' Kopiuje do nowej kolumny dochody 1 grupy podatkowej

Dim doch As Rangę, dochl As Rangę, i As Integer Set dochl = Rangę("112:171")

Set doch = Rangę("dochód")

For i = 1 To doch.Count

If doch(i) < 37024 Then dochl(i) = doch(i) Next i End Sub

Function podatek(dochód As Currency) As Currency

' Oblicza podatek dochodowy na podstawie dochodu

If dochód < 37048 Then

podatek = 0.19 * dochód - 530.08 Elself dochód < 74048 Then

podatek = 0.3 * (dochód - 37024) + 6504.48

Elsę

podatek = 0.4 * (dochód - 74048) + 17611.68 End If End Function

Sub DanelgrupyO

' Podaje ilość osób i całkowity dochód w 1 grupie podatkowej

Dim doch As Rangę

Set doch = Rangę("dochód")

Dim Licz As Integer, suma As Currency, i As Integer, max As Currency Licz = 0 suma = 0

For i = 1 To doch.Count

If doch(i) < 37024 Then