Log p�

Select the product you need help with

S�dan markeres celler/omr�der ved hj�lp af Visual Basic-fremgangsm�der i Excel

Artikel-id: 291308 - F� vist de produkter, som denne artikel refererer til.

Microsoft leverer kun programmeringseksempler som illustration ? uden nogen form for garanti, det v�re sig udtrykkelig eller underforst�et. Dette omfatter, men er ikke begr�nset til, det underforst�ede ansvar for salgbarhed eller egnethed til bestemte form�l. Det foruds�ttes i denne artikel, at du kender ovenn�vnte programmeringssprog samt de v�rkt�jer, der anvendes til at oprette og foretage fejlfinding i procedurer. Microsofts supportmedarbejdere kan hj�lpe med at forklare funktionaliteten i en bestemt procedure, men vil ikke �ndre eksemplerne, s� de giver yderligere funktionalitet, eller oprette procedurer, der passer specielt til dine behov. Eksemplerne i denne artikel benytter de Visual Basic-metoder, der er angivet i tabellen nedenfor.

   Metode             Argumenter
   ------------------------------------------
   Activate           none
   Cells              rowIndex, columnIndex
   Application.Goto   reference, scroll
   Offset             rowOffset, columnOffset
   Range              cell1
                      cell1, cell2
   Resize             rowSize, columnSize
   Select             none
   Sheets             index (or sheetName)
   Workbooks          index (or bookName)
   End                direction
   CurrentRegion      none

Eksemplerne i denne artikel benytter egenskaberne i tabellen nedenfor.

   Egenskab         Benyt
   ---------------------------------------------------------------------
   ActiveSheet      for at angive det aktive ark
   ActiveWorkbook   for at angive den aktive projektmappe
   Columns.Count    for at t�lle antallet af kolonner i det angivne element
   Rows.Count       for at t�lle antallet af r�kker i det angivne element
   Selection        for at referere til det markerede omr�de

1: S�dan markeres en celle i det aktive regneark

Hvis du vil markere celle D5 i det aktive regneark, kan du benytte et af f�lgende eksempler:

ActiveSheet.Cells(5, 4).Select

eller

ActiveSheet.Range("D5").Select

2: S�dan markeres en celle i et andet regneark i den samme projektmappe

Hvis du vil markere celle E6 i et andet regneark i den samme projektmappe, kan du benytte et af f�lgende eksempler:

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

   eller

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

Eller du kan aktivere regnearket og derefter benytte metode 1 ovenfor til at markere cellen:

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

3: S�dan markeres en celle i et regneark i en anden projektmappe

Hvis du vil markere celle F7 i et regneark i en anden projektmappe, kan du benytte et af f�lgende eksempler:

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

eller

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

Eller du kan aktivere regnearket og derefter benytte metode 1 ovenfor til at markere cellen:

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

4: S�dan markeres et celleomr�de i det aktive regneark

Hvis du vil markere omr�det C2:D10 i det aktive regneark, kan du benytte et af f�lgende eksempler:

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

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

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

5: S�dan markeres et celleomr�de i et andet regneark i den samme projektmappe

Hvis du vil markere omr�det D3:E11 i et andet regneark i den samme projektmappe, kan du benytte et af f�lgende eksempler:

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

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

Eller du kan aktivere regnearket og derefter benytte metode 4 ovenfor til at markere omr�det:

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

6: S�dan markeres et celleomr�de i et regneark i en anden projektmappe

Hvis du vil markere omr�det E4:F12 i et regneark i en anden projektmappe, kan du benytte et af f�lgende eksempler:

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

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

Eller du kan aktivere regnearket og derefter benytte metode 4 ovenfor til at markere omr�det:

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

7: S�dan markeres et navngivet omr�det i det aktive regneark

Hvis du vil markere det navngivne omr�de "Test" i det aktive regneark, kan du benytte et af f�lgende eksempler:

Range("Test").Select

Application.Goto "Test"

8: S�dan markeres et navngivet omr�de i et andet regneark i den samme projektmappe

Hvis du vil markere det navngivne omr�de "Test" i et andet regneark i den samme projektmappe, kan du benytte f�lgende eksempel:

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

Eller du kan aktivere regnearket og derefter benytte metode 7 ovenfor til at markere det navngivne omr�de:

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

9: S�dan markeres et navngivet omr�de i et regneark i en anden projektmappe

Hvis du vil markere det navngivne omr�de "Test" i et regneark i en anden projektmappe, kan du benytte f�lgende eksempel:

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

Eller du kan aktivere regnearket og derefter benytte metode 7 ovenfor til at markere det navngivne omr�de:

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

10: S�dan markeres en celle i forhold til den aktive celle

Hvis du vil markere en celle, der er placeret fem r�kker under og fire kolonner til venstre for den aktive celle, kan du benytte f�lgende eksempel:

ActiveCell.Offset(5, -4).Select

Hvis du vil markere en celle, der er placeret to r�kker over og tre kolonner til h�jre for den aktive celle, kan du benytte f�lgende eksempel:

ActiveCell.Offset(-2, 3).Select

Bem�rk! Der vil opst� en fejl, hvis du fors�ger at markere en celle, der er "ligger uden for regnearket". Det f�rste eksempel, der er vist ovenfor, vil returnere en fejl, hvis den aktive celle findes i kolonnerne A til og med D, fordi den aktive celle flyttes til en ugyldig celleadresse, hvis du flytter fire kolonner til venstre.

11: S�dan markeres en celle i forhold til en anden celle (ikke den aktive celle)

Hvis du vil markere en celle, der er placeret fem r�kker under og fire kolonner til h�jre for celle C7, kan du benytte et af f�lgende eksempler:

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

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

12: S�dan markeres et celleomr�de, der er forskudt i forhold til et angivet omr�de

Hvis du vil markere et celleomr�de, der har samme st�rrelse som det navngivne omr�de "Test", men som er forskudt fire r�kker ned og tre kolonner til h�jre, kan du benytte f�lgende eksempel:

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

Hvis det navngivne omr�de findes i et andet regneark (ikke det aktive regneark), skal du f�rst aktivere det p�g�ldende regneark og derefter markere omr�det ved hj�lp af f�lgende eksempel:

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

13: S�dan markeres et angivet omr�de, og s�dan �ndres st�rrelsen p� markeringen

Hvis du vil markere det angivne omr�de "Database" og derefter udvide markeringen med fem r�kker, kan du benytte f�lgende eksempel:

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

14: S�dan markeres et angivet omr�de, s�dan forskydes det, og s�dan �ndres st�rrelsen p� det

Hvis du vil markere et omr�de fire r�kker under og tre kolonner til h�jre for det navngivne omr�de "Database" og medtage to r�kker og �n kolonne mere end i det navngivne omr�de, kan du benytte f�lgende eksempel:

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

15: S�dan markeres foreningsm�ngden af to eller flere angivne omr�der

Hvis du vil markere foreningsm�ngden (dvs. det kombinerede omr�de) af de to navngivne omr�der "Test" og "Sample", kan du benytte f�lgende eksempel:

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

V�r opm�rksom p�, at begge omr�der skal findes i det samme regneark, hvis dette eksempel skal fungere. Du skal ogs� v�re opm�rksom p�, at metoden Union ikke fungerer p� tv�rs af ark. For eksempel fungerer denne linje fint

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

men denne linje

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

returnerer fejlmeddelelsen:

Metoden Foreningsm�ngde for programklassen mislykkedes

16: S�dan markeres f�llesm�ngden af to eller flere angivne omr�der

Hvis du vil markere f�llesm�ngden af de to navngivne omr�der "Test" og "Sample", kan du benytte f�lgende eksempel:

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

V�r opm�rksom p�, at begge omr�der skal findes i det samme regneark, hvis dette eksempel skal fungere.

Eksemplerne 17-21 i denne artikel henviser til f�lgende datas�teksempel. Hvert eksempel angiver det celleomr�de i eksempeldataene, der markeres.

   A1: Name    B1: Sales    C1: Quantity
   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: S�dan markeres den sidste celle i en kolonne med sammenh�ngende data

Hvis du vil markere den sidste celle i en sammenh�ngende kolonne, skal du benytte f�lgende eksempel:

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

N�r denne kode bruges sammen med eksempeltabellen, markeres celle A4.

18: S�dan markeres den tomme celle nederst i en kolonne med sammenh�ngende data

Hvis du vil markere den celle, der findes under et omr�de best�ende af sammenh�ngende celler, skal du benytte f�lgende eksempel:

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

N�r denne kode bruges sammen med eksempeltabellen, markeres celle A5.

19: S�dan markeres et helt omr�de best�ende af sammenh�ngende celler i en kolonne

Hvis du vil markere et omr�de best�ende af sammenh�ngende celler i en kolonne, skal du benytte et af f�lgende eksempler:

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

   eller

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

N�r denne kode bruges sammen med eksempeltabellen, markeres cellerne A1 til og med A4.

20: S�dan markeres et helt omr�de best�ende af ikke-sammenh�ngende celler i en kolonne

Hvis du vil markere et omr�de best�ende af ikke-sammenh�ngende celler, skal du benytte et af f�lgende eksempler:

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

   eller

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

N�r denne kode bruges sammen med eksempeltabellen, markeres cellerne A1 til og med A6.

21: S�dan markeres et rektangul�rt celleomr�de

Hvis du vil markere et rektangul�rt celleomr�de rundt om en celle, skal du benytte metoden CurrentRegion. Det omr�de, der markeres af metoden CurrentRegion, er et omr�de, der er bundet af en hvilken som helst kombination af tomme r�kker og tomme kolonner. Nedenfor er vist et eksempel p�, hvordan du benytter metoden CurrentRegion:

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

Denne kode markerer cellerne A1 til og med C4. Nedenfor er der angivet andre eksempler, du kan bruge til at markere det samme celleomr�de:

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 nogle tilf�lde vil du m�ske markere cellerne A1 til og med C6. I dette eksempel fungerer metoden CurrentRegion ikke p� grund af den tomme linje i r�kke 5. F�lgende eksempler markerer alle cellerne:

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. S�dan markeres flere ikke-sammenh�ngende kolonner af forskellig l�ngde

Hvis du vil markere flere ikke-sammenh�ngende kolonner af forskellig l�ngde, skal du benytte f�lgende eksempeltabel og makroeksempel:

   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 denne kode bruges sammen med eksempeltabellen, markeres cellerne A1:A3 og C1:C6.

BEM�RKNINGER TIL EKSEMPLERNE

Egenskaben ActiveSheet kan normalt udelades, da den er underforst�et, hvis et specifikt ark ikke er navngivet. For eksempel i stedet for
ActiveSheet.Range("D5").Select
kan du bruge:
Range("D5").Select
Egenskaben ActiveWorkbook kan normalt ogs� udelades. Medmindre en specifik projektmappe er navngivet, er den aktive projektmappe underforst�et.
N�r du benytter metoden Application.Goto, skal du medtage objektet Sheets hver gang, hvis du vil benytte to metoder af typen Cells i metoden Range, n�r det angivne omr�de findes i et andet regneark (ikke det aktive regneark). F.eks.:
Application.Goto Sheets("Sheet1").Range( _ Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), _ Sheets("Sheet1").Cells(4, 5)))
I stedet for elementet i anf�rselstegn (f.eks. det navngivne omr�de "Test") kan du ogs� bruge en variabel, hvis v�rdi er en tekststreng. For eksempel i stedet for
ActiveWorkbook.Sheets("Sheet1").Activate
kan du bruge
ActiveWorkbook.Sheets(myVar).Activate
hvor v�rdien for myVar er "Sheet1".

Tilbage til toppen | Send feedback

Referencer

Du kan finde flere oplysninger om, hvordan du bruger eksempelkoden i denne artikel, ved at klikke p� nedenst�ende artikelnummer for at f� vist artiklen i Microsoft Knowledge Base:

290140

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

S�dan k�res eksempelkoden til Office XP-programmerne fra vidensbaseartikler. Artiklen er evt. p� engelsk.

Tilbage til toppen | Send feedback