70 likes | 198 Views
Egyszerű trükkök a VBA-val. farkascs@jedlik.hu. Vezérlők a Wordben. A vizuális nyelvek vezérlői az Office alkalmazásokból is elérhetők, így „intelligens dokumentum” készíthető. Példa: Csodakenőcs megrendelő űrlap bemutatása.
E N D
Egyszerű trükkök a VBA-val farkascs@jedlik.hu
Vezérlők a Wordben • A vizuális nyelvek vezérlői az Office alkalmazásokból is elérhetők, így „intelligens dokumentum” készíthető. • Példa: Csodakenőcs megrendelő űrlap bemutatása. • Megnyitásához a Word 2002-ben a Eszközök / Beállítások / Adatvédelem fülön a biztonsági beállításoknál a biztonsági szintet csökkenteni kell.
Példa: Vezérlők beszúrása • Megnyitjuk a Nézet / Eszköztárak menüben a Vezérlők eszköztárát. • Tervezéshez a Tervező módot kell választanunk, futtatás előtt a tervező módból ki kell lépni. • A vezérlők a VB-hez hasonlóan szúrhatók be, de a szöveghez hasonlóan pozícionálhatók (vagy képként).
Példa: Vezérlők beállítása • A vezérlők tulajdonságai helyi menü Tulajdonságok menüpontjával állíthatók be. • A programkód beírásához kettőt kell rákattintani vagy ALT F11 • A VBA felülete lényegében a hagyományos vizuális felületekével azonos.
VBA felület részlet A VBA ablakban a Project mappa ThisDocument moduljában kell a kódnak lennie
Új függvények az Excelben • Nincs az adott feladathoz függvény... • Bonyolult elkészíteni a meglévő függvényekkel... • A VBA ablakban új függvény készíthető • ALT F11 majd Beszúrás / Modul • Példa: Kedvezmény meghatározása összetett feltételek esetén (FKERES, KUTAT, INDEX stb. helyett)
A Kedv() függvény Function Kedv(rendel, besorol) ‘Vessző kell Dim x As Single ‘Deklaráció nem kötelező x = 0 If besorol = "B" Then x = 0.05 ‘Angol szabályok If besorol = "A" Then x = 0.1 If rendel > 100 And rendel <= 200 Then x = x + 0.05 If rendel > 200 Then x = x + 0.1 Kedv = x ‘Visszaadott érték End Function