Moje doświadczenia z Excelem, Accesem i programowaniem w VBA
niedziela, 17 marca 2019

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



Tagi: blog
20:56, marzatela , Różne
Link Dodaj komentarz »
wtorek, 19 lutego 2019

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?

Kalkulator wyników wyborów

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:

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.

 


 

Kurs Excel - zaawansowane funkcje i formuły

czwartek, 18 października 2018

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


czwartek, 14 czerwca 2018

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:

Public Function MyKatalog()
Dim FSO As Object
Set FSO=CreateObject("Scripting.FileSystemObject")
MyKatalog= FSO.GetFolder(ThisWorkbook.Path)
Set FSO = Nothing
End Function

 

 

 

 

 

 

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

GetFolder

 


 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2016 i programowanie VBA



niedziela, 10 czerwca 2018

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:

 Public Function Napedi()
Dim FSO  As Object
Set FSO=CreateObject("Scripting.FileSystemObject")
Naped = FSO.GetDriveName(ThisWorkbook.Path)
Set FSO = Nothing
End Function

 

 

 

 

 

 

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

GetDrive 

 


 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2013 i programowanie VBA



środa, 03 stycznia 2018

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:

Public Function PoliczPliki()
Dim Katalog As String
Dim NazwaPliku As String
Katalog = Range("A1").Value
Katalog = Katalog & "\"
PoliczPliki = 0
NazwaPliku = Dir(Katalog & "*.*")
Do While NazwaPliku <> ""
   PoliczPliki = PoliczPliki + 1
   NazwaPliku = Dir
Loop
End Function


 


 

 

 

 

 

 

 

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



 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2013 i programowanie VBA

piątek, 24 listopada 2017

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:

 

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

 


 





piątek, 20 października 2017

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. 

 

Excel 2013 i programowanie VBA

 

Kurs Excel programowanie w VBA

poniedziałek, 24 lipca 2017

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

Zapraszam.


 Excel - szybkie przetwarzanie danych


Kurs Excel 2010 esencja

wtorek, 04 lipca 2017

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.

Opcje Microsoft Outlook

Dalej wybieramy Pocztę:

Opcje Microsoft Outlook

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

 Opcje śledzenia

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.

Opcje śledzenia

 

 


 


 

Kurs Outlook - efektywna praca

Tagi: mail outlook
08:12, marzatela , Różne
Link Dodaj komentarz »
 
1 , 2 , 3 , 4 , 5 ... 37
| < Kwiecień 2019 > |
Pn Wt Śr Cz Pt So N
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30          


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


A tu oferta na dziś:

Wydawnictwo Strefa Kursów



ministat liczniki.org



Napisz do mnie!