Excel, Access, VBA ....

Do tej pory przez 9 lat prowadziłam ten blog na platformie blogowej Blox. Niestety, pod koniec kwietnia '19 Agora zamyka Bloxa i trzeba znaleźć nowe miejsce w sieci. Owszem, przeniosłam stary blog na Wordpress.com, ale nie wszystko wyszło tak, jak bym chciała. Przede wszystkim z większości notek zniknęły zdjęcia (a dokładnie - screeny ilustrujące opisywaną treść), wstawione linki odwołujące się do innych notek też nie działają. Blog ten jest tu:
Excel, Access, VBA - archiwum na Wordpress
Wszystko to można poprawić, ale każdą z prawie 600 notek trzeba przejrzeć, poustawiać wszystko na nowo i trochę traci to sens. Archiwum zostaje, ale postanowiłam zacząć od nowa. Wykorzystam swoje doświadczenia, przy okazji reorganizując swoje blogowisko. Przede wszystkim postanowiłam rozdzielić Excel od Accessa na 2 osobne blogi. Adres nowego bloga to:

My Excel blog

Zapraszam



Tym razem rozszerzona wersja kalkulatora wyborczego. W porównaniu z wersją poprzednią opisaną tu:

Kalkulator wyborczy

uwzględnia przekroczenie progu wyborczego (5% dla partii i 8% dla koalicji). Oczywiście też jest oparty o metodę H'ondta. W roku podwójnych wyborów może się przydać.

Plik Excela do pobrania jest tu:

Kalkulator wyniku wyborów

Plik Excela jest bez makr. A jak działa?

kliknij, aby zobaczyć obrazek w większej rozdzielczości

Do wypełnienia są żółte pola. W komórce D6 wpisujemy liczbę mandatów do podziału, w komórkach C4:M4 - oznaczenie T/N dla koalicji, a w komórkach C5:M5 - liczbę głosów uzyskanych przez poszczególne partie. I już całą reszta jest obliczana automatycznie.

Komórka B10 to suma wszystkich głosów czyli suma zakresu C5:M5.
W wierszu 6 mamy formułę np. w C6: =C5/$B$10 - w pozostałych kolumnach wiersza 6 - analogicznie. W ten sposób obliczamy procent uzyskanych głosów dla poszczególnych partii.
W komórce C7 (i analogicznie w kolumnach od D do M) jest formuła:
=JEŻELI(C4="T";JEŻELI(C6>=8%;"T";"N");JEŻELI(C6>=5%;"T";"N"))
- następuje tu sprawdzenie, w zależności od tego czy jest to koalicja czy nie, czy został przekroczony próg wyborczy.

Metoda H'ondta polega na tym, że w pierwszym kroku wstawiamy do tabeli wszystkie wyniki, w kolejnym wierszu - dzielimy te wartości przez 2, w następnym - przez 3 itd.
Wyniki tych obliczeń są umieszczone od wiersza 14 w dół.

Formuły zawarte w wierszu 14 - to:
np. komórka C14: =JEŻELI(LUB(C5="";C7="N");0;C5) - czyli jeżeli w tabeli z danymi w kolumnie nie ma wartości lub wynik działania formuły w wierszu 7 jest "N"  - jest ona pobierana do wiersza 14, jeżeli nie - ZERO.

Od wiersza 15 - formuła wygląda tak:
np. w komórce C15: =JEŻELI(LUB(C14="";C14jeżeli w komórce  powyżej jest wartość co najmniej 1 - jest ona dzielona przez wartość w komórce B15 czyli 2. Analogicznie - w kolejnych wierszach.

Formuła B13 jest natomiast formuła:

=MAX.K(C14:M313;D1)

Wyznacza ona k-tą wartość maksymalną z zakresu obliczeń. Wartość k jest wyznaczona przez liczbę mandatów do podziału - zapisana jest w komórce D1. Wartości większe i równe tej wartości minimalnej są oznaczone w obliczeniach na jasnoniebiesko. Tu wykorzystałam formatowanie warunkowe:

W wierszu 8 jest wyznaczona liczba mandatów dla danej partii. Zastosowałam tu formułę:
=JEŻELI(C7="T";LICZ.JEŻELI(C14:C313;">=" &$B13);0)

Następuje tu sprawdzenie - ile w zakresie obliczeń dla danej kolumny występuje liczb niemniejszych od B7.

I już, wszystko jasne. - można wspomóc PKW kalkulatorem wyborczym.

Dla przypomnienia - podstawowe funkcje użyte w skoroszycie to:

Jeżeli, Licz.Jeżeli, Max(k).

Poza tym - warto poczytać o zastosowanym tu formatowaniu warunkowym.

Kilka lat temu opublikowałam na tym blogu notkę poświęconą tworzenia kalkulatora wyborczego, wyznaczającego liczbę mandatów dla poszczególnych ugrupowań (metoda d'Hondta).

Kalkulator wyborczy

Oprócz opisu jak zrobić taki kalkulator w Excelu był tam też link do samego pliku.

Ostatnio okazało się jednak, że link nie działa - faktycznie, moja strona od tamtego czasu trochę się zmieniła. Niestety, sam plik też mi gdzieś się zapodział. Może nawet nie zwróciłabym na to uwagi, ale dostałam kilka maili z prośbą o aktualizację. Wybory za kilka dni, więc odtworzyłam plik i wrzuciłam na serwer.

Kalkulator wyborczy jest do pobrania tu:

Kalkulator wyborczy - plik Excela

GetFolder to właściwość obiektu Scripting.FileSystemObject informująca o napędzie (czyli dysku) dla danego pliku.
Przykładowa funkcja zwracająca tę wartość może wyglądać tak:

Po wstawieniu funkcji do komórki arkusza w Excelu - otrzymamy nazwę folderu, na którym zapisany jest ten skoroszyt.

GetDriveName to właściwość obiektu Scripting.FileSystemObject informująca o napędzie (czyli dysku) dla danego pliku.
Przykładowa funkcja zwracająca tę wartość może wyglądać tak:

Po wstawieniu funkcji do komórki arkusza w Excelu - otrzymamy nazwę dysku, na którym zapisany jest skoroszyt.

W komentarzu pod notką
Odczyt listy plików w katalogu
pojawił się komentarz z pytaniem jak przerobić makro, aby liczyło ilość plików. Przerobiłam makro, przy okazji zmieniając procedurę na funkcję i wyszło mi coś takiego:

 Powinno zadziałać, także w folderze sieciowym.

Dziś świętujemy Black Friday czyli dzień wyprzedaży i wielkich bonifikat. Można zrobić zakupy po naprawdę atrakcyjnych cenach.

Tu kilka propozycji takich wyprzedaży z dziedziny Excela, Accessa, VBA i nie tylko:

• Strefa Kursów - rabaty do 90%
  
  
  
  
• Księgarnia informatyczna Helion - 100 hitów do 50% taniej
  
  
  
  
• Black Weekend na Videopoint - 30% taniej
  
  
  
  
• Moja własna oferta obniżona o 50%
  
  
  
  

Warto zajrzeć i zakupić literaturę informatyczną i/lub kursy w cenach dużo niższych niż na co dzień.



Scripting.FileSystemObject to obiekt służący do zarządzania plikami i  folderami. Wprawdzie w kodzie VBA są dostępne proste i przyjemne funkcje Dir, MkDir itp., ale przy odwołaniach do folderów sieciowych niestety zawodzą. Wówczas pozostaje wykorzystanie właśnie obiektu FileSystemObject, popularnie nazywanym FSO.

Dostępne są tu następujące właściwości i metody:

• GetDrive - informacje o napędzie (dysku)
• GetFolder - informacje o folderze
• GetFile- informacje o pliku
• CreateFolder - tworzenie folderu
• CreateFile - tworzenie pliku
• DeleteFolder - usuwanie folderu
• DeleteFile - usuwanie pliku
• CopyFolder - kopiowanie folderu
• CopyFile - kopiowanie pliku
• MoveFolder - przenoszenie folderu
• MoveFile - przenoszenie pliku

Opis i praktyczne ich wykorzystanie w kodzie VBA będzie tematem kolejnych notek. 

Film z kanału Excel, ilustrujący zaznaczanie duplikatów z wykorzystaniem formatowania warunkowego:

Zapraszam.

W jaki sposób włączyć/wyłączyć powiadomienia o dostarczeniu i odczytaniu wiadomości przesyłanych za pomocą Outlooka? Odpowiednie ustawienia znajdziemy na karcie Plik --> Opcje.

Dalej wybieramy Pocztę:

Po wybraniu tej opcji - w okienku po prawej stronie możemy wybrać odpowiednie ustawienia. Śledzenie znajduje się raczej na dole:

kliknij na obrazek, aby go powiększyć

Dwa pierwsze pola wyboru odpowiadają za ustawienia wiadomości wysyłanych - tu decydujemy, czy chcemy otrzymywać potwierdzenia dostarczenia i/lub odczytania.
Kolejne opcja dotyczy tego, czy sami chcemy wysyłać potwierdzenia. tu do wyboru mamy jedną z 3 opcji - automatycznie możemy je wysyłać zawsze, nigdy lub w stosunku do każdego maila z takim żądaniem potwierdzenia podejmować osobną decyzję. W przypadku tej trzeciej opcji po odczytania takiego maila pokaże się okienko, w którym wybieramy Tak lu Nie.