PROG. APLIKACJI UŻYTKOWYCH- WYKŁAD 12. 12.01.2011r.

1. ZADANIE

Napisać funkcję, która usunie liczby w napisie

function liczby(napis as string) as string

dim znak, nowy as string

dim I as byte

nowy=””

for i=1 to Len(napis)

znak=mid(napis,i,1)

if znak <=”9” Nd znak >=”0” then

nowy=nowy

else: nowy=nowy+znak

end if

next i

liczby=nowy

end function

2. OPTION EXPLICIT- jeżeli zapomnimy deklarować zmienne to, to nam przypomni, zawsze dać n początku

3. DODATKOWE INSTRUKCJE VBA

• wybrane własności cells i range

• cells (w,k).Select.Value. Clear { zaznaczyć, pobrać, usunąć}

• range(zakres).Select.Value.Clear

• odwołanie do bieżącej komórki

• ActiveCell.Value

• Odwołanie względne do komórek

• ActiveCell.Offset(w,k).Select

• ActiveCell.Offset(w,k).Value

• Range(zakres).Offset(w,k).Activate

• Funkcje

• IsEmpty(…) - czy komórka jest pusta

• IsNumeric(…) - czy argument jest liczbą

• IsText(…) - czy argument jest tekstem

• IsLogical(…) - czy argument jest wartością logiczną

• IsDate(…) - czy argument jest datą

---