Na to pytanie trudno jest odpowiedzie� wprost.
Wszystko zale�y od tego, w jaki spos�b b�dzie wykorzystywana p�niejsza aplikacja. W szablonie mo�na umie�ci� kod, je�eli plik wynikowy (utworzony na podstawie szablonu), b�dzie musia� zawiera� te same polecenia, co wz�r (szablon). Przyk�ad Utworzy�e� szablon delegacji. Pracownik go wype�nia i (on sam lub program) zapisuje ten plik pod okre�lon� nazw�, w okre�lonym katalogu. Ka�d� delegacj� pracownik ma obowi�zek rozliczy� w ci�gu 7 dni od
daty jej wystawienia, wi�c - co robi? - wraca do firmy, otwiera plik delegacji (utworzony na podstawie szablonu), wype�nia go, drukuje i...
... Szef po rozliczeniu przez pracownika delegacji, wstawia dane o terminach wyjazd�w i powrot�w, kosztach podr�y do programu analityczno-ksi�gowego
i robi zestawienia, jednocze�nie usuwaj�c plik z okre�lonego katalogu i kataloguj�c go w innym miejscu.
Prawda, �e przyjemne? W dokumencie kod umieszcza si� w ka�dej innej sytuacji. ;) Przyk�ad
Program ma za zadnie pobra� dane od u�ytkownika, odpowiednio je przetworzy� i zapisa�, np w nowym dokumencie MS Word lub Excel, w okre�lonej przez konstruktora aplikacji formie.
Nie oznacza to, �e nie mo�na tego wszystkiego umie�ci� w szablonie!
Zdradz� Ci sekret... dokument MS Excel tworzony na podstawie szablonu, to wierna kopia szablonu.
Wi�cej na ten temat znajdziesz w mojej ksi��ce.
Zanim przejd� do prezentacji dalszych tre�ci, wyja�nienia wymaga fakt, i� cz�sto ludzie myl� poj�cia skoroszyt(zeszyt) i arkusz, u�ywaj�c tych s��w zamiennie.
Ot�, skoroszyt(zeszyt) to plik MS Excel, a arkusz to taka tabela, kt�ra na dole ma swoj� zak�adk�, w tym pliku.
Ka�dy skoroszyt mo�e zawiera� wiele arkuszy (min. jeden) i co najmniej jeden z nich musi by� widoczny (Nie dotyczy to dodatku).
Arkusze
Przetwarzanie danych z wielu arkuszy w tym samym skoroszycie to nie problem.
Je�li umiesz wyliczy� arkusze, to b�dziesz umia� si� do nich dosta�!
'wylicza wszystkie arkusze w tym skoroszycie, w kt�rym jest kod
Sub WyliczArkusze()
Dim ark As WorkSheet
For Each ark In ThisWorkbook.WorkSheets
MsgBox ark.Name, vbInformation, "Arkusze..."
Next ark
End Sub
'wylicza wszystkie arkusze w otwartym skoroszycie
Sub WyliczArkusze1()
Dim ark As WorkSheet
For Each ark In Workbooks("Przyk�ad 1.xls").WorkSheets