Ćwiczenie 4, cel:
• Poznanie zagadnień z serii Pętla for.
Zadanie 1
•Projektuję makro, które zamienia cyklicznie wartości w komórkach od A1 do A20 wg następującego schematu:
Przepisuje w edytorze VBA projekt makra poniżej, zastępując instrukcje ujęte
w nawiasy klamrowe instrukcją pętli For.
Zadanie 2
•Piszę makro, które zamienia cyklicznie wartości w komórkach od A1 do A20 wg następującego schematu:
Wykorzystuję do tego instrukcjię For z frazą Step.
Zadanie 3
Piszę makro, które zamienia wartości w komórkach od A1 do A20 wg następującego schematu:
A1 ↔A20, A2 ↔A19, A3 ↔A18 itd. aż do
A10 ↔A11
Modyfikuję makro w taki sposób, aby zamieniało na podobnej zasadzie wartości w komórkach zakresu zaznaczonego w Excelu, tzn. pierwszą z ostatnią, druga z przedostatnią itd. Związanie zmiennej x typu Range z wybranym zakresem komórek w arkuszu realizuje się instrukcjami:
Ilość komórek w zakresie określa wyrażenie x.Count.
Zadanie 4
•Za pomocą formuły =sin(wiersz()) wypełniam komórki w zakresie D1:D30.
•Następnie piszę w edytorze VBA makro, które koloruje na czerwono wartości dodatnie a na niebiesko wartości ujmemne.
•Czerwony kolor tła wprowadzam w komórce [D1]
wpisując: [D1].Interior.ColorIndex = 3
•Niebieski natomiast:
[D1].Interior.ColorIndex = 5
•Piszę makro, które zlicza wartości ujemne i wartości dodatnie.
•Wyznaczam za pomocą makra wartość minimalną i maksymalną.