Programování pomůcek, řešení a komplexních aplikací v rámci Visual Basic for Applications - Excel, Access, Word, Outlook apod.
Programování se věnuji od svých 17 let, kdy jsem dostal svůj první počítač Atari 800XL. S programováním v prostředí MS Excel jsem začal v roce 1998 a s Accessem jsem začal v roce 2002. Na zakázku pro třetí firmy pracuji jako OSVČ od roku 2003. Přehled nejzajímavějších zakázek z poslední doby najdete zde
Nabízím Vám:
- programování maker v jazyce Visual Basic v prostředí Microsoftích aplikací
Excel a 
Access, - znalosti užívání Microsoft Excelu a Accessu,
- znalosti s databázovým serverem SQL Server, MySQL
- externí příležitostnou výpomoc při správě dat
- pomoc se zlepšováním toku informací ve firmě
Služby programování pro excel a access poskytuji jako OSVČ od roku 2003.
Možnosti daného prostředí a programovacího jazyka:
- vyhledávání dat napříč prostředím (SQL databáze, listy Excelu, databáze Access,
- editace dat pomocí formulářů, dávkových příkazů,
- zobrazení dat jako tabulky, Accessu, importy na web sql servery, sestavy ve Wordu a PDF ( s využitím šablon), výstupy css, html, xml apod,
- grafické zobrazení průběhu (plány výrob, vytížení pracovišť)
- získání informací parsingem html kódu z webových stránek
Kancelářské aplikace MS Office Excel, Word, Outlook a Access obsahují tzv. integrované vývojové prostředí (IDE), které umožňuje v rámci daného sešitu (Excel), nebo databáze (Access) nebo dokumentu (Word) a podobně, vytvářet velmi sofistikovaná a přitom velmi levná řešení, od jednoduchých funkcí až po komplexní zákaznické aplikace. Visual Basic for Applications (VBA) nabízí mocné a poměrně jednoduché nástroje pro správu dat a informací. Díky vestavěným dll modulům je možné obsluhovat i databáze SQL Server nebo MySQL.
Makra v excelu Vám tak urychlí práci, že to, co byste dělali hodiny bude hotové za pár vteřin!
Cena, obchodní podmínky, průběh zakázky:
Případná zakázka má většinou tento průběh:
- poptávka nebo zájem ze strany zákazníka,
- konzultace, zpravidla osobní, projednání záměru, hledání vhodného řešení,
- vypracování záměru řešení, rozsah prací, požadovaná funkčnost, cena,
- objednávka (v případě akceptování ze strany objednatele),
- realizace funkčního řešení a předání zákazníkovi k doladění a případnému zachycení chyb,
- fakturace (dílčí nebo konečná, dle dohody a rozsahu zakázky
Pokud je zakázka v režimu vykázané činnosti a výkazu práce, pak hodinová sazba je 400 Kč.
Cena může být stanovena vzájemnou dohodou za odsouhlasený objem prací.
Vývojové prostředí na pozadí aplikace MS Access, Ecxel, Word, Outlook atd
Příklad formuláře aplikace v prostředí MS Access s základními ovládacími prvky, provolby, seznamy, tlačítka, podtabulky apod.
Ukázka aplikace, která na základě podkladových souborů vygeneruje grafický plán vytížení pracovišť.
Potřebujete automatizovat a zrychlit práci s ms excelem? Pracujete každý den se stejnými tabulkami a potřebujete, aby se práce udělala sama? Chcete mít pořádek ve svých datech a rychle se v nich orientovat? Makra a programovací prostředí v excelu Vám umožní vše snadno a rychle a hlavně levně realizovat!
Příklad makra v jazyce VBA v Excelu
Jazyk VBA na pozadí Excelu má přístup ke každé buňce, ke každému listu i k souborům excelu a může s nimi provádět téměř libovolné operace. Výhodou makra je zejména to, že nezatěžuje počítač neustálým přepočítáváním vzorců, makro spustíte a máte výsledky, bez vzorců. Makra se hodí všude tam, kde potřebujete něco hledat, vyfiltrovat a nějak zobrazit. Nebo hledat a označkovat. Možností je mnoho a záleží jen na fantazii a požadavcích uživatele..
Jednou z tisíců možností je načíst data ze vzdáleného SQL serveru, udělat v nich změny přímo v listu, tak jak to znáte a pak je dávkově poslat zpět na server. I to lze, s pomocí objektu ActiveX ADODB.
Pro představu, jak Visual Basic vypadá, uvádím krátké makro:
Public Sub AnalyzaDat()
Dim rng As Range, lSmyckaRow As Long, lMaxRow As Long
Dim wbk As Workbook, wks As Worksheet
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Set wks = ThisWorkbook.Sheets(List7.Name)
lMaxRow = wks.Range("A65000").End(xlUp).Row
For lSmyckaRow = 2 To lMaxRow
wks.Range("X" & lSmyckaRow).Value = ""
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "Hotovo", vbInformation, strMsgTitle
End Sub
Toto makro je kostra metody, která by si zjistila poslední řádek volaného listu a pak by smyčkou prošla řádky od druhého do posledního použitého a ve sloupci X by něco zapsala. Tato metoda nic neřeší, ale řekněme, že bysme testovali hodnoty ve více sloupcích na výskyt nějakých hodnot a do sloupce X si dali nějakou značku. Pak by stačilo jen zapnout předdefinovaný filtr.
Potřebujete načíst a zpracovat data v různých formátech a pak je exportovat třeba jako html přes ftp dál na server?
If ZapFiltr = "A" Then
wks.Range("X13").AutoFilter Field:=24, Criteria1:="X"
End If
Taková technika není vhodná pro oblasti s tisíci řádky, pro takové případy je lepší "proběhnout" oblast pomocí Find, FindNext:
With rFoundCell
Set c = .Find(sOblast, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
wks.Range("X" & c.Row).Value = "A"
wks.Range("Z" & c.Row).Value = wks.Range("Z" & c.Row).Value & " - " & sOblast
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Opět jde jen o fragment kódu. V jedné zakázce jsem řešil "dohledání souvisejících údajů, jednotlivých pracovníků ze skupin. Pokud daný řádek výkonu náležel pracovníkovi z filtrované skupiny, byl označen písmenem A a poté byly takové řádky zafiltrovány. Vyskládávání filtru by bylo neúnosné.
V obrázku výše jsou v dialogovém okně provolby dvou hodnot, přičemž druhá, Skupina, obsahuje až deset různých čísel ze sloupce "Pers.-N". Pomocí makra a jeho hledání jsou hledána čísla z dané množiny a pokud jej řádek obsahuje, je označkován. Poté je zapnut Filtr a jsou zobrazeny jen ty řádky, které obsahují pracovnka s osobním číslem z dané skupiny a dále z požadované Oblasti.
Zpracování takové úlohy při 3000 řádcích trvá asi 2 sekundy.
Máte ve firmě velký informační systém a přesto potřebujete vlastní zákaznické analýzy? Ušetřete desítky tisíc korun a svěřte to excelu!
Upozornění: Aby Vám makra fungovala, musíte je mít ve svém Excelu povolená. Zde najdete návod, jak makra povolit.Zajímavé zakázky z posledních let:
Níže najdete příklady několika projektů, které jsem realizoval. Vždy se jedná o unikátní řešení šité na míru přímo zákazníkovi.
- Obchodníci na burze, rozsáhlý systém zpracování měnových párů, exporty dat na cílový server, který zobrazuje data ve speciálním zákaznickém grafickém software. Denní zálohování dat na MySQL server, update statusů na Facebook. Vše plně automatické.
- Grafické zobrazení plánu výroby a vytížení pracovišť
- Rozpočet materiálu na speciálním řezacím stroji. Nářezový plán papírových trubek, software sám vyhodnotí nejlepší kombinaci skladby řízků z trubky.
- Účetní kancelář - software pro správu klientely a dokumentace v rámci odečitatelné položky výzkumu a vývoje
- Firma poskytující sídla firmám, správa agendy
- Excelová šablona pro generování cenových nabídek a pdf sestav
