Logi sisse

Select the product you need help with

Exceli lahtrite ja vahemike valimine Visual Basicu protseduuride abil

Artikli ID: 291308 - Vaadake tooteid, millega see artikkel seostub.

Microsoft pakub programmeerimisn�iteid ainult artikli illustreerimiseks ilma igasuguse otsese v�i kaudse garantiita. See h�lmab (kuid mitte ainult) turustatavuse v�i kindlaks otstarbeks sobivusega seotud kaudseid garantiisid. Selles artiklis eeldatakse, et olete demonstreeritava programmeerimiskeelega ning protseduuride loomiseks ja silumiseks kasutatavate t��riistadega tuttav. Microsofti tugitehnikud v�ivad aidata m�ne konkreetse protseduuri funktsiooni selgitada, kuid nad ei muuda neid n�iteid lisafunktsioonide pakkumiseks ega koosta teie konkreetsetele n�uetele vastavaid protseduure. Selles artiklis toodud n�idetes kasutatakse j�rgmises tabelis loetletud Visual Basicu meetodeid.

   Meetod             Argumendid
   ------------------------------------------
   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

Selles artiklis toodud n�idetes kasutatakse j�rgmises tabelis olevaid atribuute.

   Atribuut         kasutamine
   ---------------------------------------------------------------------
   ActiveSheet      aktiivse lehe m��ramine
   ActiveWorkbook   aktiivse t��vihiku m��ramine
   Columns.Count    m��ratud �ksuse veergude loendamine
   Rows.Count       m��ratud �ksuse ridade loendamine
   Selection        hetkel valitud vahemikule viitamine

1. Aktiivse t��lehe lahtri valimine

Lahtri D5 valimiseks aktiivsel t��lehel saate kasutada �ht j�rgmistest n�idetest.

ActiveSheet.Cells(5, 4).Select

v�i

ActiveSheet.Range("D5").Select

2. Lahtri valimine sama t��vihiku teisel t��lehel

Lahtri E6 valimiseks sama t��vihiku teisel t��lehel saate kasutada �ht j�rgmistest n�idetest.

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

   v�i

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

V�i saate aktiveerida t��lehe ja seej�rel kasutada lahtri valimiseks eesolevat meetodit 1.

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

3. Lahtri valimine teise t��vihiku t��lehel

Lahtri F7 valimiseks teise t��vihiku t��lehel saate kasutada �ht j�rgmistest n�idetest.

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

v�i

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

V�i saate aktiveerida t��lehe ja seej�rel kasutada lahtri valimiseks eesolevat meetodit 1.

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

4. Aktiivse t��lehe lahtrite vahemiku valimine

Vahemiku C2:D10 valimiseks aktiivsel t��lehel saate kasutada �ht j�rgmistest n�idetest.

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

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

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

5. Lahtrite vahemiku valimine sama t��vihiku teisel t��lehel

Vahemiku D3:E11 valimiseks sama t��vihiku teisel t��lehel saate kasutada �ht j�rgmistest n�idetest.

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

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

V�i saate aktiveerida t��lehe ja seej�rel kasutada vahemiku valimiseks eesolevat meetodit 4.

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

6. Lahtrite vahemiku valimine teise t��vihiku t��lehel

Vahemiku E4:F12 valimiseks teise t��vihiku t��lehel saate kasutada �ht j�rgmistest n�idetest.

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

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

V�i saate aktiveerida t��lehe ja seej�rel kasutada vahemiku valimiseks eesolevat meetodit 4.

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

7: Aktiivse t��lehe nimega vahemiku valimine

Test nimega vahemiku valimiseks aktiivsel t��lehel saate kasutada �ht j�rgmistest n�idetest.

Range("Test").Select

Application.Goto "Test"

8. Nimega vahemiku valimine sama t��vihiku teisel t��lehel

Vahemiku nimega Test valimiseks sama t��vihiku teisel t��lehel saate kasutada �ht j�rgmistest n�idetest.

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

V�i saate aktiveerida t��lehe ja seej�rel kasutada nimega vahemiku valimiseks eesolevat meetodit 7.

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

9. Nimega vahemiku valimine teise t��vihiku t��lehel

Test nimega vahemiku valimiseks teise t��vihiku t��lehel saate kasutada �ht j�rgmistest n�idetest.

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

V�i saate aktiveerida t��lehe ja seej�rel kasutada nimega vahemiku valimiseks eesolevat meetodit 7.

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

10. Aktiivse lahtriga seonduva lahtri valimine

Aktiivsest lahtrist viis rida all ja neli veergu vasakul oleva lahtri valimiseks saate kasutada �ht j�rgmistest n�idetest.

ActiveCell.Offset(5, -4).Select

Aktiivsest lahtrist kaks rida �leval ja kolm veergu paremal asuva lahtri valimiseks saate kasutada �ht j�rgmistest n�idetest.

ActiveCell.Offset(-2, 3).Select

M�rkus. Kui proovite valida lahtri, mis on t��lehelt v�ljas, tekib t�rge. Esimene �leval toodud n�ide tagastab t�rke, kui aktiivne lahter asub veergudes A kuni D, kuna nelja veeru v�rra vasakule liikumine viiks aktiivse lahtri valele lahtri aadressile.

11. Teise (mitteaktiivse) lahtriga seonduva lahtri valimine

Lahtrist C7 viis rida all ja neli veergu paremal oleva lahtri valimiseks saate kasutada �ht j�rgmistest n�idetest.

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

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

12. M��ratud vahemikust nihkes olevate lahtrite vahemiku valimine

Lahtrite vahemiku valimiseks, mis on sama suurus, kui vahemik nimega Test, kuid neli rida alla ja kolm veergu paremale nihutatud, saate kasutada �ht j�rgmistest n�idetest.

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

Kui nimega vahemik on teisel (mitteaktiivsel) t��lehel, aktiveerige esmalt t��leht ja seej�rel valige vahemik, kasutades j�rgmist n�idet.

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

13. M��ratud vahemiku valimine ja valiku suuruse muutmine

Vahemiku nimega Andmebaas valimiseks ja seej�rel valiku laiendamiseks viie rea kaupa saate kasutada j�rgmist n�idet.

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

14. M��ratud vahemiku valimine, selle nihutamine ja seej�rel selle suuruse muutmine

Vahemikust nimega Andmebaas neli rida all ja kolm veergu paremal oleva vahemiku valimiseks ja nimega vahemikust kahe rea ja �he veeru enam kaasamiseks saate kasutada �ht j�rgmistest n�idetest.

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

15. Kahe v�i enama m��ratud vahemiku �hendi valimine

Kahe nimega vahemiku Test ja N�idis �hendi (mis on kombineeritud ala) valimiseks saate kasutada j�rgmist n�idet.

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

Pange t�hele, et m�lemad vahemikud peavad selle n�ite toimimiseks olema samal t��lehel. P��rake t�helepanu ka sellele, et meetod Agregaat ei toimi eri lehtede vahel. N�iteks toimib h�sti j�rgmine rida.

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

kuid see rida

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

tagastab j�rgmise t�rketeate.

Rakenduse �hendusmeetod nurjus.

16. Kahe v�i enama m��ratud vahemiku �hisosa valimine

Kahe nimega vahemiku Test ja N�idis �hisosa valimiseks saate kasutada j�rgmist n�idet.

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

Pange t�hele, et m�lemad vahemikud peavad selle n�ite toimimiseks olema samal t��lehel.

K�esolevas artiklis toodud n�ited 17?21 viitavad j�rgmisetele andmete n�idiskomplektidele. Igas n�ites on toodud valitavate lahtrite vahemik n�idisandmetes.

   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. K�lgneva andmeveeru viimase lahtri valimine

K�lgneva veeru viimase lahtri valimiseks kasutage j�rgmist n�idet.

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

Kui seda koodi kasutatakse n�idistabeliga, valitakse lahter A4.

18. K�lgneva andmeveeru all oleva t�hja lahtri valimine

K�lgnevate lahtrite vahemiku all oleva lahtri valimiseks kasutage j�rgmist n�idet.

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

Kui seda koodi kasutatakse n�idistabeliga, valitakse lahter A5.

19. Veeru kogu k�lgnevate lahtrite vahemiku valimine

Veeru k�lgnevate lahtrite vahemiku valimiseks kasutage �ht j�rgmistest n�idetest.

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

   v�i

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

Kui seda koodi kasutatakse n�idistabeliga, valitakse lahtrid A1 kuni A4.

20. Veeru kogu mittek�lgnevate lahtrite vahemiku valimine

Veeru mittek�lgnevate lahtrite vahemiku valimiseks kasutage �ht j�rgmistest n�idetest.

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

   v�i

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

Kui seda koodi kasutatakse koos n�idistabeliga, valib see lahtrid A1 kuni A6.

21. Lahtrite ristk�likukujulise vahemiku valimine

Lahtrit �mbritseva lahtrite ristk�likukujulise vahemiku valimiseks kasutage meetodit CurrentRegion. Meetodi CurrentRegion valitud vahemik on piiritletud mistahes t�hjade ridade ja veergude kombinatsiooniga. J�rgnev on n�ide meetodi CurrentRegion kasutamise kohta.

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

See kood valib lahtrid A1 kuni C4. J�rgmiselt on toodud muud n�ited sama lahtrivahemiku valimiseks.

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

   v�i

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

M�nedel juhtudel v�ite soovida valida lahtreid A1 kuni C6. Selles n�ites meetod CurrentRegion ei toimi t�hja rea t�ttu 5. real. J�rgmiste n�idete abil valitakse k�ik lahtrid.

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

    v�i

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. Mitme eri pikkusega mittek�lgnevate veergude valimine

Mitme eri pikkusega mittek�lgneva veeru valimiseks kasutage j�rgmist n�idistabelit ja makro n�idet.

   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

Kui seda koodi kasutatakse n�idistabeliga, valitakse lahtrid A1:A3 ja C1:C6.

M�RKUSED N�IDETE KOHTA

Atribuudi ActiveSheet saab enamasti ka v�lja j�tta, kuna seda rakendatakse siis, kui teatud lehte pole nimetatud. N�iteks j�rgmise asemel
ActiveSheet.Range("D5").Select
saate kasutada j�rgmist.
Range("D5").Select
Atribuudi ActiveWorkbook saab tavaliselt samuti v�lja j�tta. Juhul kui teatud t��vihik pole nimetatud, rakendatakse aktiivset t��vihikut.
Kui kasutate meetodit Application.Goto, soovite kasutada kaht meetodit Cells meetodi Range raames, kui m��ratud vahemik on teisel (mitteaktiivsel) t��lehel, peate iga kord kaasama objekti Sheets. N�iteks.
Application.Goto Sheets("Sheet1").Range( _ Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), _ Sheets("Sheet1").Cells(4, 5)))
Jutum�rkides elementide (nt nimega vahemik Test) puhul saate kasutada ka muutujat, mille v��rtuseks on tekstistring. N�iteks j�rgmise asemel
ActiveWorkbook.Sheets("Sheet1").Activate
saate kasutada j�rgmist.
ActiveWorkbook.Sheets(myVar).Activate
kus minu muutuja myVar v��rtus on Sheet1.

Tagasi algusse | Andke tagasisidet

Viited

Lisateabe saamiseks n�idiskoodi kasutamise kohta selles artiklis kl�psake artikli kuvamiseks Microsofti teabebaasis j�rgmisel artiklinumbril.

290140

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

Office XP programmide n�idiskoodi k�itamine teabebaasi artiklitest (v�ib olla inglise keeles)

Tagasi algusse | Andke tagasisidet

M�rkus. See artikkel on otse Microsofti tugiorganisatsioonist loodud artikkel ?FAST PUBLISH? (Kiiravaldamine). Selles sisalduv teave edastatakse probleemide ilmnemisel olemasoleval kujul. Kiiresti k�ttesaadavaks muutmise t�ttu v�ib materjalides esineda tr�kivigu ja neid v�idakse mis tahes ajal ette teatamata parandada. Muude asjaolude korral vaadake kasutustingimusi

(http://go.microsoft.com/fwlink/?LinkId=151500)

Tagasi algusse | Andke tagasisidet