VBA Изберете диапазон / клетки

VBA ви позволява да изберете клетка, диапазони от клетки или всички клетки в работния лист. Можете да манипулирате избраната клетка или диапазон с помощта на обекта за избор.

Изберете единична клетка с помощта на VBA

Можете да изберете клетка в работен лист, като използвате метода Избор. Следният код ще избере клетка A2 в ActiveWorksheet:

1	Обхват ("A2"). Изберете

Или

1	Клетки (2, 1). Изберете

Резултатът е:

Изберете диапазон от клетки, използващи VBA

Можете да изберете група клетки в работен лист, като използвате метода Select и обекта Range. Следният код ще избере A1: C5:

1	Обхват ("A1: C5"). Изберете

Изберете диапазон от неприлежащи клетки, използващи VBA

Можете да изберете клетки или диапазони, които не са един до друг, като разделите клетките или диапазоните с помощта на запетая във VBA. Следният код ще ви позволи да изберете клетки A1, C1 и E1:

1	Диапазон ("A1, C1, E1"). Изберете

Можете също да изберете набори от несвързани диапазони във VBA. Следният код ще избере A1: A9 и B11: B18:

1	Обхват ("A1: A9, B11: B18"). Изберете

Изберете Всички клетки в работен лист

Можете да изберете всички клетки в работен лист, използвайки VBA. Следният код ще избере всички клетки в работен лист.

1	Клетки Изберете

Изберете ред

Можете да изберете определен ред в работен лист, като използвате обекта Row и номера на индекса на реда, който искате да изберете. Следният код ще избере първия ред във вашия работен лист:

1	Редове (1). Изберете

Изберете колона

Можете да изберете определена колона в работен лист, като използвате обекта Column и номера на индекса на колоната, която искате да изберете. Следният код ще избере колона C във вашия работен лист:

1	Колони (3). Изберете

Изберете последната непразна клетка в колона

Да предположим, че имате данни в клетки A1, A2, A3 и A4 и бихте искали да изберете последната непразна клетка, която би била клетка A4 в колоната. Можете да използвате VBA, за да направите това, и метода Range.End.

The Range.End метод може да вземе четири аргумента, а именно: xlToLeft, xlToRight, xlUp и xlDown.

Следният код ще избере последната непразна клетка, която би била А4 в този случай, ако А1 е активната клетка:

1	Обхват ("A1"). Край (xlDown) .Изберете

Изберете последната непразна клетка в ред

Да предположим, че имате данни в клетки A1, B1, C1, D1 и E1 и бихте искали да изберете последната непразна клетка, която би била клетка E1 в реда. Можете да използвате VBA, за да направите това, и метода Range.End.

Следният код ще избере последната непразна клетка, която би била E1 в този случай, ако A1 е активната клетка:

1	Обхват ("A1"). Край (xlToRight) .Изберете

Изберете текущия регион във VBA

Можете да използвате CurrentRegion Property на Range Object, за да изберете правоъгълен диапазон от празни и непразни клетки около определена дадена входна клетка. Ако имате данни в клетка A1, B1 и C1, следният код би избрал този регион около клетка A1:

1	Диапазон ("A1"). CurrentRegion. Изберете

Така че диапазонът A1: C1 ще бъде избран.

Изберете клетка, която е относителна към друга клетка

Можете да използвате Офсетен имот за да изберете клетка, която е относителна към друга клетка. Следният код ви показва как да изберете клетка B2, която е 1 ред и 1 колона спрямо клетка A1:

1	Диапазон ("A1"). Офсет (1, 1) .Изберете

Изберете именован диапазон в Excel

Можете да изберете Назовани диапазони също така. Да приемем, че сте кръстили клетки A1: A4 Плодове. Можете да използвате следния код, за да изберете този именен диапазон:

1	Диапазон ("Плодове"). Изберете

Избиране на клетка на друг работен лист

За да изберете клетка на друг работен лист, първо трябва да активирате листа с помощта на метода Worksheets.Activate. Следният код ще ви позволи да изберете клетка A7 на листа с име Sheet5:

12	Работни листове ("Sheet5"). АктивирайтеДиапазон ("A1"). Изберете

Манипулиране на обекта за избор във VBA

След като сте избрали клетка или диапазон от клетки, можете да се обърнете към обекта за избор, за да манипулирате тези клетки. Следният код избира клетките A1: C1 и задава шрифта на тези клетки на Arial, теглото на шрифта на получер, стила на шрифта на курсив, а цветът на запълване на зелен.

123456789

ПодформатSelection ()Обхват ("A1: C1"). ИзберетеSelection.Font.Name = "Arial"Selection.Font.Bold = ВярноSelection.Font.Italic = ВярноSelection.Interior.Color = vbGreenEnd Sub

Резултатът е:

Използване на With… End With Construct

Можем да повторим горния пример, като използваме оператора With / End With, за да се позовем на обекта за избор само веднъж. Това спестява въвеждането и обикновено прави кода ви по -лесен за четене.

1234567891011

Sub UsingWithEndWithSelection ()Обхват ("A1: C1"). ИзберетеС избор.Font.Name = "Arial".Font.Bold = Вярно.Font.Italic = Вярно.Интериор.Цвет = vbGreenКрай сEnd Sub