Как обвести ячейку в Excel?

При редактировании листа вы можете захотеть нарисовать круг вокруг ячейки, чтобы сделать её более заметной, как показано на скриншоте ниже. Сейчас я представлю вам несколько способов обвести ячейку в Excel.

Обвести ячейку с помощью овальной формы

Обвести ячейку с помощью VBA

Обвести ячейку с помощью овальной формы

Чтобы обвести ячейку, вам нужно вставить овальную фигуру.

1. Нажмите Вставить > Фигуры и выберите Овал из раздела Базовые фигуры в списке. Смотрите скриншот:

2. Нарисуйте овал вокруг нужной ячейки. Смотрите скриншот:

3. Щелкните правой кнопкой мыши по фигуре и выберите Формат фигуры из контекстного меню.

4. В диалоговом окне Формат фигуры (или панели Формат фигуры) нажмите вкладку Заливка и передвиньте ползунок Прозрачности вправо, чтобы убедиться, что отображается 100% прозрачность в текстовом поле. Смотрите скриншот:

5. Закройте диалоговое окно. Теперь вы видите, что вокруг ячейки есть круг.

Совет: По умолчанию фигура будет перемещаться и изменять размер вместе с ячейкой.

Обвести ячейку с помощью VBA

Если вы хотите быстро обвести ячейку, вы можете использовать код VBA.

1. Выберите ячейку, которую хотите обвести, и нажмите клавиши Alt + F11 вместе, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и скопируйте следующий код VBA в открывшееся окно.

VBA: Обвести ячейку.

Sub DrawCircle()
	'Updateby20141105
	Dim Arng As Range
	Dim WorkRng As Range
	Set WorkRng = Application.Selection
	For Each Arng In WorkRng.Areas
		With Arng
			x = Arng.Height * 0.1
			y = Arng.Width * 0.1
			Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
			Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
			With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
				.Interior.ColorIndex = xlNone
				.ShapeRange.Line.Weight = 1.25
			End With
		End With
	Next
	WorkRng.Select
End Sub

3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить код VBA, теперь выбранная ячейка обведена.

Советы:

(1) Если вы выберете несколько соседних ячеек на первом шаге, этот макрос VBA обведет их все вместе.

(2) Если вы выберете несколько несмежных ячеек на первом шаге, этот макрос VBA обведет каждую ячейку по отдельности.