Как да изберете клетки/диапазони с помощта на Visual Basic процедури в Excel

Преводи на статии Преводи на статии
ID на статията: 291308 - Преглед на продукти, за които се отнася тази статия.
Разгъване на всички | Сгъване на всички

На тази страница

Допълнителна информация

Microsoft предоставя примери само за илюстративни цели без гаранция или подразбиращи се гаранции. Това включва, но не се ограничава до, косвени гаранции за комерсиалност или пригодност за определена цел. Тази статия се предполага, че сте запознати с демонстрирания език за програмиране и инструментите, които се използват за създаване и да трасирате процедури. Microsoft разширена поддръжка инженери могат да помогнат обяснение на функциите на конкретна процедура, но няма да модифицират тези примери с цел предоставяне на допълнителна функционалност или изграждане на процедури, които да отговарят на вашите специфични изисквания. Примерите в тази статия използва Visual Basic методите, изброени в следващата таблица.
   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
				
Примерите в тази статия използва свойствата в следната таблица.
   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: как да изберете клетка в активния работен лист

За да изберете клетка D5 в активния работен лист, можете да използвате някоя Препоръчано от следните примери:
ActiveSheet.Cells(5, 4).Select
				
- или -
ActiveSheet.Range("D5").Select
				

2: как да изберете клетка в друг работен лист в същата работна книга

За да изберете клетка E6 в друг лист Препоръчано от същата работна книга, можете да използвате някоя Препоръчано от следните примери:
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)
				
   -or-
				
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))
				
Или, можете да активирате работния лист и след това използвайте метод 1 по-горе, за да изберете клетката:
Sheets("Sheet2").Activate
ActiveSheet.Cells(6, 5).Select
				

3: как да изберете клетка в работен лист в друга работна книга

За да изберете клетка F7 в работен лист в друга работна книга, можете да използвате някоя Препоръчано от следните примери:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)
				
- или -
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")
				
Или, можете да активирате работния лист и след това използвайте метод 1 по-горе, за да изберете клетката:
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate
ActiveSheet.Cells(7, 6).Select
				

4: как да изберете диапазон Препоръчано от клетки в активния работен лист

За да изберете диапазона C2:D10 в активния работен лист, можете да използвате някой Препоръчано от следните примери:
ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select
				
ActiveSheet.Range("C2:D10").Select
				
ActiveSheet.Range("C2", "D10").Select
				

5: как да изберете диапазон Препоръчано от клетки в друг работен лист в същата работна книга

За да изберете диапазона D3:E11 в друг работен лист в същата работна книга, можете да използвате някоя Препоръчано от следните примери:
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")
				
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")
				
Или, можете да активирате работния лист и след това използвайте метод 4 по-горе, за да изберете диапазона:
Sheets("Sheet3").Activate
ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select
				

6: как да изберете диапазон Препоръчано от клетки в работен лист в друга работна книга

За да изберете диапазона E4:F12 в работен лист в друга работна книга, можете да използвате някоя Препоръчано от следните примери:
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")
				
Application.Goto _
      Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12")
				
Или, можете да активирате работния лист и след това използвайте метод 4 по-горе, за да изберете диапазона:
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate
   ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select
				

7: как да изберете наименован диапазон в активния работен лист

За да изберете наименувания диапазон "Тест" в активния работен лист, можете да използвате някоя Препоръчано от следните примери:
Range("Test").Select
				
Application.Goto "Test"
				

8: как да изберете наименован диапазон в друг работен лист в същата работна книга

За да изберете наименувания диапазон "Тест" в друг работен лист в същата работна книга, можете да използвате следния пример:
Application.Goto Sheets("Sheet1").Range("Test")
				
Или, можете да активирате работния лист и след това използвайте метод 7 по-горе, за да изберете наименувания диапазон:
Sheets("Sheet1").Activate
Range("Test").Select
				

9: как да изберете наименован диапазон в работен лист в друга работна книга

За да изберете наименувания диапазон "Тест" в работен лист в друга работна книга, можете да използвате следния пример:
Application.Goto _
   Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")
				
Или, можете да активирате работния лист и след това използвайте метод 7 по-горе, за да изберете наименувания диапазон:
Workbooks("BOOK2.XLS").Sheets("Sheet2").Activate
Range("Test").Select
				

10: как да изберете клетки спрямо активната клетка

За да изберете клетка, която е пет реда по-долу и четири колони отляво на активната клетка, можете да използвате следния пример:
ActiveCell.Offset(5, -4).Select
				
За да изберете клетка, която е по-горе два реда и три колони вдясно Препоръчано от активната клетка, можете да използвате следния пример:
ActiveCell.Offset(-2, 3).Select
				
Бележка Ще възникне грешка, ако опитате да изберете клетка, която е "извън работния лист." Първият пример, показан по-горе ще върне грешка ако активната клетка е в колоните Препоръчано от A до D, тъй като се движат четири колони Препоръчано от лявата страна ще вземе активната клетка към невалидна клетка адрес.

11: как да изберете клетка роднина в друга (не активен) клетка

За да изберете клетка, която е пет реда по-долу и четири колони вдясно Препоръчано от клетка C7, можете да използвате някоя Препоръчано от следните примери:
ActiveSheet.Cells(7, 3).Offset(5, 4).Select
				
ActiveSheet.Range("C7").Offset(5, 4).Select
				

12: как да изберете диапазон Препоръчано от клетки отместване Препоръчано от зададен диапазон

За да изберете диапазон Препоръчано от клетки, който е със същия размер като наименувания диапазон "Тест", но това е изместен чети надолу и три колони вдясно, можете да използвате следния пример:
ActiveSheet.Range("Test").Offset(4, 3).Select
				
Ако наименувания диапазон е на друг (не активен) лист, активирате този работен лист първо и след това изберете диапазона, използвайки следния пример:
Sheets("Sheet3").Activate
ActiveSheet.Range("Test").Offset(4, 3).Select
				

13: как да изберете определен диапазон и преоразмеряване на селекцията

За да изберете наименувания диапазон "База данни" и след това разширяване на селекцията Препоръчано от пет реда, можете да използвате следния пример:
Range("Database").Select
Selection.Resize(Selection.Rows.Count + 5, _
   Selection.Columns.Count).Select
				

14: как да изберете определен диапазон, я компенсира и след това го преоразмерите

За да изберете диапазон четири редове Ботом и три колони вдясно Препоръчано от наименувания диапазон "База данни" и включват два реда и една колона Още действия Препоръчано от наименувания диапазон, можете да използвате следния пример:
Range("Database").Select
Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, _
   Selection.Columns.Count + 1).Select
				

15: как да изберете на съюз на две или Още действия определени диапазони

За да изберете на Съюза (тоест, общата площ) на две наименувани диапазони "Тест" и "Проба", можете да използвате следния пример:
Application.Union(Range("Test"), Range("Sample")).Select
				
Имайте предвид, че двете диапазони трябва да бъде на същия работен лист за този пример да работи. Отбележете също, че методът на Съюза не работи в листа. Например тази Ред "До" работи добре
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))
				
но този Ред "До"
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))
				
Връща съобщението за грешка:
Съюза метод за приложение клас е неуспешно

16: как да изберете точката на пресичане на две или Още действия определени диапазони

За да изберете точката на пресичане на две наименувани диапазони "Тест" и "Проба", можете да използвате следния пример:
Application.Intersect(Range("Test"), Range("Sample")).Select
				
Имайте предвид, че двете диапазони трябва да бъде на същия работен лист за този пример да работи.



Примери 17-21 в тази статия се отнася за следния примерен набор Препоръчано от събиране на данни. Всеки пример се посочва диапазон Препоръчано от клетки в примерните събиране на данни, които ще бъдат избрани.
   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: как да изберете последната клетка на колона Препоръчано от съседни събиране на данни

За да изберете последната клетка в съседни колони, използвайте следния пример:
ActiveSheet.Range("a1").End(xlDown).Select
				
Когато този код се използва с масичката за пробата, клетка A4 ще бъде избран.

18: как да изберете празна клетка в долната част на колона на съседни събиране на данни

За да изберете клетка под диапазон Препоръчано от съседни клетки, използвайте следния пример:
ActiveSheet.Range("a1").End(xlDown).Offset(1,0).Select
				
Когато този код се използва с масичката за пробата, клетката A5 ще бъде избран.

19: как да изберете целия диапазон Препоръчано от съседни клетки в колона

За да изберете диапазон Препоръчано от съседни клетки в колона, използвайте един Препоръчано от следните примери:
ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select
				
   -or-
				
ActiveSheet.Range("a1:" & ActiveSheet.Range("a1"). _
      End(xlDown).Address).Select
				
Когато този код се използва с масичката за пробата, клетките Препоръчано от A1 до А4 ще бъде избран.

20: как да изберете целия диапазон Препоръчано от граничещи клетки в колона

За да изберете диапазон Препоръчано от клетки, които са граничещи, използвайте един Препоръчано от следните примери:
ActiveSheet.Range("a1",ActiveSheet.Range("a65536").End(xlUp)).Select
				
   -or-
				
ActiveSheet.Range("a1:" & ActiveSheet.Range("a65536"). _
   End(xlUp).Address).Select
				
Когато този код се използва с масичката за пробата, тя ще избере клетките Препоръчано от A1 до A6.

21: как да изберете правоъгълни диапазон Препоръчано от клетки

За да изберете правоъгълен диапазон Препоръчано от клетки около клетка, използвайте метода CurrentRegion . Диапазонът на избрани по метода на CurrentRegion е зона, ограничена Препоръчано от всяка комбинация Препоръчано от празни редове и празни колони. По-долу е пример за това как да използвате CurrentRegion метод:
ActiveSheet.Range("a1").CurrentRegion.Select
				
Този код ще изберете клетките Препоръчано от A1 до C4. Други примери, за да изберете един и същ диапазон Препоръчано от клетки са изброени по-долу:
ActiveSheet.Range("a1", _
   ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select
				
   -or-
				
ActiveSheet.Range("a1:" & _
   ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select
				
В някои случаи може да искате да изберете клетките Препоръчано от A1 до C6. В този пример метода на CurrentRegion няма да работи поради празен Позиция на елемента в списъка 5. Следните примери ще изберете всички клетки:
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. Как да изберете няколко не съседни колони с различна дължина

За да изберете няколко не съседни колони с различна дължина, използвайте следния примерен таблица и макро пример:
   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
				
Когато този код се използва с масичката за пробата, ще бъдат избрани клетки a1: a3 и C1:C6.

БЕЛЕЖКИ НА ПРИМЕРИ

  • Свойството на ActiveSheet обикновено може да се пропусне, защото то се подразбира, ако aspecific лист не е кръстен. Например вместо на
    ActiveSheet.Range("D5").Select
    						
    Можете да използвате:
    Range("D5").Select
    						
  • Свойството на ActiveWorkbook също така обикновено могат да бъдат пропуснати. Освен ако специфични workbookis име за влизане, се подразбира активната работна книга.
  • Когато използвате метода на Application.Goto , ако искате да използвате два метода на клетки в рамките на диапазона метода, когато Зададеният диапазон е на друг (не активен) работен лист, трябва да включите обекта на чаршафи всеки път. За пример:
    Application.Goto Sheets("Sheet1").Range( _
          Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), _
          Sheets("Sheet1").Cells(4, 5)))
    					
  • За всеки елемент в кавички (например, namedrange "Тест") можете да използвате променлива, чиято стойност е текстов низ. Forexample, вместо на
    ActiveWorkbook.Sheets("Sheet1").Activate
    						
    Можете да използвате
    ActiveWorkbook.Sheets(myVar).Activate
    						
    където стойността на myVar е "Лист1".

Библиография


За Още действия информация относно как да използвате примерен код в тази статия щракнете върху следния номер на статия в база знания на Microsoft:
290140 Как да изпълните кода на извадката за програмите Препоръчано от Office XP Препоръчано от статии Препоръчано от база знания

Свойства

ID на статията: 291308 - Последна рецензия: 07 март 2014 г. - Редакция: 3.0
Важи за:
  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
  • Microsoft Excel 2010
Ключови думи: 
kbautomation kbmacro kbdtacode kbhowto kbprogramming kbmt KB291308 KbMtbg
Machine-translated Article
ВАЖНО: Тази статия е преведена с използване на софтуер за машинен превод на Microsoft и може да бъде коригирана чрез технологията Рамка за превод от общността (CTF). Microsoft предлага статии, преведени машинно, допълнително редактирани от общността, и статии, преведени от хора, за да може да предостави достъп на много езици до всички статии в нашата База знания. Статиите, преведени машинно и редактирани допълнително, може да съдържат грешки в лексиката, синтаксиса и/или граматиката. Microsoft не носи отговорност за каквито и да било неточности, грешки или вреди, предизвикани от неправилен превод на съдържанието или използването му от нашите клиенти. Повече за CTF – на http://support.microsoft.com/gp/machine-translation-corrections/bg.
Щракнете тук, за да видите версия на тази статия на английски: 291308

Изпратете обратна информация

 

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