Cikk azonosítója: 213610 - Utolsó ellenőrzés: 2008. január 10. - Verziószám: 5.2

Excel-munkalapok minden második sorának törlése

RendszertippA jelen cikk az Ön által használttól eltérő operációs rendszerre vonatkozik. A cikk azon tartalmait, amelyek nem relevánsak Önnek, letiltjuk.
A cikk Microsoft Excel for the Macintosh programra vonatkozó változata a Tudásbázis következő számú cikke: 142528  (http://support.microsoft.com/kb/142528/ ) (Előfordulhat, hogy a hivatkozás részben vagy teljes egészében angol nyelvű tartalomra mutat.)
Az összes kibontása | Az összes összecsukása

Összefoglaló

A cikk egy olyan Microsoft Visual Basic for Applications (VBA) példamakrót tartalmaz, amelynek segítségével eltávolíthatja az Excel munkalapok kijelölt tartományának minden második sorát.

További információ

A Microsoft csak szemléltetési célból ad közre programozási példákat, és azokra – beleértve a forgalomba hozhatóságot és az adott célra való megfelelőséget is – sem törvényi, sem más garanciát nem vállal. A cikkben ismertetettek alkalmazásához jártasnak kell lenni a szemléltetésre szolgáló programozási nyelvben, valamint az eljárások létrehozására és a velük kapcsolatos hibakeresésre szolgáló eszközök használatában. A Microsoft támogatási szakemberei segítséget nyújthatnak egy-egy adott eljárás funkciójának megértésében, de funkcióbővítési célból nem módosítják a példákat, és nem készítenek az egyéni igényeknek megfelelő eljárásokat. Az alábbi makró használatához a következőképpen állítsa be az Excel munkafüzetet:
  1. Hozzon létre egy új Microsoft Excel munkafüzetet.
  2. Egy új munkalapon az A1:A9 tartományba írja be a számokat sorban 1-től 5-ig úgy, hogy a számok között egy-egy sort kihagy, az alábbi példában látható módon:
          A1: 1
          A2:
          A3: 2
          A4:
          A5: 3
          A6:
          A7: 4
          A8:
          A9: 5
    					
  3. Mutasson az Eszközök menü Makró pontjára, és kattintson a Visual Basic Editor parancsra.

    Megjegyzés: A Microsoft Office Excel 2007 programban a Fejlesztőeszközök lapon kattintson a Kód csoport Visual Basic ikonjára.
  4. Kattintson az Insert (Beszúrás) menü Module (Modul) parancsára.
  5. Az új modulba írja be az alábbi makrót:
    Sub Minden_Masodik_Sor_Torlese()
    
       ' Tömbváltozók.
       Y = False              ' Ha az 1, 3, 5. stb. sorokat kívánja törölni,
                              ' állítsa a változót True (Igaz) értékűre.
       I = 1
       Set xRng = Selection
    
       ' A ciklust egyszer a kijelölés valamennyi sorára végrehajtja.
       For xCounter = 1 To xRng.Rows.Count
    
           ' Ha Y igaz, akkor...
           If Y = True Then
    
               ' ...törli az egész cellasort
               xRng.Cells(I).EntireRow.Delete
    
           ' Egyébként...
           Else
    
               ' ...1-gyel növeli I értékét, hogy a ciklus végigfuthasson a tartományon.
               I = I + 1
    
           End If
    
           ' Ha Y értéke True (Igaz), legyen False (Hamis); ha Y False (Hamis), legyen True (Igaz).
           Y = Not Y
    
       Next xCounter
    
    End Sub
    						
  6. Váltson az adatokat tartalmazó munkalapra, majd jelölje ki az A1:A9 tartományt.
  7. Ehhez mutasson az Eszközök menü Makró pontjára, majd kattintson a Makrók parancsra.

    Megjegyzés: Az Excel 2007 programban a Fejlesztőeszközök lapon kattintson a Kód csoport Makrók ikonjára.

    Megjegyzés: A Fejlesztőeszközök fül megjelenítéséhez a Menüszalag elemen kattintson a Microsoft Office gombra, azután Az Excel beállításai, majd a Népszerű elemek elemre, jelölje be a Fejlesztőeszközök lap megjelenítése a szalagon jelölőnégyzetet, majd kattintson az OK gombra.
  8. Jelölje ki a Minden_Masodik_Sor_Torlese makrót, majd kattintson a Futtatás gombra.
Ez a makró a kijelölés második sorától kezdve az összes többi sort törölni fogja.

Megjegyzés: Amennyiben az adatlista több oszlopot is tartalmaz, a makró futtatásakor csak az első adatoszlopot jelölje ki.

A cikkben található információ a következő(k)re vonatkozik:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Kulcsszavak: 
kbhowto kbmacro kbprogramming kbautomation kbdtacode kbexpertisebeginner KB213610
A Microsoft tudásbázisban szolgáltatott információkat "az adott állapotban", bárminemű szavatosság vagy garancia nélkül biztosítjuk. A Microsoft kizár mindennemű, akár kifejezett, akár vélelmezett szavatosságot vagy garanciát, ideértve a forgalomképességre és az adott célra való alkalmasságra vonatkozó szavatosságot is. A Microsoft Corporation és annak beszállítói semmilyen körülmények között nem felelősek semminemű kárért, így a közvetlen, a közvetett, az üzleti haszon elmaradásából származó vagy speciális károkért, illetve a kár következményeként felmerülő költségek megtérítéséért, még abban az esetben sem, ha a Microsoft Corporationt vagy beszállítóit az ilyen károk bekövetkeztének lehetőségére figyelmeztették. Egyes államok joga nem teszi lehetővé bizonyos károkért a felelősség kizárását vagy korlátozását, ezért a fenti korlátozások az ön esetében esetleg nem alkalmazhatók.