Moje doświadczenia z Excelem, Accesem i programowaniem w VBA
Blog > Komentarze do wpisu

VBA: instrukcja With

Mała, bardzo pożyteczna instrukcja oszczedzająca czas i upraszczająca kod. Umożliwia odwołanie się do obiektu bez ciągłego powtarzania jego nazwy.
Wyobraźmy sobie, że chcemy zmienić formatowanie np. w Arkuszu1, w komórkach A1:A10.
Standardowy zapis wyglada tak:

Worksheets("Arkusz1").Range("A1:A10").Interior.Color = 65535
- zmiana koloru tła
Worksheets("Arkusz1").Range("A1:A10").Font.Name = "Freestyle Script"
- zmiana czcionki
Worksheets("Arkusz1").Range("A1:A10").Font.Underline = True
- podkreślenie czcionki 

Z wykorzystaniem instrukcji With ten sam zapis wygląda tak:

With Worksheets("Arkusz1").Range("A1:A10")
         .Interior.Color = 65535 
         .Font.Name = "Freestyle Script"
         .Font.Underline = True
End With

Prawda, że krócej i "czyściej"? Instrukcja moze być wykorzystywana w stosunku do wszystkich kolekcji.

wtorek, 14 września 2010, marzatela













Polecane wpisy

TrackBack
TrackBack URL wpisu:


Książki warte polecenia
zobacz szczegóły...


A tu oferta na dziś:

Wydawnictwo Strefa Kursów



ministat liczniki.org



Napisz do mnie!