Tartományok kijelölése a kezdő Visual Basic for Applications példákkal

Példák a cellák manuális kijelölésére

Egy oszlop összes adatának manuális kijelöléséhez jelölje ki az első cellát, és nyomja le a CTRL+SHIFT+LE billentyűkombinációt.

Hasonlóképpen, ha manuálisan szeretne kijelölni egy sort és a sorhoz csatolt összes oszlopot, nyomja le a CTRL+SHIFT+LE+JOBBRA billentyűkombinációt. Az összes adatnak azonban összefüggőnek kell lennie (vagyis nem lehet üres sor vagy oszlop). Az alábbi lépéseket választva kijelölheti az adatok aktuális adathalmazát (összefüggő adatokat, üres sorok vagy oszlopok nélkül):

1. A Szerkesztés menüben kattintson az Ugrás parancsra.

2. Az Ugrás párbeszédpanelen kattintson az Speciális gombra.

3. Az Ugrás az speciálisra párbeszédpanelen kattintson az Aktuális terület elemre, majd az
   OK gombra.

Egyszerű kód használatával is kijelölheti ezt Visual Basic for Applications tartományt.

Megjegyzés: Ha ezt az eljárást a makrórögzítővel próbálja rögzíteni, az eredmény nem ugyanaz lesz.

Példák tartomány celláinak Visual Basic kijelölésére Visual Basic kód használatával

A Microsoft csak illusztrációkhoz biztosít programozási példákat, jótállás kifejezett vagy vélelmezett nélkül. Ez többek között magában foglalja az adott célra való forgalomra vagy alkalmasságra vonatkozó vélelmezett garanciát. Ez a cikk abból indul ki, hogy Ön ismeri a bemutatott programnyelvet, valamint az eljárások létrehozására és a hibakeresésre használt eszközöket. A Microsoft támogatási szakemberei elmagyarázzák egy adott eljárás működését, de nem módosítják ezeket a példákat, hogy további funkciókat vagy az Ön igényeinek megfelelő eljárásokat építsen ki. Az alábbi Visual Basic kódmintákból azt tudható meg, hogy miként jelölheti ki az egyes tartományokat.

Ha ismeri az első cellát (ebben a példában a kezdő cella a C1 cella), és az utolsó cellát szeretné kijelölni (ugyanabban az oszlopban), amely tartalmaz adatokat, de nem ismeri ezt a címet, használja a következő kódot:

   Sub SelectRangeDown()
      Range("c1", Range("c1").End(xlDown)).Select
   End Sub

Megjegyzés: A SelectRangeDown makró azt feltételezi, hogy az adatok összefüggőek. Ellenkező esetben, ha a kijelölt adatoszlop üres cellákat tartalmaz, előfordulhat, hogy a makró nem jelöl ki minden cellát az oszlopban.

Ha az adatok a C1 cellában kezdődik, de abban az oszlopban nem összefüggőek, használja a következő makrót a Microsoft Office Excel 2003-as és korábbi verziói Excel ban:

   Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c65536").End(xlUp)).Select
   End Sub

Mivel Microsoft Office Excel 2007 1 048 576 sort támogat, a 2007-es Excel makrót használja:

 Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c1048576").End(xlUp)).Select
   End Sub

Ha az aktív cellából lefelé és jobbra az összes oszlopot ki szeretné választani (feltéve, hogy minden sorban és oszlopban összefüggő adatok láthatók), használja a következő kódot:

   Sub myrangearea()
      Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select
   End Sub

Ha ismeri a kezdő cellát (ebben a mintakódban a D1 kezdő cella), és az oszlopban lefelé és jobbra szeretné kijelölni, használja a következő kódot:

   Sub RangeFromStart()
      Range("d1", Range("d1").End(xlDown).End(xlToRight)).Select
   End Sub

Az aktuális régió összes adatának kijelöléséhez használja az alábbi kódot:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

A cikkben szereplő példák bemutatják, hogy miként jelölheti ki az aktuális munkafüzet aktív munkalapja különböző tartományokat.

Ha további információra van szükség arról, hogy miként jelöljön ki tartományokat a Visual Basic for Applications-val (és további példákat is talál), kattintson a következő cikkszámra a Microsoft Tudásbázisban található cikk megtekintéséhez:

291308 Cellák és tartományok kijelölése a Visual Basic eljárásokkal Excel