В момента сте офлайн в очакване на повторно свързване с интернет

Вашият браузър не се поддържа

Трябва да актуализирате браузъра си, за да използвате сайта.

Актуализация до най-новата версия на Internet Explorer

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

Поддръжката за Office 2003 завърши

Microsoft завърши поддръжката за Office 2003 на 8 април 2014 г. Тази промянa се отрази на актуализациите на софтуера ви и на опциите за защита. Научете какво означава това за вас и как да останете защитени.

ВАЖНО: Тази статия е преведена с използване на софтуер за машинен превод на Microsoft и може да бъде коригирана чрез технологията Рамка за превод от общността (CTF). Microsoft предлага статии, преведени машинно, допълнително редактирани от общността, и статии, преведени от хора, за да може да предостави достъп на много езици до всички статии в нашата База знания. Статиите, преведени машинно и редактирани допълнително, може да съдържат грешки в лексиката, синтаксиса и/или граматиката. Microsoft не носи отговорност за каквито и да било неточности, грешки или вреди, предизвикани от неправилен превод на съдържанието или използването му от нашите клиенти. Повече за CTF – на http://support.microsoft.com/gp/machine-translation-corrections/bg.

Щракнете тук, за да видите версия на тази статия на английски: 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").ActivateActiveSheet.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").ActivateActiveSheet.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").ActivateActiveSheet.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").ActivateRange("Test").Select				

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

За да изберете наименувания диапазон "Тест" в работен лист в друга работна книга, можете да използвате следния пример:
Application.Goto _   Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")				
Или, можете да активирате работния лист и след това използвайте метод 7 по-горе, за да изберете наименувания диапазон:
Workbooks("BOOK2.XLS").Sheets("Sheet2").ActivateRange("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").ActivateActiveSheet.Range("Test").Offset(4, 3).Select				

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

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

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

За да изберете диапазон четири редове Ботом и три колони вдясно Препоръчано от наименувания диапазон "База данни" и включват два реда и една колона Още действия Препоръчано от наименувания диапазон, можете да използвате следния пример:
Range("Database").SelectSelection.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).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. Как да изберете няколко не съседни колони с различна дължина

За да изберете няколко не съседни колони с различна дължина, използвайте следния примерен таблица и макро пример:
   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 Препоръчано от статии Препоръчано от база знания
OfficeKBHowTo howto съседни как да разкъсана граничещи несъседни не съседни XL2003 XL2007 XL2010

Предупреждение: Тази статия е преведена автоматично

Свойства

ИД на статията: 291308 – Последен преглед: 03/07/2014 02:02:00 – Редакция: 3.0

  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
  • Microsoft Excel 2010
  • kbautomation kbmacro kbdtacode kbhowto kbprogramming kbmt KB291308 KbMtbg
Обратна връзка
mp;t=">/html>0&did=1&t=">