InputBox ( "Jelölj ki egy tartományt, melyet be szeretnél zöldre színezni! ", "Kijelölés", Type: = 8) Tart. Interior. Color = vbGreen End Sub C: a makróban lévő 8-as típus miatt nekem kell kijelölni a tartományt, aminek beírja a címét D: eredmény: kiválasztott tartomány zöldre színezve az OK gomb megnyomása után A fenti MsgBox-szal és InputBox-ok nem mindig elegendőek – ezt fórumokon is gyakran kérdezik: – mi van, ha szeretném a dialóg ablak színét vagy az ottani szöveg betűszínét változtatni? – a gombok neveit meg akarom változtatni, pl. az "OK" helyett "Elfogadom"-ra Ezeket nem lehet megtenni a fentebb bemutatott módszerekkel, és itt jön képbe a III. VBA UserForm Ennek segítségével: – könnyebbé tehetjük az adatbevitelt – "golyóállóbb" lesz az alkalmazásunk, hiszen egy űrlapon jobban lekorlátozható, mit és hová lehet írni – professzionálisabb megjelenést adhatunk a riportnak/adatbázisnak: az űrlapot a cégre jellemző színekkel látjuk el, hozzáadunk egy lógót, csoportosított vagy személyre szabott beviteli mezőket stb.
:) 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.
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:
Ű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.
Inspiráció (angol nyelven): Remélem hasznos volt a poszt. Kérdésed, észrevételed van? Hívj vagy dobj egy emailt az -ra.
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.
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.
Újabb ezer ingyenes antitest-vizsgálatot ajánl fel a főváros a budapestieknek - közölte a Főpolgármesteri Hivatal szerdán az MTI-vel. A közleményben azt írták: a Fővárosi Idősügyi Tanács szerdai ülésén a tanácsot alkotó idősügyi szervezetek egységesen megköszönték a Fővárosi Önkormányzat antitestszint-mérési akcióját, de egyben kérték, hogy az önkormányzat további teszteket is végezzen. Ezért a főváros újabb ezer ingyenes antitestszint tesztelési lehetőséget biztosít, így összesen 20 ezer... Kedves Olvasónk! Hogyan kaphatok ingyen Antitest vizsgálatot?. Az Ön által keresett cikk a hírarchívumához tartozik, melynek olvasása előfizetéses regisztrációhoz kötött. Cikkarchívum előfizetés 1 943 Ft / hónap teljes cikkarchívum Kötéslisták: BÉT elmúlt 2 év napon belüli kötéslistái
A fővárosi önkormányzat a XV. kerületi 60 év feletti lakosok részére 200 darab ingyenes antitest mintavétel lehetőségét biztosítja vénás vérvétel alapján. Ezzel a teszttel kimutatható a koronavírus fertőzés következtében termelődött ellenanyagszint, illetve a SARS-CoV-2 vírussal szemben beadott védőoltás immunizáció hatására kialakuló immunválasz – írja közösségi oldalán a polgármester. Az önkéntes és ingyenes mintavételre azoknak a 60 év feletti, kínai Sinopharm-vakcinával beoltott, XV. kerületi lakcímmel rendelkező lakosoknak a jelentkezését várják, akik meg szeretnék ismerni ellenanyag-szintjüket. Fontos tudni, hogy az antitestek az első oltás után 5-7 nappal kezdenek fejlődni, minimum kéthét szükséges a védelem kialakulásához, de legalább 28 napba telik az optimális védelmi szint elérése az immunitás kialakulása. A mintavétel helye: Dr. Itthon: Ingyen antitestvizsgálatot kínál Budapest | hvg.hu. Vass László Egészségügyi Intézmény Labor (XV., Rákos út 77/A). Ideje: 2021. július 4-től, előzetes regisztrációt követően, a megadott beosztás szerint.
Dr. Merkely Béla arra is kitért, hogy minden oltás másképp hat az ellenanyag termelésre, ráadásul az antitest mérésére is eltérő technológiákat használnak, így bármely oltás esetén előfordulhat negatív eredmény, de ez nem jelenti, hogy nem alakult ki védettség. Leteszteltek koronavírus-specifikus antitestekre Megnéztük, milyen eredményt ad az antitesteket érzékelő teszt egy felgyógyult fertőzött és egy elvileg koronavírusmentes illető esetén. Ez a cikk tehát a teszt tesztje. (Lesz vér is, szóval csak erős idegzetűeknek! ) A most szóban forgó ingyenes teszt vérvétel-alapú, és ezen az e-mail címen lehet rá jelentkezni: A vizsgálatra mindenkinek magával kell vinnie az oltásokról szóló igazolást, valamint a korábbi ellenanyagszint-méréssel kapcsolatos lelet másolatát. További cikkek a témában: Meg kell-e ijednünk attól, hogy a koronavírus elleni antitestek mennyiségének a csökkenését mérték? Budapest portál | Megnyílt a regisztráció a fővárosi antitest tesztelésre. – A szakértők szerint nem feltétlen A fertőzés elmúlta után az antitestek mennyisége csökkenni szokott, ami teljesen hétköznapi jelenség.
A regisztrációhoz szükséges adatok: név, születési idő és hely, a lakcímkártya szerinti lakcím, email cím, telefonszám. A regisztrációkor kérjük, jelöljék meg, mely napokon szeretnének a vizsgálaton részt venni! Regisztrálni azok a II. kerületi lakosok tudnak, akik két oltással rendelkeznek, a második oltás felvétele óta eltelt legalább 14 nap és betöltötték 60. életévüket. A tesztekhez vérvétel szükséges, melyek elvégzésére 2021. július 19. és 22. között a Marczibányi téri Művelődési Központ, Újklubjában kerül sor. A vizsgálatok időpontjai: 2021. (hétfő) 8. 00 és 12. 00 óra között, 2021. július 20. (kedd) 13. 00 és 18. július 21. (szerda) 8. július 22. (csütörtök) 13. 00 óra között Kérjük, hogy a Vizsgálatkérő lapot kitöltve hozzák magukkal! A Vizsgálatkérő lapot itt tudja letölteni >>> Ezúton tájékoztatjuk, hogy az adatkezelés az Érintett hozzájárulásán, az Európai Parlament és Tanács (EU) 2016/679 rendelete ("GDPR") 6. cikk (1) bekezdés (a) pontja alapján történik. Amennyiben Ön hozzájárul személyes adatainak kezeléséhez, tájékoztatjuk, hogy azokat kizárólag a II.
(forrás: MTI, Budapest Portál)
2021. június 24. Az oltóanyagok hatásosságának mértékével kapcsolatosan széles körben nyilvánosságot kapott aggodalmak miatt az önkormányzat fontosnak tartja a fővárosi időskorú lakosság védettségének, a szervezetükben megjelenő antitestek szintjének mérésére vonatkozó lehetőség megteremtését. A felajánlott 19 ezer tesztből 18 ezer esetében a mintavételekre a lakosok szűrésében közreműködést vállaló budapesti kerületekben kerülhet majd sor. Megkapják a teszteket, illetve a kapcsolódó laborvizsgálatot is a főváros biztosítja. A Fővárosi Önkormányzat a 60 év felettieknek kíván lehetőséget biztosítani a kialakult védettség feltérképezésében. Több civil szervezet is a kormányhoz és a sajtóhoz fordult, miután egyes oltóanyag beadását követően a tagjaik vérében nem volt kimutatható ellenanyag. Hasonló problémák miatt több ország is elrendelte a harmadik oltás beadását. Az ellenanyagok mennyiségi mérésének lehetősége támpontot adhat a védettség meglétéről, illetve annak erősségére is engedhet következtetni.
Kellő körültekintéssel jelentkezzenek a vizsgálatra azok, akik olyan gyógyszert szednek, amelyek esetén a kontroll nélküli vérvétel nem ajánlott (pl. véralvadásgátló). További részletek az antitest vizsgálatról itt olvashatók.