dla wierszy od 1 do 100 1. napisz makro, które wpisze liczby nieparzyste do kolejnych wierszy. 2. napisz makro, które wpisze w co drugi wiersz numer wiersza. 3. napisz makro, które wpisze kolejne liczby w kolejne KOLUMNY arkusza ( w wierszu 1 ). 4. zapyta o liczbę. i wstawi X w kwadrat o podanym boku np dla boku 5: ( każdy X w osobnej komórce ) XXXXX X X X X X X XXXXX 5. napisz makro, które dla wierszy od 1 do 100 policzy sumę i średnią liczb z kolumny A 6. napisz funkcję która sprawdzi czy dany rok jest przestępny. ( przestępne są lata podzielne przez 4, ale niepodzielne przez 100, chyba że są podzielne przez 400.) np. 2000-tak, 2004-tak, 2100-nie, 2400-tak 7*. napisz funckję, która sprawdzi czy pesel jest prawidłowy: ma 11 znaków. rok, miesiąc i dzień są prawdziwe ( nie ma daty np. 31 lutego itp.) 8. napisz makro które wylosuje liczbę z zakresu od 0 do 10. Naszm zadaniem jest zgadnąć tę liczbę (program pyta za pomocą inputBox). Po zgadnięciu podaje w ilu próbach zgadliśmy tę liczbę. 8a. program podpowiada czy strzeliliśmy za mało czy za dużo 8b. na początku gry program pyta z jakiego zakresu losować liczbę ( i przy zgadywaniu przypomina z jakiego zakresu zgadujemy) 8c. po zgadnięciu liczby program pyta czy chcemy grać jeszcze raz. 8d. jeśli podamy nie podamy liczby wtedy ignoruje naszą odpowiedź ( i pyta jeszcze raz). funkcja sprawdzająca czy coś jest liczbą to funkcja isNumber(coś). Oraz sprawdzi czy nie podajemy liczby spoza zakresu. 9. napisz funkcję: function słownie ( liczba as Byte), która potrafi zamienić liczby od 0 do 9 na słowny odpowiednik. 9a. napisz funkcję słownie10, zamieniającą: 1 - "dziesięć", 2 - "dwacieścia", itd... aż do 9 10. napisz funckję która potrafi zamienić liczby od 0 do 99 na słowny odpowiednik. 11. napisz funckję, która potrafi zamienić liczby od 0 do 1 000 000 na skrótowy odpowiednik, tzn. 1901 poda jako: *jeden*dziewiec*zero*jeden* d= int(log(liczba)/log(10))+1 11a sparametryzuj tę funkcję tak, aby znaczek można było dowolnie zmieniać. (by był parametrem opcjonalnym). 12. tak jak w zadaniu 4, ale ma to być pełny kwadrat czyli dla 5: 13. napisz makro które policzy największą z liczb w kolumnie A. (do pierwszej pustej) 14. w kolumnie a wpisane są liczby ( wyniki sprzedaży w kolejnych dniach). Makro ma w kolume B wstawić + - albo = z wależności od tego czy sprzedaż wzrosła, zmalała czy jest stała 14a. Makro ma podać MsgBox największy skok na + i nawiększy skok na - 15. napisz funkcję która pousuwa wszystkie puste wiersze ( w zakresie od 1 do 100). 16. zrób pętlami tabliczkę mnożenia do 20: 1 2 3 4 ... 1 1 2 3 4 ... 2 2 4 6 8 ... 3 3 6 9 12 ... 4 ............... ... function wynik(liczba) if liczba < 10 Then wynik = slownieDo10(liczba) Else ..... end if end function