Töötate praegu ühenduseta, ootame Interneti-ühenduse taasloomist

Kuidas valida lahtreid/valikuid Exceli Visual Basicu protseduuride abil

Office 2003 tugi on lõppenud

Microsoft lõpetas Office 2003 tugiteenuse pakkumise 8. aprillil 2014. Muudatus mõjutas teie tarkvaravärskendusi ja turbesuvandeid. Lugege, mida see teie jaoks tähendab ja kuidas saate kaitset säilitada.

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
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").ActivateActiveSheet.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").ActivateActiveSheet.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").ActivateActiveSheet.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").ActivateRange("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").ActivateRange("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").ActivateActiveSheet.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").SelectSelection.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").SelectSelection.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).ColumnlastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).RowActiveSheet.Range("a1", ActiveSheet.Cells(lastRow, lastCol)).Select				
    -or-				
lastCol = ActiveSheet.Range("a1").End(xlToRight).ColumnlastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).RowActiveSheet.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
OfficeKBHowTo howto külgnevate kuidas Ahenda mittepidev seisvate mittesidusad Mittekülgnevate XL2003 XL2007 XL2010

Hoiatus. See artikkel on masintõlgitud.

Atribuudid

Artikli ID: 291308 – viimati läbi vaadatud: 11/16/2013 22:01:00 – redaktsioon: 2.0

Microsoft Office Excel 2003, Microsoft Office Excel 2007, Microsoft Excel 2010

  • kbautomation kbmacro kbdtacode kbhowto kbprogramming kbmt KB291308 KbMtet
Tagasiside
/html>ocument.createElement('meta');m.name='ms.dqp0';m.content='true';document.getElementsByTagName('head')[0].appendChild(m);" onload="var m=document.createElement('meta');m.name='ms.dqp0';m.content='false';document.getElementsByTagName('head')[0].appendChild(m);" src="http://c1.microsoft.com/c.gif?"> &t=">