Najprostszym wyjściem jest zainstalowanie go jako dodatku excela (plik .xla dla wersji do 2003 i .xlam dla 2007) – dla ułatwienia przygotowałem plik .xla

Aby móc używać nowej funkcji =slownie() należy zainstalować dodatek. Najlepiej pobrany plik skopiować do właściwego katalogu

dla Excela 97-2003 będzie to: C:\Program Files\Microsoft Office\Office XX\Library

xx to numer wersji Excela np. 11 lub 12

dla 2007 C:\Documents and Settings\Twoja nazwa użytkownika\Dane Aplikacji\Microsoft\Dodatki

Następnie (Excel 97-2003) z menu Narzędzia wybieramy Dodatki i jeżeli plik jest w odpowienim katalogu (powyżej) wystarczy zaznaczyć okienko przy jego nazwie i kliknąć OK. (jeśli plik jest w innym katalogu, wybieramy Przeglądaj i odnajdujemy go – ważne żeby później nie zmieniać lokalizacji pliku).

W Excel 2007 procedura jest niemal identyczna – klikamy przycisk Office i wybieramy Opcje programu Excel i Dodatki. Pliki z katalogu powyżej będą gotowe do wybrania – jeśli umieściliśmy je gdzie indziej, należy wskazać je korzystając z opcji Zarządzaj – Przejdź (na dole okna poniżej).

po zainstalowaniu dodatku formuła =slownie(a1) zamieni cyfrową zawartość komórki a1 – np. “199,91″ na sto “dziewięćdziesiąt dziewięć złotych dziewięćdziesiąt jeden groszy”

Faktura w docx z osadzonymi obiektami excela policzy VAT (dla zwolnionych należy wpisać “zw”) i zsumuje do kilkunastu pozycji (zresztą łatwo ją wydłużyć). Na podstawie wpisanej liczby dni oblicza termin zapłaty, po wydrukowaniu może służyć za podstawkę pod kubek.

Nie wpisuje sama kwoty slownie. Skrypty do tego wiszą w internecie ale na razie spróbuję coś napisać sam – bez ściągania.

–update-2009-06-30–

Jednak się złamałem i użyłem gotowca (z kilkoma niewielkimi przeróbkami). Wersja wpisująca kwotę słownie wymaga akceptacji makr więc wstawiam – tutaj.

Za to EK przeżyła traumę widząc po raz kolejny jak drukarka wypluwa po 3 strony na raport lektora tylko dlatego, że znowu “obróciła się” orientacja strony. Same kłopoty z tą orientacją.

Mamy skoroszyt z kilkoma arkuszami (dla niektórych lektorów będzie to raczej kilkanaście) – po jednym na grupę i na końcu 2 podliczające wcześniej wpisywane dane. Plik krąży sobie mailowo* pomiędzy lektorem a szkołą i po każdych zajęciach jest uzupełniany o nowe dane. Magicznie coś od czasu do czasu się przestawia i zamiast ładnie drukować się na landscape’owo ustawionej A4 – raport wychodzi w kawałkach.

Fuj.

Przy okazji doczytywania o VBA skleciłem takie coś

Sub WorksheetTheRightOrientationForcedLoop()
Dim Worksheet_Count As Integer
Dim I As Integer
Dim answer As Variant
Worksheet_Count = ActiveWorkbook.Worksheets.Count

For I = 1 To Worksheet_Count
answer = MsgBox(ActiveWorkbook.Worksheets(I).Name, vbQuestion + vbYesNo, "Should I change")
If answer = vbYes Then
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
Range("A1:K29").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$29"

ElseIf answer = vbNo Then
End If
Next I
End Sub

i nawet działa

–

*dla niektórych lektorów – tych których nie przeraża odrobina techniki plik wisi sobie na google docs.

Człowiek uczy się przez całe życie. Do czego służy pole (blind) carbon copy (cc/bcc)? Otóż do tego, żeby wysyłać maile do dużej grupy osób. A co się wpisuje w pole To:? Swój własny adres oczywiście.

A co z tym robi Spam Assassin?

Wycina w cho***ę. A jak nie spam assasin to sami userzy bo to przecież nie do nich.
Zresztą nie mam się co zżymać na koleżankę koordynator, bo ludzi jest 1ooo (ten 1ooo) i trzeba ich rozdystrybuować między kilkanaście spotkań inicjujących szkolenia. Dlatego AW trzeba było nauczyć korzystania z korespondencji seryjnej opartej na excelowej liście adresatów (Accessa u nas nadal nie ma a OpenOfficem nie będę zawracał nikomu głowy – na razie)

AW przyswoiła, przetestowała, wysłała (odestek błędów na poziomie 2% – nie jest  źle – a to i tak wyłącznie dlatego że baza danych była średnio aktualna)

Za to ludzie dostali informacje na swoje adresy, pisane do siebie, i z jedną – właściwą godziną i miejscem spotkania zamiast tabelki na trzy i pół strony.

Co innego z Welcome Packami. Każdy uczestnik dostaje “w gratisie” torbę, segregator i słuchawki. W segregatorze, komplet informacji personalizowanych pod kątem poziomu (5 różnych), formy zajęć (3) i płci (surprise, suprsie – 2) co łącznie daje 30 typów WP. Wysyłanych do kilkunastu różnych lokalizacji. Mamy 1 pokój i 2 korytarze  zastawione pryzmami kartek i gotowymi do nadania kartonami.

Zawsze lubiłem układanki

Rekrutujemy na całego

co ciekawe, z biurem w Warszawie, będziemy zatrudniać lektorów z całej Polski. Może to kwestia pory roku, ale odzew jest ogromny. Pierwsze sito to oczywiście CV – do specjalnej czarnej teczki obok kosza na śmieci trafia każde CV bez kierunkowego magistra lub licencjatu popartego co najmniej rocznym doświadczeniem (i najlepiej żeby uzupełniające magisterskie były w trakcie).

drugi krok to kontakt mailowy i określenie dostępności (w ten spoób ograniczamy sobie listę do tych osób, które naprawdę będą mogły poświęcić nam czas w odpowiednich godzinach – zajęcia przed i po pracy uczestników – a przy tym robi nam się dość ciekawa baza informacji o potencjalnych lektorach.

kolejny etap – weryfikacja – dzwonimy i robimy dwujęzyczny mini-interview, na podstawie którego umawiamy lektorów na spotkania z Paniami. Panie pozwiedzają trochę Polskę w najbliższych tygodniach.