Kalkulator wyborczy

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

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

 
http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=9&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=10&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=11&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=12&nr=4737c

 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2016 i programowanie VBA



GetDriveName czyli informacje o napędzie

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 

 
http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=5&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=6&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=7&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=8&nr=4737c

 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2013 i programowanie VBA



Ile plików w katalogu?

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.



http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=1&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=2&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=3&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=4&nr=4737c

 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2013 i programowanie VBA

Black Friday

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

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