293016962

T. Zięb akowski'. PROGRAMOWANIE MAKR ... strona 13

Licz = Licz + 1 suma = suma + doch(i)

End If Next i

MsgBox "Liczba osób w 1 grupie podatkowej wynosi: " & Licz MsgBox "Suma dochodów w 1 grupie podatkowej wynosi: " & suma max = 0

For i = 1 To doch.Count

If doch(i) < 37024 And doch(i) > max Then max = doch(i)

End If Next i

MsgBox "maks. dochód w 1 grupie podatkowej wynosi: " & max

2. Dotyczy pliku Rodzina.xls

W przykładach dotyczących arkusza RODZINA należy nazwać obszary komórek wg wzoru przedstawionego poniżej.

l^ł] Microsoft Excel - Rodzina-wykład.xls

• Plik Edycja Widok Wstaw Format Narzędzia Dane Okno Pomoc    . 9 X

i * Zabezpieczenia... ,    *x* llZ *■

H7 - A_

		fAl	B	C	D	E	1 F 1 -
	1 2    I		WYDATKI RODZINY POSZEPSZYŃSKICH W LUTYM 1996 R.
	3
	4		kto	szczeqóły wydatków	rodzaj wydatków	data	kwota
	5 ]		tata	benzyna	samochód	1995-02-02	53.00
	6		tata	benzyna	samochód	1995-02-14	72.00
	7		Jola	bułki, kiełbasa	jedzenie	1995-02-02	5,00
	8		Adam	bułki, masło, ser	jedzenie	1995-02-02	25.00
	9		Adam	bułki, pączki	jedzenię^^	1995-02-08	450
	10		mama	buty dla ^flfema	odzież Q|,—A	1995-02-05
	11		Jola	ciastka ¥ 1	jedzenie	1995-02-27	Jtto
	12		mama	dentysta PBśtAi a	czystośain	1995|IS?1	fotfo
	13		Jola^.	aazety H	rozrywk^W	1995 81® 2	CdE
	14		^maiFI	jajka, makal	jedzenie 11	1995tf2j)7	rsoi
	15		maHfc#	jajka. rnsJHSf soi itp	jedzenie IV	199ifc?-Jl4	Itlt!
	16		Ad ay. n	kasety	rozrywka" "	1995-92-04	L i
	17		3oiC-'	kasety jfc.	rozrywl^
	18		martva/l	kiełbas^s^nka. ciasto	jedzenie V'"/	ikŁŁLi %
	19		Adgjr_	kino dla spaliny	rozrywka ^	199|gfljC2	L.TE
	20			książki: UlWłp Trędowata	rozrywk^^tj	1995^^)5'
	21		tata	kwiaty. puSnt dla cioci Marty	rozrywka%P	I995-Vtż!
	22		Adam	lody AJ	jedzenie!	1995-02-03
	23		Adam	lody. wodfe¥hineralna	rozrywkatl	1995-02-09
	24		tata	mandat	samochód	1995-02-20	20,00
	25		mama	mięso	jedzenie	1995-02-02	37,00
	26		mama	mięso, wędliny	jedzenie	1995-02-23	13,00
	27		j0la	mipRn wędliny iaika	jedzenie	1994412-15	9 74
	u « ►		►i ;\ rodzina /		J "		• J

Gotowy