Zajrzałam do statystyk tego blogu i zauważyłam całkiem sporo wejść. Na wszelki więc wypadek informuję, że ten blog nie jest już aktualizowany. Wszystkie nowe treści wrzucam już na nowe miejsce. Przy okazji rozdzieliłam też Excel i Access.
Na bieżąco prowadzę więc:
My Excel – blog o Excelu i VBA
oraz:
Blog o Accessie – oczywiście także z VBA
Zapraszam.
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).
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:
| 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.
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.
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.
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ń.
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:
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.
Tym razem moja oferta – dodatek Excela będący generatorem kodu QR.
Działa tak:
Szczegóły i wersja demo do pobrania są tu:
Zapraszam.
