2007. augusztus 11., szombat, Kiscimbora Nem lehet a Márta másé, mert a Márta már Tamásé. Láttam szőrös hörcsögöt. Szirup szörpöt szörcsögött. Ha szőrös hörcsög szörpöt szörcsög, rátörnek a hörcsöggörcsök. Hat fekete bika pata kopog a pepita patika fekete kövén. Egy icike-picike pocok pocakon pöckölt egy másik icike-picike pockot, mire a pocakon pöckölt icike-picike pocok is jól pocakon pöckölte az őt pocakon pöckölő icike-picike pockot. Csóré csiga csalán csúcsán cselleng, csalán csúcsát csipegetve fent leng, de a csalán nem tűri, csóré csiga csupasz csápját megcsípi. Azt mondják a hatalmasok, hogy akinek hat alma sok, az már elég hatalmas ok, hogy ne legyen hatalma sok. A szamárnál szomorúbb Szemere sem szerzett hamarabb szamárfi szamarat szomorú szamara számára, ezért sok szomorú szamárkönny szemerkélt a szamárnál szomorúbb Szemere szomorú szamara szeméből. Romhányi József: Szamárfül Előző írásunk 2007-08-11: Kiscimbora - x: Alszik a szív, és alszik a szívben az aggodalom, alszik a pókháló közelében a légy a falon; csönd van a házban, az éber egér se kapargál, alszik a kert, a faág, a fatörzsben a harkály, kasban a méh, rózsában a rózsabogár, alszik a pergő búzaszemekben a nyár, alszik a holdban a láng, hideg érem az égen; fölkel az ősz, és lopni lopakszik az éjben.
A fekete bika pata megcsúszott és hanyat vetődött egy tál villában. Számos kés irigykedve élcelődött a villák balesetén. Zeusz is megkeresztelkedett az eset hallatán. A tejföl meg mindezek alatt tejjé vált, szemben a só nem tudta eldönteni, hogy cukorrá vagy a borssá váljon, így lett karosszék. A minap a nappalimban is elszaporodtak a csörcsilek, ezért sok szőnyeg felmondott, és jóváhagyásommal hazaköltözött. Az ablakkeret önvédelmi célokból beüvegeztette magát. A piacon pedig ötszáz forint alá ment majomfarhát kilója, miután kijelentette-egy bizonyos szint alatt, egy bizonyos szint alá megyünk-. Tá. Dé. Vé.
Nappal a lapp pap a lapp paplak nappalijában pipál., Fekete bika pata kopog a patika fekete kövén, Stresszes, strasszos strucc-sztreccscucc., Mit sütsz, kis szűcs? Tán sóshúst sütsz, kisszűcs?, Csendes csiga csinosítgat kicsi csodás házacskáján., Mit lopsz küklopsz? Gipsz klipszet lopsz, küklopsz?, Cserszömörcés sört szürcsöl Csörsz., Két mókás mókusmunkás makkos mákos rétest majszol., Láttam szőrös hörcsögöt. Éppen szörpöt szörcsögött. Ha a hörcsög szörpöt szörcsög rátörnek a hörcsög görcsök., Nem lehet a Márta másé, mert a Márta már Tamásé., Száz sasszem meg száz sasszem az sok száz sasszem., Kőkapui kapukő, kapukőben laputő, laputőből lapu nő, lapus lesz a kőkapui kapukő.. Leaderboard Random wheel is an open-ended template. It does not generate scores for a leaderboard. Log in required Options Switch template More formats will appear as you play the activity.
A vidám elefánt. Állatok lábnyomok, mancs nyomatok. Különböző állatok és madarak lábnyomok és nyomok összessége. Macska, oroszlán, tigris, medve, kutya, tehén, sertés, csirke, elefánt, lovat stb. Vektor Farm állatok karakterek készlet színes könyv Rajzfilm állat Rajzolt firka bélelt Icon Set állat nyomon követi, I Negyvenkilenc állati ikonok Állati lábnyomok vektor Állatok kifestőkönyv beállítása Ló színező oldalak vektorral mancs print Állatok lábnyomai - láb nyomtatási útmutató vektor Horse, racing, racetrack 16 flat icons. Long shadow design for web. Ló Saiga tatarica állati arcát. Vektor ázsiai, mongol, Orosz Saiga antilop horn fej portré. Reális szőr bovids Saiga szarvasmarha elszigetelt tan background portréja. Gravírozás rams head illusztrációja Rénszarvas sziluett Vektor varrat nélküli mintázata szürke lapos ló cipő Pata (mancs) nyomtatása. Sertés (szarvas, kecske, tehén, juh) pata nyomtatási. Állati mancs nyomtatási. Vektoros illusztráció. Reális patkót elemek Rajzfilm bika Pata (mancs) nyomtat.
Következő írásunk 2007-08-11: Riport - Sylvester Lajos: Ojtoz felső fertálya összefüggő építőtelep. A nagy forgalmú országúton hosszú sorban suhannak az autók, s a Mogyorós-tető tizennégy hajtűkanyarja után az első nagy építkezés, amelyen a szeme megakad az embernek, az út bal oldalán vöröslő egykori vámház, később kereskedelmi egység — ha emlékezetem nem csal, még kultúrház is volt. Most Páll János építteti át.
Ádám bátyám pávát látván száját tátván pávává vált 25. elkelkáposztástalaníthatatlanságaitokért 26. egy kupac kopasz kukac, meg még egy kupac kopasz kukac az két kupac kopasz kukac 27. sárga bögre görbe bögre
Szóval csak azt akartam mondani, hogy - ár/érték arányban - van élet az Ikeán túl is. Pislákol ugyan, de azért rá lehet lelni... :) Hajrá!
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.
Űrlap, vagyis Userform. Valószínűleg már találkoztál velük – no persze akkor, ha nem egyszer nyitod meg az Excel-t havonta (akkor is véletlenül😊) Maga a userform egy párbeszédablak, minek segítségével infókat lehet megjeleníteni neked vagy adatot bekérni tőled, pl. : A VBA-nak van néhány előre beépített userform-ja, például: I. VBA MsgBox A VBA message box-szal egy párbeszédablakot jeleníthetünk meg. Szintaxis: MsgBox([Szöveg], [Gombok], [Címke]) Egy egyszerű példa VBA-ban: Sub VBA_MsgBox () MsgBox "A riport leadási határideje minden hónap 10-e! " & vbNewLine & vbNewLine & _ "Üdvözlettel:" & vbNewLine & vbNewLine & _ "Roland", vbExclamation + vbOKOnly, "Határidõ" End Sub Futtatás eredménye: A fenti egy egyszerű példa, de számos lehetőség van a testreszabásra: A: a mondandót több sorba tudom tördelni B: figyelemfelkeltő ikon C: Gomb kiválasztása (OK, Mégsem stb) D: Cím adása Itt a gombokhoz is tudok kódot írni, vagyis az általam megírt kód fut le az "OK" gomb megnyomásakor. II. Inputbox Ez tőled kér be valamilyen infót.
:) 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.
Hozzáadása: A Toolbox ablakban (fenti kép, "C"): a kiválasztott elem felé visszük a kurzort, a bal egérgombot lenyomjuk, majd fogd és vidd módszerrel az űrlapra húzzuk. Egy TextBox (szövegdoboz) hozzáadása majd átméretezése: Ezt követően – ha az elem ki van jelölve – a Properties szekcióban állíthatjuk a tulajdonságait.
Két típusa van: 1. VBA InputBox: Mint a neve is mutatja, ez a VBA függvénye. Paraméterei, melyeknél csak az első (prompt) megadása kötelező: A beírt érték kimenete szöveg lesz, ezért a fenti kép végén lévő "string". Példa, mely az általunk beírt nevet az aktív munkalap A1-es cellájába teszi: Sub VBA_InputBox () Dim Nev As String Nev = InputBox ( "Mi a keresztneved? ", "Név megadása", "Név megadása") Range ( "A1"). Value = Nev End Sub Makró futtatásakor: A: Üzenet B: Cím C: Alapértelmezett érték, melyet már átírtam a nevemre D: OK gomb megnyomása után az A1-es cella tartalma 2. putBox: Ez már az Excel függvénye és többet tud mint az előző, ezért gyakoribb a használata. Paraméterei, melyeknél szintén csak az első (prompt) megadása kötelező: Itt az utolsó, "Type" paraméter különösen fontos: megadhatjuk, milyen adattípust szeretnénk visszakapni (szám, szöveg, tartomány). Pl. a 8-as típusnál mi választhatunk ki egy tartományt a makró futása közben, majd a kijelölt tartományban végezhetünk műveleteket: Sub ApplicationInpuBox () Dim Tart As Range Set Tart = Application.
14. Kattintson duplán az OK gombra. 15. Adja hozzá a következő kódsorokat: Dim emptyRow As Long tivate emptyRow = (Range("A:A")) + 1 Cells(emptyRow, 1) = Cells(emptyRow, 2) = If = True Then Cells(emptyRow, 3) = "Male" Else Cells(emptyRow, 3) = "Female" Cells(emptyRow, 4) = Unload Me Magyarázat: először aktiváljuk a Sheet1-et. Ezután meghatározzuk az emptyRow értéket. Az emptyRow változó az első üres sor, amely minden rekord hozzáadásakor növekszik. Ezt követően az Userform-ból az adatokat az emptyRow konkrét oszlopaira továbbítjuk. Végül lezárjuk a Userform-ot. 16. Lépjen ki a Visual Basic Editorból, írja be az alább látható címkéket az 1. sorba, és próbálja meg a Userform-ot. Eredmény:
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.