Vba Close Form

Kattintsunk duplán az űrlapon lévő "Bevétel számolása" feliratú parancsgombra. Ezt látjuk: Ez a gombhoz kapcsolódó kattintás (click) esemény, melyre makrót írhatunk. Magyarán, mi történjen akkor, amikor rákattintok majd a parancsgombra. A "Private Sub…" és "End Sub" közé adjuk hozzá az alábbi sort: MsgBox Darabszam. Value * Egysegar. Value Ez azt jelenti, hogy a Darabszam (ami az első TextBox) értékét szorozza meg az Egysegar (a második TextBox) értékével. Az eredményt pedig üzenetablakban (msgbox) adja vissza. Vagyis így néz ki a kódunk, melyet F5-tel vagy a zöld lejátszás nyíllal tudunk futtatni. Futtatás előtt: Futtatás után: Most már beírhatunk számokat az első és második TextBox-ba, majd kattinthatunk a "Bevétel számolása" gombon: Eredmény: 6000 A vezérlőknél számos további esemény elérhető. Ha egy vezérlő (itt: Bevetel nevű parancsgomb) kódján belül van a kurzor: a jobb felső sarokban levő legördülő listában nézhetjük meg az elérhető eseményeket: a lefelé nyílra kattintsunk: Egyelőre ennyit a VBA Userform-ok általános ismertetéséről.

:) 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.

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.

July 17, 2024, 6:13 am