293016960

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

Sub obszar()

Dim n As Integer, w As Integer, k As Integer n = Selection.Count w = Selection.Rows.Count k = Selection.Columns.Count MsgBox "liczba komórek " & n MsgBox "liczba wierszy " & w MsgBox "liczba kolumn " & k End Sub

W arkusz kalkulacyjnym zaznacz zakres komórek a następnie uruchom powyższe makro. Wewnętrzna procedura MsgBox powoduje wypisanie komunikatów.

3. Obiekt ActiveCell

Zadanie 4

Wpisz w edytorze VBA makro:

Sub Dodaj_l()

ActiveCell = ActiveCell + 1 End Sub

Każde uruchomienie makra zwiększy wartość wybranej komórki o 1 .

Zadanie 5

Należy wyznaczyć kolejne sumy częściowe szeregu geometrycznego    . Szereg

ten jest zbieżny gdy |q| < 1. Każda suma częściowa jest postaci S_n =1 + q + q² +...+ qⁿ~' . Sumy te spełniają związek rekurencyjny S_n+1 = qS_n +1 , który wykorzystamy w tym ćwiczeniu.

W edytorze VBA wpisz makro:

Sub szereg()

Dim S as Double, q as Double q = 0.5

S = ActiveCell

ActiveCell.Offset(1, 0).Select ActiveCell = q * S + 1 End Sub

Każde uruchomienie makra oblicza kolejną sumę szeregu geometrycznego. Instrukcja ActiveCell .Offset (1, 0).Select przesuwa wybranie komórki w dół.

Zadanie 6

Oblicz przybliżoną wartość liczby n wykorzystując szereg:

TT    ,    1    1    1    1    1

— = 1-- +---+---+ ...

4    3    5    7    9    11