Как обвести ячейку кругом в Excel?
При редактировании листа может возникнуть желание обвести ячейку кругом, чтобы наглядно выделить её, как показано на скриншоте ниже. Сейчас я расскажу вам несколько способов, как это сделать в Excel.
Обводка ячейки с помощью фигуры «Овал»
Обводка ячейки с помощью фигуры «Овал»
Чтобы обвести ячейку, вставьте фигуру «Овал».
1. Нажмите Вставка > Фигуры и выберите Овал в разделе Основные фигуры в списке. См. скриншот:
2. Обведите нужную ячейку овалом. См. скриншот:
3. Щёлкните правой кнопкой мыши по фигуре и выберите в контекстном меню пункт Формат фигуры.
4. В диалоговом окне Формат фигуры(или на панели)Формат фигуры) перейдите на вкладку Заливка и переместите ползунок параметра Прозрачность вправо, чтобы в поле отображалось значение 100 %. См. скриншот:
5. Закройте диалоговое окно — теперь вокруг ячейки появится круг.
Совет: По умолчанию фигура будет перемещаться и изменять размер вместе с ячейкой.
Обводка ячейки с помощью VBA
Если вы хотите быстро обвести ячейку кругом, воспользуйтесь кодом VBA.
1. Выделите ячейку, которую нужно обвести, и одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
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 обведёт каждую из них отдельной рамкой.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек