Logga in

Select the product you need help with

Markera celler/omr�den med hj�lp av Visual Basic-procedurer i Excel

Artikel-id: 291308 - Visa produkter som artikeln g�ller.

Microsoft tillhandah�ller programmeringsexempel enbart i f�rklarande syfte och g�r inga utf�stelser, varken uttryckligen eller underf�rst�tt. Detta omfattar men begr�nsas inte till underf�rst�dd garanti f�r s�ljbarhet eller l�mplighet f�r ett visst syfte. I denna artikel f�ruts�tts att du k�nner till det programmeringsspr�k som demonstreras och de verktyg som anv�nds f�r att skapa och fels�ka procedurer. Microsofts supporttekniker kan hj�lpa till med att f�rklara funktionen hos en viss procedur, men kan inte �ndra dessa exempel f�r att ge ytterligare funktioner eller skapa procedurer som motsvarar dina speciella behov. I exemplen i den h�r artikeln anv�nds Visual Basic-metoderna fr�n f�ljande tabell.

   Metod             Argument
   ------------------------------------------
   Activate           inget
   Cells              rowIndex, columnIndex
   Application.Goto   reference, scroll
   Offset             rowOffset, columnOffset
   Range              cell1
                      cell1, cell2
   Resize             rowSize, columnSize
   Select             inget
   Sheets             index (eller sheetName)
   Workbooks          index (eller bookName)
   End                direction
   CurrentRegion      inget

I exemplen i den h�r artikeln anv�nds egenskaperna i f�ljande tabell.

   Egenskap         Anv�nds
   ---------------------------------------------------------------------
   ActiveSheet      f�r att ange det aktiva bladet
   ActiveWorkbook   f�r att ange den aktiva arbetsboken
   Columns.Count    f�r att r�kna antalet kolumner i det angivna objektet
   Rows.Count       f�r att r�kna antalet rader i det angivna objektet
   Selection        f�r att referera till det markerade omr�det

1: Markera en cell i det aktiva kalkylbladet

Om du vill markera cell D5 i det aktiva kalkylbladet kan du anv�nda n�got av f�ljande exempel:

ActiveSheet.Cells(5, 4).Select

eller

ActiveSheet.Range("D5").Select

2: Markera en cell i ett annat kalkylblad i samma arbetsbok

Om du vill markera cell E6 i ett annat kalkylblad i samma arbetsbok kan du anv�nda n�got av f�ljande exempel:

Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)

   eller

Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))

Du kan �ven aktivera kalkylbladet och sedan anv�nda metod 1 ovan f�r att markera cellen:

Sheets("Sheet2").Activate
ActiveSheet.Cells(6, 5).Select

3: Markera en cell i ett kalkylblad i en annan arbetsbok

Om du vill markera cell F7 i ett kalkylblad i en annan arbetsbok kan du anv�nda n�got av f�ljande exempel:

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)

eller

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")

Du kan �ven aktivera kalkylbladet och sedan anv�nda metod 1 ovan f�r att markera cellen:

Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate
ActiveSheet.Cells(7, 6).Select

4: Markera ett cellomr�de i det aktiva kalkylbladet

Om du vill markera omr�det C2:D10 i det aktiva kalkylbladet kan du anv�nda n�got av f�ljande exempel:

ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select

ActiveSheet.Range("C2:D10").Select

ActiveSheet.Range("C2", "D10").Select

5: Markera ett cellomr�de i ett annat kalkylblad i samma arbetsbok

Om du vill markera cellomr�det D3:E11 i ett annat kalkylblad i samma arbetsbok kan du anv�nda n�got av f�ljande exempel:

Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")

Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")

Du kan �ven aktivera kalkylbladet och sedan anv�nda metod 4 ovan f�r att markera omr�det:

Sheets("Sheet3").Activate
ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select

6: Markera ett cellomr�de i ett kalkylblad i en annan arbetsbok

Om du vill markera omr�det E4:F12 i ett kalkylblad i en annan arbetsbok kan du anv�nda n�got av f�ljande exempel:

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")

Application.Goto _
      Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12")

Du kan �ven aktivera kalkylbladet och sedan anv�nda metod 4 ovan f�r att markera omr�det:

Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate
   ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select

7: Markera ett namngivet omr�de i det aktiva kalkylbladet

Om du vill markera det namngivna omr�det "Test" i det aktiva kalkylbladet kan du anv�nda n�got av f�ljande exempel:

Range("Test").Select

Application.Goto "Test"

8: Markera ett namngivet omr�de i ett annat kalkylblad i samma arbetsbok

Om du vill markera det namngivna omr�det "Test" i ett annat kalkylblad i samma arbetsbok kan du anv�nda f�ljande exempel:

Application.Goto Sheets("Sheet1").Range("Test")

Du kan �ven aktivera kalkylbladet och sedan anv�nda metod 7 ovan f�r att markera det namngivna omr�det:

Sheets("Sheet1").Activate
Range("Test").Select

9: Markera ett namngivet omr�de i ett kalkylblad i en annan arbetsbok

Om du vill markera det namngivna omr�det "Test" i ett kalkylblad i en annan arbetsbok kan du anv�nda f�ljande exempel:

Application.Goto _
   Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")

Du kan �ven aktivera kalkylbladet och sedan anv�nda metod 7 ovan f�r att markera det namngivna omr�det:

Workbooks("BOOK2.XLS").Sheets("Sheet2").Activate
Range("Test").Select

10: Markera en cell i f�rh�llande till den aktiva cellen

Om du vill markera en cell som �r fem rader nedanf�r och fyra kolumner till v�nster om den aktiva cellen, kan du anv�nda f�ljande exempel:

ActiveCell.Offset(5, -4).Select

Om du vill markera en cell som �r tv� rader ovanf�r och tre kolumner till h�ger om den aktiva cellen, kan du anv�nda f�ljande exempel:

ActiveCell.Offset(-2, 3).Select

Obs! Om du f�rs�ker markera en cell som �r "utanf�r kalkylbladet" visas ett felmeddelande. Det f�rsta exemplet ovan ger upphov till ett felmeddelande om den aktiva cellen finns i kolumn A till och med D, eftersom en f�rflyttning fyra kolumner till v�nster g�r att den aktiva cellen kommer att finnas p� en ogiltig celladress.

11: Markera en cell i f�rh�llande till en annan cell �n den aktiva cellen

Om du vill markera en cell som �r fem rader nedanf�r och fyra kolumner till h�ger om cell C7, kan du anv�nda n�got av f�ljande exempel:

ActiveSheet.Cells(7, 3).Offset(5, 4).Select

ActiveSheet.Range("C7").Offset(5, 4).Select

12: Markera ett cellomr�de som �r f�rskjutet fr�n ett angivet omr�de

Om du vill markera ett cellomr�de som �r lika stort som det namngivna omr�det "Test", men som �r f�rskjutet fyra rader ned�t och tre kolumner till h�ger, kan du anv�nda f�ljande exempel:

ActiveSheet.Range("Test").Offset(4, 3).Select

Om det namngivna omr�det finns i ett annat kalkylblad �n det aktiva aktiverar du detta andra kalkylblad f�rst, och markerar sedan omr�det med hj�lp av f�ljande exempel:

Sheets("Sheet3").Activate
ActiveSheet.Range("Test").Offset(4, 3).Select

13: Markera ett angivet omr�de och �ndra markeringens storlek

Om du vill markera det namngivna omr�det "Database" och sedan ut�ka markeringen med fem rader kan du anv�nda f�ljande exempel:

Range("Database").Select
Selection.Resize(Selection.Rows.Count + 5, _
   Selection.Columns.Count).Select

14: Markera ett angivet omr�de, f�rskjuta det och sedan �ndra omr�dets storlek

Om du vill markera ett omr�de fyra rader nedanf�r och tre kolumner till h�ger om det namngivna omr�det "Database", samt inkludera tv� rader och en kolumn mer �n det namngivna omr�det, kan du anv�nda f�ljande exempel:

Range("Database").Select
Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, _
   Selection.Columns.Count + 1).Select

15: Markera unionen av tv� eller flera angivna omr�den

Om du vill markera unionen (det vill s�ga den sammanslagna ytan) av de tv� namngivna omr�dena "Test" och "Sample" kan du anv�nda f�ljande exempel:

Application.Union(Range("Test"), Range("Sample")).Select

Observera att b�da omr�dena m�ste finnas i samma kalkylblad f�r att det h�r exemplet ska fungera. Observera �ven att Union-metoden inte fungerar mellan olika blad. Raden

Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))

fungerar till exempel bra, men

Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))

ger upphov till f�ljande felmeddelande:

Union method of application class failed

16: Markera snittet av tv� eller flera angivna omr�den

Om du vill markera snittet av de tv� namngivna omr�dena "Test" och "Sample" kan du anv�nda f�ljande exempel:

Application.Intersect(Range("Test"), Range("Sample")).Select

Observera att b�da omr�dena m�ste finnas i samma kalkylblad f�r att det h�r exemplet ska fungera.

I exempel 17?21 i den h�r artikeln h�nvisas till f�ljande exempeldata. I varje exempel anges cellomr�det som markeras.

   A1: Namn    B1: F�rs�ljning    C1: Kvantitet
   A2: a       B2: $10      C2: 5
   A3: b       B3:          C3: 10
   A4: c       B4: $10      C4: 5
   A5:         B5:          C5:
   A6: Total   B6: $20      C6: 20

17: Markera den sista cellen i en kolumn med sammanh�ngande data

Om du vill markera den sista cellen i en sammanh�ngande kolumn kan du anv�nda f�ljande exempel:

ActiveSheet.Range("a1").End(xlDown).Select

N�r den h�r koden anv�nds p� exempeltabellen markeras cellen A4.

18: Markera den tomma cellen l�ngst ned i en kolumn med sammanh�ngande data

Om du vill markera cellen nedanf�r ett omr�de med sammanh�ngande celler kan du anv�nda f�ljande exempel:

ActiveSheet.Range("a1").End(xlDown).Offset(1,0).Select

N�r den h�r koden anv�nds p� exempeltabellen markeras cellen A5.

19: Markera ett helt omr�de med sammanh�ngande celler i en kolumn

Om du vill markera ett omr�de med sammanh�ngande celler i en kolumn kan du anv�nda f�ljande exempel:

ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select

   eller

ActiveSheet.Range("a1:" & ActiveSheet.Range("a1"). _
      End(xlDown).Address).Select

N�r den h�r koden anv�nds p� exempeltabellen markeras cellerna A1 till och med A4.

20: Markera ett helt omr�de med icke sammanh�ngande celler i en kolumn

Om du vill markera ett omr�de med celler som inte h�nger samman kan du anv�nda f�ljande exempel:

ActiveSheet.Range("a1",ActiveSheet.Range("a65536").End(xlUp)).Select

   eller

ActiveSheet.Range("a1:" & ActiveSheet.Range("a65536"). _
   End(xlUp).Address).Select

N�r den h�r koden anv�nds p� exempeltabellen markeras cellerna A1 till och med A6.

21: Markera ett rektangul�rt cellomr�de

Om du vill markera ett rektangul�rt cellomr�de runt en cell anv�nder du CurrentRegion-metoden. Omr�det som markeras med CurrentRegion-metoden begr�nsas av en valfri kombination av tomma rader och tomma kolumner. F�ljande �r ett exempel p� hur du kan anv�nda CurrentRegion-metoden:

ActiveSheet.Range("a1").CurrentRegion.Select

Den h�r koden markerar cellerna A1 till och med C4. Andra exempel p� markering av samma cellomr�de anges nedan:

ActiveSheet.Range("a1", _
   ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select

   eller

ActiveSheet.Range("a1:" & _
   ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select

I vissa fall kan du vilja markera cellerna A1 till och med C6. I det h�r fallet fungerar inte CurrentRegion-metoden p� grund av den tomma raden p� rad 5. I f�ljande exempel markeras samtliga celler:

lastCol = ActiveSheet.Range("a1").End(xlToRight).Column
lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row
ActiveSheet.Range("a1", ActiveSheet.Cells(lastRow, lastCol)).Select

    eller

lastCol = ActiveSheet.Range("a1").End(xlToRight).Column
lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row
ActiveSheet.Range("a1:" & _
   ActiveSheet.Cells(lastRow, lastCol).Address).Select

22. Markera flera icke sammanh�ngande kolumner av varierande l�ngd

Om du vill markera flera icke sammanh�ngande kolumner av varierande l�ngd kan du anv�nda f�ljande tabell- och makroexempel:

   A1: 1  B1: 1  C1: 1  D1: 1
   A2: 2  B2: 2  C2: 2  D2: 2
   A3: 3  B3: 3  C3: 3  D3: 3
   A4:    B4: 4  C4: 4  D4: 4
   A5:    B5: 5  C5: 5  D5:
   A6:    B6:    C6: 6  D6:

StartRange = "A1"
EndRange = "C1"
Set a = Range(StartRange, Range(StartRange).End(xlDown))
Set b = Range(EndRange, Range(EndRange).End(xlDown))
Union(a,b).Select

N�r den h�r koden anv�nds p� exempeltabellen markeras cellerna A1:A3 och C1:C6.

ANM�RKNINGAR OM EXEMPLEN

ActiveSheet-egenskapen kan vanligen uteslutas, eftersom den �r underf�rst�dd om ett visst blad inte namnges. I st�llet f�r
ActiveSheet.Range("D5").Select
kan du till exempel anv�nda f�ljande:
Range("D5").Select
ActiveWorkbook-egenskapen kan vanligen ocks� uteslutas. Om inte en viss arbetsbok namnges underf�rst�s den aktiva arbetsboken.
N�r du anv�nder Application.Goto-metoden och vill anv�nda de b�da Cells-metoderna inom Range-metoden n�r det angivna omr�det finns i ett annat kalkylblad �n det aktiva, m�ste du inkludera Sheets-objektet varje g�ng. Ett exempel:
Application.Goto Sheets("Sheet1").Range( _ Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), _ Sheets("Sheet1").Cells(4, 5)))
F�r alla objekt inom citattecken (till exempel det namngivna omr�det "Test") kan du �ven anv�nda en variabel vars v�rde �r en textstr�ng. I st�llet f�r
ActiveWorkbook.Sheets("Sheet1").Activate
kan du till exempel anv�nda f�ljande
ActiveWorkbook.Sheets(myVar).Activate
d�r v�rdet av myVar �r "Sheet1".

Tillbaka till b�rjan | Ge feedback

Referenser

Om du vill veta mer om hur du anv�nder exempelkoden i den h�r artikeln klickar du p� f�ljande artikelnummer och l�ser artikeln i Microsoft Knowledge Base:

290140

(http://support.microsoft.com/kb/290140/ )

K�ra exempelkod f�r Office XP-program fr�n artiklar i Knowledge Base (L�nken kan leda till en webbplats som �r helt eller delvis p� engelska)

Tillbaka till b�rjan | Ge feedback