Aigner Szilárd Halála Szabadság: # 1 Excel Vba Userform Több Oldalas
2016. jún 7. 8:40 #Aigner Szilárd #agyérműtét #derűs napot 154724_2 Váratlan halála az egész országot megrázta. Hétfőn reggel még remekül érezte magát. Felkelt, majd dolgozni indult... Az ország talán legnépszerűbb meteorológusa halálhírét feleségével közösen működtetett meteorológiai honlapjukon, videóban erősítették meg, amelynek végén maga Szilárd köszönt el, a szokott módon, derűs napot kívánva mindenkinek. Felesége, Pártai Lucia hétfőn nem volt elérhető. A Blikk úgy tudja, a meteorológus tavasszal agyérműtéten esett át, amely után felépült, és bizakodva tekintett a jövőbe. Halálának semmi előjele nem volt, a hetvenedik születésnapján is remekül érezte magát ismerősei körében. Másnap reggel is vidáman kelt, és készült a hétfői munkanapra, ám a sors közbeszólt. – Mély fájdalommal tudatjuk, hogy Aigner Szilárd június 6-án reggel váratlanul elhunyt – áll az videójában. – A búcsúnak ezt a formáját választva, hiszen az elmúlt években mindennap így köszöntötte önöket. Köszönjük, hogy szerették és tisztelték őt!
Aigner Szilárd Halal.Fr
Egy nappal a halála előtt még nem volt látható baja a népszerű meteorológusnak. Mint írtuk, egy nappal hetvenedik születésnapja után váratlanul elhunyt Aigner Szilárd, akit az MTV-n, az RTL Klubon és az ATV-n is láthattak a nézők éveken át. A meteorológus tavasszal agyérműtéten esett át, amely után felépült, és bizakodva tekintett a jövőbe – írta róla a Blikk. Aigner Szilárd Forrás: Youtube Halálának előjele nem volt, a hetvenedik születésnapján is remekül érezte magát ismerősei körében. Másnap reggel is vidáman kelt, és készült a hétfői munkanapra a lap szerint. Felesége Pártai Lucia volt, munkásságát a Magyar Televízió Nívódíjával és az Aranyszarvas-díjjal ismerték el. Aigner Szilárdról itt olvashat többet.
70 évesen hétfőn elhunyt Magyarország egyik legnépszerűbb meteorológusa, Aigner Szilárd. A Bors információi szerint a szíve régóta rendetlenkedett, a Blikk pedig azt írta, hogy az egykori tévés tavasszal agyérműtéten esett át. A lánya, Aigner Lucia úgy nyilatkozott, hogy édesapja hétfőn felkelt, dolgozni indult, de összerogyott és soha többé nem tért magához. Ahogy a Népszava is beszámolt róla, hétfőn a család tudatta, hogy Aigner Szilárd életének 71. évében váratlanul elhunyt otthonában, szerettei körében. Felesége megtörten csak annyit mondott a Borsnak, hogy most nem tud beszélni Szilárdról, intézik a családi dolgokat, de lánya elmondta, hogy az egész családot megdöbbentette édesapja halála. " Hétfőn felkelt, dolgozni indult, de összerogyott és soha többé nem tért magához. Azt hiszem, boldog volt az utolsó pillanatig" – nyilatkozta letörten az időjós lánya a Borsnak. A Blikk úgy tudja, hogy a meteorológus tavasszal agyérműtéten esett át, amely után felépült, és bizakodva tekintett a jövőbe.
– egyszer rákattintunk: Igaz (True), ha megint rákattintunk, akkor Hamis (False) lesz az értéke és így tovább vagy – egy értéket növel vagy csökkent, mint pl. életkor, dátum vagy egy számsor – növeléshez: jobbra nyíl vagy felfele nyíl – csökkentéshez: balra nyíl vagy lefele nyíl – egy tartomány értékeit lehet végiggörgetni – vagy a görgetőnyilakra kattintunk, vagy a csúszka és az egyik nyíl közé kattintunk vagy a csúszkát bal egérgombbal megfogjuk és húzzuk – hasonlóképpen, mint pl. Excelben vagy egy weboldalon – szöveg megjelenítésére, pl. : fejléc, egy vezérlő célja, rövidebb leírás, magyarázatok – olvasható (read-only) szöveg – képet jelenít meg – alkalmazása például: megértés segítő print screen-ek, logók, fényképek – általában az azonos típusú vezérlőket (itt a választógombot) fogja össze és jeleníti meg egy területen, egy keretet hozzáadva – címkét is meg lehet adni hozzá (itt: Riport típusa) VBA userform létrehozásának lépései: Üres userform hozzáadása Makró, mely megjeleníti az űrlapot (pl.
6. Nyissa meg a Visual Basic Editor alkalmazást. 7. A Project Explorerben kattintson jobb gombbal a UserForm1-re, majd kattintson a View Code (Kód megtekintése) parancsra. 8. A bal oldali legördülő listáról válassza a Userform (Felhasználóformátum) lehetőséget. Válassza az Initialize lehetőséget a jobb legördülő listából. 9. Adja hozzá a következő kódsorokat: Private Sub UserForm_Initialize() With ListBox1. AddItem "Mountains". AddItem "Sunset". AddItem "Beach". AddItem "Winter" End With Magyarázat: a 2. oldalon lévő listakód kitöltése. Most létrehoztuk a Userform első részét. Bár már szépnek tűnik, semmi sem fog történni, amikor kiválasztunk egy elemet a listából vagy amikor az OK gombra kattintunk. 10. Töltse le a képeket (az oldal jobb oldalán), és adja hozzá a "C: teszt" 11. A Project Explorer programban kattintson duplán a UserForm1-re. 12. Kattintson duplán a listán. 13. Adja hozzá a következő kódsorokat: Private Sub ListBox1_Click() If stIndex = 0 Then Image1. Picture = LoadPicture("") End If If stIndex = 1 Then If stIndex = 2 Then If stIndex = 3 Then Magyarázat: ezek a kódsorok a listán szereplő elemtől függően betöltenek egy képet.
:) A fentebb lévő egy vagy több ActiveX vezérlő hozzáadása és azok lehetőségeinek módosítása Esetleg a "sima" makrók kombinálása az ActiveX vezérlős kódokkal Példa: Készítsünk űrlapot, ahol megadjuk a darabszámot, az egységárat és gombnyomásra megkapjuk a bevételt. Vagyis: 1. Excelben: ALT + F11-gyel belépünk a VBA szerkesztőjébe 2. Jobb klikk a fájl nevén -> Insert -> UserForm 3. A darabszámnak létrehozunk egy szövegdobozt (TextBox): a "ToolBox"-ban megkeressük a TextBox ikonját és a bal egérgombot lenyomva tartva áthúzzuk az űrlapra (fogd és vidd azaz drag and drop módszer): 4. A TextBox ki van jelölve. A Properties-nél új nevet adunk neki (Darabszam), majd Enter: 5. Még egy TextBox-ot hozzáadunk: 3-as lépés megismétlése 6. 4-es lépés megismétlése, csak ezúttal a név Egysegar lesz, majd Enter: 7. ParancsGomb (CommandButton) hozzáadása: megkeressük az ikonját és a bal egérgombot lenyomva tartva áthúzzuk az űrlapra: 8. CommandButton ki van jelölve: A: Name megváltoztatása "Bevetel"-re B: Caption átírása "Bevétel számolása"-ra – ez fog megjelenni magán a gombon is, mint felirat 9.