Hirdetés
- Kormányok / autós szimulátorok topikja
- Vezetékes FEJhallgatók
- Ilyet se látunk minden nap, már füstölt a GeForce, de a játék még futott
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Hogy is néznek ki a gépeink?
- TCL LCD és LED TV-k
- Házimozi belépő szinten
- Milyen TV-t vegyek?
- Két 8 GB-os VGA-ra teszi fel ezt a negyedévet az NVIDIA?
- AMD Ryzen 7 / 5 / 3 1***(X) "Summit Ridge" (AM4)
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Fferi50
Topikgazda
Szia!
Ha nem összefüggő a kijelölt terület, akkor az Area tulajdonsággal hivatkozhatsz ezek közül az egyikre.
Tehát a területeken (Areas) kell végigmenned és azon belül a cellákon:Dim terul as Range, cl as Range
For Each terul in worksheetneve.range("terulet").Areas
For each cl in terul.cells
cl.vizsgalttulajdonsag
Next
NextA For Each ciklus előnye, hogy nem kell tudnod, hány darab van az adott objektumból.
Az egyes területeken a VBA sorirányban megy végig (ezt a cím lekérdezésével ellenőrizheted), az első sor után következik a második sor stb.
Természetesen más módon is lehet szervezni ciklust, a fontos, hogy itt tkp. nem egy, hanem 3 területről van szó.Ha A1,A4,A7 sorrendet szeretnél, akkor sorban a három terület első celláit kell venned, majd utána a második cellákat stb.
Üdv.
Új hozzászólás Aktív témák
- Kormányok / autós szimulátorok topikja
- Napelem
- Vezetékes FEJhallgatók
- Autós topik
- bobalazs: Microsoft Copilot és hasonló hülyeségek egyszerű kigyomlálása /örök megoldás/
- Call of Duty: Black Ops 7
- Milyen légkondit a lakásba?
- Óra topik
- Trollok komolyan
- Ilyet se látunk minden nap, már füstölt a GeForce, de a játék még futott
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- PC Game Pass előfizetés
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- í kilenc! AKCIÓS PRECÍZIÓS KÉSZÜLÉK! 7670 i9-12950HX 32GB RAM 1TB SSD Nvidia RTX A3000 12GB 1 év gar
- Készpénzes / Utalásos Számítógép felvásárlás! Személyesen vagy Postával!
- BESZÁMÍTÁS! Lenovo Thinkpad L14 Gen 1 notebook - i5 10210U 16GB DDR4 512GB SSD Intel UHD GraphicsW11
- Keresek Xbox Series S / Series X / Playstation 5 konzolokat
- BESZÁMÍTÁS! Asus TUF A16 2024 FA607NUG Gamer notebook - R7 7445HS 16GB DDR5 1TB SSD RTX 4050 6GB
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50

