Artikli ID: 291308 - Vaadake tooteid, millega see artikkel seostub.
Laienda kõik | Ahenda kõik

Sellel veebilehel

Lisateave

Microsoft pakub näitlikud, ilma garantiita otseseid ega kaudseid. See sisaldab, kuid ei piirdu kaudsete garantiidega seoses kaubandusliku või sobivusega teatud otstarbeks. Eeldame, et olete tuttav demonstreeritava programmeerimiskeelega programmeerimiskeelt ja tööriistad, mis loomiseks ja silumiseks menetlusi. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri talitlust selgitada aga ei muuda nad neid näiteid pakkumiseks ega ehitada menetlusi oma konkreetsete vajaduste rahuldamiseks. Käesoleva artikli näidetes kasutada Visual Basicu meetodite järgmises tabelis loetletud.
   Method             Arguments
   ------------------------------------------
   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
				
Käesoleva artikli näidetes kasutada atribuute järgmises tabelis.
   Property         Use
   ---------------------------------------------------------------------
   ActiveSheet      to specify the active sheet
   ActiveWorkbook   to specify the active workbook
   Columns.Count    to count the number of columns in the specified item
   Rows.Count       to count the number of rows in the specified item
   Selection        to refer to the currently selected range
				

1: Kuidas valida aktiivse töölehe lahtrisse

Aktiivse töölehe lahtrisse D5 valimiseks kasutage ühte järgmistest näidetest:
ActiveSheet.Cells(5, 4).Select
				
- või -
ActiveSheet.Range("D5").Select
				

2: Kuidas valida lahtri muule töölehele samas töövihikus

Sama töövihiku mõne muu töölehe lahtris E6 valimiseks valige üks järgmistest näidetest:
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)
				
   -or-
				
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))
				
Või aktiveerige tööleht ja seejärel kasutage meetodit 1 eespool lahtri valimiseks:
Sheets("Sheet2").Activate
ActiveSheet.Cells(6, 5).Select
				

3: Kuidas valida lahtrit töölehe teises töövihikus

Valige töölehe lahter F7 teises töövihikus, valige kas järgmised näited:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)
				
- või -
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")
				
Või aktiveerige tööleht ja seejärel kasutage meetodit 1 eespool lahtri valimiseks:
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate
ActiveSheet.Cells(7, 6).Select
				

4: Kuidas valida aktiivse töölehe lahtrite vahemik

Valige vahemik C2:D10 aktiivsel töölehel, kasutage mõnda järgmistest näidetest:
ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select
				
ActiveSheet.Range("C2:D10").Select
				
ActiveSheet.Range("C2", "D10").Select
				

5: Sama töövihiku mõne muu töölehe lahtrite vahemiku valimine

Valige vahemik D3:E11 muule töölehele samas töövihikus, kasutage ühte 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 valige vahemik 4 eespool nimetatud meetodi abil:
Sheets("Sheet3").Activate
ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select
				

6: Kuidas valida töölehe lahtrite vahemik teises töövihikus

Valige vahemik töölehel E4:F12 teises töövihikus, kasutage ühte 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 valige vahemik 4 eespool nimetatud meetodi abil:
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate
   ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select
				

7: Kuidas valida aktiivse töölehe nimega vahemikule

Nimega vahemik "Test" aktiivse töölehe valimiseks kasutage ühte järgmistest näidetest:
Range("Test").Select
				
Application.Goto "Test"
				

8: Kuidas valida nimega vahemiku muule töölehele samas töövihikus

Sama töövihiku nimega vahemik "Test" mõne muu töölehe valimiseks valige järgmine näide:
Application.Goto Sheets("Sheet1").Range("Test")
				
Või aktiveerige tööleht ja seejärel kasutage meetodit 7 eespool nimega vahemiku valimiseks:
Sheets("Sheet1").Activate
Range("Test").Select
				

9: Kuidas valida nimega vahemik töölehel teises töövihikus

Nimega vahemik "Test" töölehel valige teise töövihikusse valige järgmine näide:
Application.Goto _
   Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")
				
Või aktiveerige tööleht ja seejärel kasutage meetodit 7 eespool nimega vahemiku valimiseks:
Workbooks("BOOK2.XLS").Sheets("Sheet2").Activate
Range("Test").Select
				

10: Raku suhteline aktiivse lahtri valimine

Valige lahter, mis on viis rida allpool ja neli veergu aktiivses lahtris vasakule, valige järgmine näide:
ActiveCell.Offset(5, -4).Select
				
Valige lahter, mis on kaks rida eespool ja kolm veergu aktiivse lahtri paremal, valige järgmine näide:
ActiveCell.Offset(-2, 3).Select
				
Märkus Tõrge võivad ilmneda, kui proovite Valige lahter, mis on "off töölehe." Esimese näite tagasi viga kui aktiivne lahter on veergudes A kuni D, kuna liigub neli veergu vasakule võtaks aktiivse lahtri sobimatu lahtriaadressi.

11: Kuidas valida lahtri suhtelist teise (mitte aktiivse) lahtri

Valige lahter, mis on viis rida allpool ja nelja veeru lahtrisse C7 paremale, kasutage ühte järgmistest näidetest:
ActiveSheet.Cells(7, 3).Offset(5, 4).Select
				
ActiveSheet.Range("C7").Offset(5, 4).Select
				

12: Valimine lahtrite vahemik Offset määratud vahemik

Valige lahtrid, mis on sama suur kui nimega vahemik "Test", kuid mis on nihutatud neli rida maha ja kolmest veerust paremale, valige järgmine näide:
ActiveSheet.Range("Test").Offset(4, 3).Select
				
Kui nimega vahemik on teise (mitte aktiivse) töölehel, aktiveerida selle töölehe esimene ja seejärel valige vahemiku, kasutades alljärgnevat:
Sheets("Sheet3").Activate
ActiveSheet.Range("Test").Offset(4, 3).Select
				

13: Kuidas valida määratud vahemik ja suuruse valik

Valige vahemik nimega "Andmebaas" ja seejärel laiendab valiku viis rida, saate kasutada järgmises näites:
Range("Database").Select
Selection.Resize(Selection.Rows.Count + 5, _
   Selection.Columns.Count).Select
				

14: Kuidas valida määratud vahemik korvata see ja seejärel suuruse muutmine

Valige vahemik neli rida allpool ja kolme veeruga vahemik nimega "Andmebaas" paremale ja kahes reas ja ühe veeru rohkem kui nimega vahemikule, saate kasutada järgmises näites:
Range("Database").Select
Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, _
   Selection.Columns.Count + 1).Select
				

15: Valimine kahe või Liit määratud vahemike

Saate valida kahe nimega vahemikud "Katse" ja "Proovi" Liidu (s.o kombineeritud ala), valige järgmine näide:
Application.Union(Range("Test"), Range("Sample")).Select
				
Pange tähele, et mõlemas rühmas peab olema selleks näiteks töötada samal töölehel. Pange tähele, et Liidu meetod ei tööta üle lehtede. Näiteks see liin töötab trahvi
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))
				
kuid see rida
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))
				
Tagastab tõrketeate:
Taotlus klassi Liidu meetod nurjus

16: Valimine kahe või enama ristmik määratud vahemike

Saate valida kahe nimega vahemikud "Katse" ja "Proovi" ristmikul, valige järgmine näide:
Application.Intersect(Range("Test"), Range("Sample")).Select
				
Pange tähele, et mõlemas rühmas peab olema selleks näiteks töötada samal töölehel.



Näiteks 17 / 21 käesoleva artikli viitavad andmed alljärgnevate proovi. Igas näites väidab valimi andmeid, et oleks valitud lahtrite vahemik.
   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: Pidev andmete veeru viimase lahtri valimine

Külgnevate veeru viimase lahtri valimiseks kasutage järgmine näide:
ActiveSheet.Range("a1").End(xlDown).Select
				
Selle koodi kasutamisel koos näidistabelit valib lahtri A4.

18: Kuidas valida tühja lahtrisse andmeveergu piirnevad põhjas

Külgnevate lahtrite vahemikku alloleva lahtri valimiseks kasutage järgmine näide:
ActiveSheet.Range("a1").End(xlDown).Offset(1,0).Select
				
Seda koodi kasutatakse näidistabelit, valitakse lahter A5.

19: Kuidas valida terve hulga külgnevate lahtrite veeru

Külgnevate lahtrite vahemikku veeru valimiseks kasutage ühte järgmistest näidetest
ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select
				
   -or-
				
ActiveSheet.Range("a1:" & ActiveSheet.Range("a1"). _
      End(xlDown).Address).Select
				
Seda koodi kasutatakse näidistabelit, valitakse lahtrite A1 kuni A4.

20: Valimine on terve vahemik ning seisvate lahtrite veeru

Seisvate lahtrite vahemiku valimiseks kasutage järgmisi näiteid:
ActiveSheet.Range("a1",ActiveSheet.Range("a65536").End(xlUp)).Select
				
   -or-
				
ActiveSheet.Range("a1:" & ActiveSheet.Range("a65536"). _
   End(xlUp).Address).Select
				
Selle koodi kasutamisel koos näidistabelit valib lahtrite A1 kuni A6.

21: Kuidas ristkülikukujuline?

Ristkülikukujuline lahtrivahemik ümber lahtri valimiseks kasutada CurrentRegion meetodit. CurrentRegion meetodil valitud vahemik on ala, mis tahes kombinatsioon tühjade ridade ja tühjade veergudega. Järgnev on näide sellest, kuidas kasutada CurrentRegion meetodit:
ActiveSheet.Range("a1").CurrentRegion.Select
				
See kood valite lahtrite A1 kuni C4. Teised näited sama vahemiku lahtrite valimiseks on järgmised:
ActiveSheet.Range("a1", _
   ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select
				
   -or-
				
ActiveSheet.Range("a1:" & _
   ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select
				
Mõnel juhul võite valida lahtrite A1 kuni C6. Selles näites CurrentRegion meetod ei tööta tõttu tühi rida rida 5. Järgmised näited Vali 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
				
    -or-
				
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. Kuidas valida mitme seisvate veeru varieeruva pikkusega

Mitme seisvate veeru varieeruva pikkusega valimiseks kasutage järgmisi valimi tabeli ja makro näide:
   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
				
Seda koodi kasutatakse näidistabelit, valitakse rakkude A1:A3 ja C1:C6.

MÄRKMED VÕIMALIKKUSEST

  • ActiveSheet vara saab tavaliselt puudub, sest on piisavalt, kui nimi on aspecific lehel. Näiteks selle asemel
    ActiveSheet.Range("D5").Select
    						
    Võite kasutada:
    Range("D5").Select
    						
  • ActiveWorkbook vara ka tavaliselt ära jätta. Kui teatud workbookis nimega, aktiivne töövihik on piisavalt.
  • Kui kasutate Application.Goto meetodit, kui soovite kasutada kahe rakud meetodite ulatuse meetodi kui määratud vahemik on teise (mitte aktiivse) töölehel, peate kaasama lehed objekti iga kord. Näiteks:
    Application.Goto Sheets("Sheet1").Range( _
          Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), _
          Sheets("Sheet1").Cells(4, 5)))
    					
  • Üksuste jutumärkidesse (nt "Test"-namedrange), saate kasutada muutuja, mille väärtus on tekstistring. Konteksti, selle asemel
    ActiveWorkbook.Sheets("Sheet1").Activate
    						
    Kasutage
    ActiveWorkbook.Sheets(myVar).Activate
    						
    kui minu muutuja väärtus on "Leht1".

Viited


See artikkel proovi kood kasutamise kohta lisateabe saamiseks klõpsake Microsofti teabebaasi artikli kuvamiseks järgmist artiklinumbrit:
290140 Kuidas juhtida Office XP programmide näidiskoodi teabebaasiartiklid

Atribuudid

Artikli ID: 291308 - Viimati läbi vaadatud: 16. november 2013 - Redaktsioon: 2.0
Kehtib järgmise lõigu kohta:
  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
  • Microsoft Excel 2010
Märksõnad: 
kbautomation kbmacro kbdtacode kbhowto kbprogramming kbmt KB291308 KbMtet
Masintõlgitud
NB! Artikkel on tõlgitud Microsofti masintõlketarkvaraga ja seda saab parandada Kogukonnapõhise tõlkeraamistiku (CTF) tehnoloogiaga. Microsoft pakub masintõlgitud, kogukonna järeltöödeldud ja inimtõlgitud artikleid, et anda mitmekeelne juurdepääs kõigile meie teabebaasi artiklitele. Masintõlgitud ja järeltöödeldud artiklites võib olla sõnavara-, süntaksi- ja/või grammatikavigu. Microsoft ei vastuta mingite ebatäpsuste, tõrgete ega kahjude eest, mis on tulenenud sisu valest tõlkest või selle kasutamisest meie klientide poolt. Lisateavet CTF-i kohta leiate aadressilt http://support.microsoft.com/gp/machine-translation-corrections/et.
Artikli ingliskeelse versiooni kuvamiseks klõpsake siin: 291308

Andke tagasisidet

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com