Šiuo metu esate neprisijungę, laukiama, kol iš naujo prisijungsite prie interneto

Jūsų naršyklė nepalaikoma

Kad galėtumėte naudotis svetaine, turite atnaujinti naršyklę.

Įdiekite naujausią „Internet Explorer“ versiją

Kaip pasirinkti langelių/diapazonai naudojant Visual Basic procedūros programoje "Excel"

Nutrauktas „Office 2003“ palaikymas

Nuo 2014 m. balandžio 8 d. „Microsoft“ nutraukė „Office 2003“ palaikymą. Tai paveikė programinės įrangos naujinimus ir saugą. Sužinokite, ką tai reiškia jums ir kaip užtikrinti kompiuterio saugą.

SVARBU: šis straipsnis išverstas naudojant „Microsoft“ mašininio vertimo programinę įrangą ir gali būti pataisytas naudojant „Community Translation Framework“ (CTF) technologiją. „Microsoft“ siūlo mašinos išverstus ir po to bendruomenės suredaguotus straipsnius, taip pat žmogaus išverstus straipsnius siekdama suteikti prieigą prie visų savo žinių bazės straipsnių daugeliu kalbų. Mašinos išverstuose ir vėliau paredaguotuose straipsniuose gali būti žodyno, sintaksės ir / arba gramatikos klaidų. „Microsoft“ neatsako už jokius netikslumus, klaidas arba žalą, patirtą dėl neteisingo turinio vertimo arba mūsų klientų naudojimosi juo. Daugiau apie CTF žr. http://support.microsoft.com/gp/machine-translation-corrections.

Spustelėkite čia, norėdami pamatyti šio straipsnio versiją anglų kalba: 291308
Daugiau informacijos
Microsoft teikia programavimo pavyzdžiai tik, be aiškių ar numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas, PERKAMUMO ar tinkamumo konkrečiam tikslui. Šiame straipsnyje reiškia, kad esate susipažinęs su programavimo kalba, kuri yra įrodoma ir su priemonėmis, kurios yra naudojamos kurti ir derinti procedūras. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami tam tikros procedūros funkcinę galimybę, tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras. Šiame straipsnyje pavyzdžių naudokite Visual Basic metodų šioje lentelėje.
   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				
Šiame straipsnyje pavyzdžiuose naudojama ypatybes šioje lentelėje.
   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: Kaip pasirinkti langelį, esantį aktyvaus darbalapio

Pasirinkite langelio D5 aktyvaus darbalapio, galite naudoti bet kurią iš šių pavyzdžių:
ActiveSheet.Cells(5, 4).Select				
- ar -
ActiveSheet.Range("D5").Select				

2: Kaip pasirinkti langelį, esantį kitoje darbalapio toje pačioje darbaknygėje

Jei norite pasirinkti langelyje E6 kitame darbalapyje toje pačioje darbaknygėje, galite naudoti bet kurią iš šių pavyzdžių:
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)				
   -or-				
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))				
Arba, galite aktyvinti darbalapyje ir tada naudokite metodą 1 punkte pažymėkite langelį:
Sheets("Sheet2").ActivateActiveSheet.Cells(6, 5).Select				

3: Kaip pasirinkti langelį darbalapyje kitoje darbaknygėje

Norėdami pasirinkti darbalapio langelį F7 į kitą darbaknygę, galite naudoti bet kurią iš šių pavyzdžių:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)				
- ar -
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")				
Arba, galite aktyvinti darbalapyje ir tada naudokite metodą 1 punkte pažymėkite langelį:
Workbooks("BOOK2.XLS").Sheets("Sheet1").ActivateActiveSheet.Cells(7, 6).Select				

4: Kaip pasirinkti aktyvaus darbalapio langelių diapazoną

Kad pažymėtumėte diapazoną, C2:D10 aktyvaus darbalapio, galite bet kuriuo iš šių pavyzdžių:
ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select				
ActiveSheet.Range("C2:D10").Select				
ActiveSheet.Range("C2", "D10").Select				

5: Kaip pasirinkti langelių diapazoną kitame darbalapyje toje pačioje darbaknygėje

Kad pažymėtumėte diapazoną, D3:E11 kitame darbalapyje toje pačioje darbaknygėje, galite naudoti bet kurią iš šių pavyzdžių:
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")				
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")				
Arba, galite çjungti darbalapio, ir tada naudoti 4 aukščiau metodas pasirinkite diapazoną:
Sheets("Sheet3").ActivateActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select				

6: Kaip pasirinkti langelių diapazoną darbalapyje kitoje darbaknygėje

Kad pažymėtumėte diapazoną, E4:F12 į darbalapį į kitą darbaknygę, galite naudoti bet kurią iš šių pavyzdžių:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")				
Application.Goto _      Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12")				
Arba, galite çjungti darbalapio, ir tada naudoti 4 aukščiau metodas pasirinkite diapazoną:
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate   ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select				

7: Kaip pasirinkti pavadinto diapazono aktyvaus darbalapio

Pasirinkite diapazoną pavadinimu "Testas", aktyvaus darbalapio, galite naudoti bet kurią iš šių pavyzdžių:
Range("Test").Select				
Application.Goto "Test"				

8: Kaip pasirinkti pavadinto diapazono kitame darbalapyje toje pačioje darbaknygėje

Pasirinkite diapazoną pavadinimu "Testas", kitame darbalapyje toje pačioje darbaknygėje, galite naudoti toliau pateiktame pavyzdyje:
Application.Goto Sheets("Sheet1").Range("Test")				
Arba, galite çjungti darbalapio, ir tada naudokite metodą pirmiau 7 pasirinkite diapazoną pavadinimu:
Sheets("Sheet1").ActivateRange("Test").Select				

9: Kaip pasirinkti pavadintą diapazoną darbalapyje kitoje darbaknygėje

Pasirinkite diapazoną pavadinimu "Testas", darbalapyje į kitą darbaknygę, galite naudoti toliau pateiktame pavyzdyje:
Application.Goto _   Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")				
Arba, galite çjungti darbalapio, ir tada naudokite metodą pirmiau 7 pasirinkite diapazoną pavadinimu:
Workbooks("BOOK2.XLS").Sheets("Sheet2").ActivateRange("Test").Select				

10: Kaip pasirinkti langelio Santykinis aktyvų langelį

Norėdami pažymėti langelį, kuriame yra penkios eilutės žemiau ir keturi stulpeliai į kairę nuo aktyvaus langelio, galite naudoti toliau pateiktame pavyzdyje:
ActiveCell.Offset(5, -4).Select				
Norėdami pažymėti langelį, kuriame yra dvi eilutės aukščiau ir trys stulpeliai į dešinę nuo aktyvaus langelio, galite naudoti toliau pateiktame pavyzdyje:
ActiveCell.Offset(-2, 3).Select				
Pastaba. Klaida bus įvykti, jei bandote pažymėti langelį, kuriame yra "ne darbo." Pirmoji pavyzdyje grąžina klaidos jei aktyvus langelis yra stulpelius nuo A iki D, nes juda keturių stulpelių kairėje būtų imtis aktyvaus langelio neleistinas langelis adresu.

11: Kaip pasirinkti langelio Santykinis į kitą (ne aktyviai) ląstelių

Jei norite pažymėti langelį, kuriame yra penkios eilutės žemiau ir keturi stulpeliai į dešinę nuo langelį C7, galite naudoti bet kurią iš šių pavyzdžių:
ActiveSheet.Cells(7, 3).Offset(5, 4).Select				
ActiveSheet.Range("C7").Offset(5, 4).Select				

12: Kaip pasirinkti langelių diapazoną kompensuoti iš nurodyto diapazono

Pažymėkite diapazoną langelių, yra tokio pat dydžio kaip pavadinto diapazono "Test" bet tai pasikeitė keturių eilučių žemyn ir trys stulpeliai į dešinę, galite naudoti toliau pateiktame pavyzdyje:
ActiveSheet.Range("Test").Offset(4, 3).Select				
Jeigu pavadintas diapazonas yra kitoje (ne aktyviai) darbalapio, aktyvinti darbalapio pirmą kartą, ir pažymėti diapazoną, naudojant šį pavyzdį:
Sheets("Sheet3").ActivateActiveSheet.Range("Test").Offset(4, 3).Select				

13: Kaip pasirinkti nurodytą diapazoną ir keisti pasirinktą

Pasirinkite diapazoną pavadinimu "Duomenų bazė" ir tada išplėsti pažymėtą sritį iš penkių eilučių, galite naudoti toliau pateiktame pavyzdyje:
Range("Database").SelectSelection.Resize(Selection.Rows.Count + 5, _   Selection.Columns.Count).Select				

14: Kaip pasirinkti nurodytą diapazoną, kompensuoti tai, ir tada keisti jo dydį

Pasirinkite diapazoną keturių eilučių žemiau ir trys stulpeliai į dešinę nuo pavadintas diapazonas "Duomenų bazė" ir dvi eilutės ir stulpelio daugiau nei pavadinto diapazono, galite naudoti toliau pateiktame pavyzdyje:
Range("Database").SelectSelection.Offset(4, 3).Resize(Selection.Rows.Count + 2, _   Selection.Columns.Count + 1).Select				

15: Kaip pasirinkti Sąjungos dviejų arba daugiau nurodytų diapazonų

Pasirinkite Sąjungos (t. y. Kombinuotosios vietovės) iš dviejų pavadinti diapazonai "Bandymas" ir "Pavyzdys", galite naudoti toliau pateiktame pavyzdyje:
Application.Union(Range("Test"), Range("Sample")).Select				
Atkreipkite dėmesį, kad abi turi būti tame pačiame darbalapyje šiame pavyzdyje dirbti. Taip pat Atkreipkite dėmesį, kad Sąjungos metodo neveikia per lapus. Pavyzdžiui, šioje eilutėje veikia puikiai
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))				
bet šios eilutės
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))				
grąžina klaidos pranešimą:
Sąjungos metodo taikymas klasės nepavyko

16: Kaip pasirinkti dviejų ar kelių sankirtoje nurodyta diapazonai

Pasirinkite, kuriame du pavadinti diapazonai "Bandymas" ir "Pavyzdys", galite naudoti toliau pateiktame pavyzdyje:
Application.Intersect(Range("Test"), Range("Sample")).Select				
Atkreipkite dėmesį, kad abi turi būti tame pačiame darbalapyje šiame pavyzdyje dirbti.



Pavyzdžiai 17-21 šiame straipsnyje nurodyti šių pavyzdžių rinkinys duomenų. Kiekvienas pavyzdys nurodo duomenų pavyzdžius, bus atrinkti langelių diapazoną.
   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: Kaip pasirinkti paskutiniame langelyje vientisą duomenų stulpelį

Pasirinkite paskutinį langelį į vientisą stulpelį, naudokite toliau pateiktame pavyzdyje:
ActiveSheet.Range("a1").End(xlDown).Select				
Šis kodas naudojamas su lentelės pavyzdys, A4 langelyje bus pažymėti.

18: Kaip pasirinkti tuščią langelį apačioje vientisą duomenų stulpelį

Pažymėkite langelį žemiau gretimus langelių diapazoną, naudokite toliau pateiktame pavyzdyje:
ActiveSheet.Range("a1").End(xlDown).Offset(1,0).Select				
Šis kodas naudojamas su lentelės pavyzdys, langelio A5 bus pažymėti.

19: Kaip pasirinkti yra visą diapazonas stulpelyje

Pasirinkite vientisas langelių stulpelio, naudokite vieną iš šių pavyzdžių:
ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select				
   -or-				
ActiveSheet.Range("a1:" & ActiveSheet.Range("a1"). _      End(xlDown).Address).Select				
Šis kodas naudojamas su lentelės pavyzdys, langelius nuo A1 iki A4 bus pažymėti.

20: Kaip pasirinkti yra visą asortimentą, negretimas langelius stulpelyje

Norėdami pasirinkti ne gretimus langelių diapazoną, naudokite vieną iš šių pavyzdžių:
ActiveSheet.Range("a1",ActiveSheet.Range("a65536").End(xlUp)).Select				
   -or-				
ActiveSheet.Range("a1:" & ActiveSheet.Range("a65536"). _   End(xlUp).Address).Select				
Kai šis kodas naudojamas su lentelės pavyzdys, tai pasirinkite langelius nuo A1 iki A6.

21: Kaip stačiakampė langelių diapazoną

Siekiant atrinkti stačiakampio formos įvairių ląstelių aplink langelį, naudokite CurrentRegion metodą. Intervalas pasirinktas CurrentRegion metodu yra bet koks derinys tuščių eilučių ir stulpelių, rajone. Taip yra pavyzdys, kaip naudoti CurrentRegion metodą:
ActiveSheet.Range("a1").CurrentRegion.Select				
Šis kodas pasirinkite langelius nuo A1 iki C4. Kiti pavyzdžiai pasirinkti pačią langelių diapazonas yra išvardytos žemiau:
ActiveSheet.Range("a1", _   ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select				
   -or-				
ActiveSheet.Range("a1:" & _   ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select				
Kai kuriais atvejais, galite pasirinkti langelius nuo A1 iki C6. Šiame pavyzdyje CurrentRegion metodas neveiks nes tuščią eilutę eilutės 5. Šie pavyzdžiai bus pažymėti visus langelius:
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. Kaip pažymėti kelis ne gretimus stulpelius įvairaus ilgio

Norėdami pažymėti kelis ne gretimus stulpelius ilgesnius ar trumpesnius, naudoti mėginio lentelės ir makro pavyzdys:
   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				
Šis kodas naudojamas su lentelės pavyzdys, ląstelių A1:A3 ir C1:C6 bus pažymėti.

PASTABOS DĖL PAVYZDŽIŲ

  • ActiveSheet turtas gali paprastai būti praleidžiami, nes tai yra numanomas jei Jeinesąžiningos lapas, nėra jiems. Pavyzdžiui, o ne iš
    ActiveSheet.Range("D5").Select						
    galite naudoti:
    Range("D5").Select						
  • ActiveWorkbook turtas paprastai taip pat gali būti praleista. Jeigu konkrečių workbookis pavadintas, aktyvios darbaknygės yra numanomas.
  • Naudojant Application.Goto metodą, jei norite naudoti du langelius padaliniais intervalo metodas, kai ribos yra nuo kitos (ne aktyviai) darbalapį, turite įtraukti objekto lapus kiekvieną kartą. Pvz.:
    Application.Goto Sheets("Sheet1").Range( _      Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), _      Sheets("Sheet1").Cells(4, 5)))					
  • Už bet kokį daiktą į kabutes (pvz., su namedrange "Test"), taip pat galite naudoti kintamojo, kurių vertė yra teksto eilutė. Kad, o ne
    ActiveWorkbook.Sheets("Sheet1").Activate						
    galite naudoti
    ActiveWorkbook.Sheets(myVar).Activate						
    kai Mano_kintamasis reikšmė "Lapas1".
Nuorodos

Norėdami gauti daugiau informacijos apie tai, kaip naudoti mėginio kodą šiame straipsnyje, spustelėkite toliau straipsnio numerį ir peržiūrėkite straipsnį Microsoft žinių bazėje:
290140 Kaip paleisti Office XP programų kodo pavyzdys iš žinių bazės straipsnių
OfficeKBHowTo kaip vientisą kaip nesusijusį negretimas Negretimi pažymėti ne gretimus XL2003 XL2007 XL2010

Įspėjimas: šis straipsnis išverstas automatiškai

Savybės

Straipsnio ID: 291308 – Paskutinė peržiūra: 11/16/2013 23:53:00 – Peržiūra: 2.0

  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
  • Microsoft Excel 2010
  • kbautomation kbmacro kbdtacode kbhowto kbprogramming kbmt KB291308 KbMtlt
Atsiliepimai
ft.com/c.gif?DI=4050&did=1&t=">cript type='text/javascript' src='" + (window.location.protocol) + "//c.microsoft.com/ms.js'><\/script>"); amp;t=">rotocol) + "//c.microsoft.com/ms.js'><\/script>");