Как увеличить или масштабировать выделенные ячейки в Excel?
Как известно, в Excel есть функция масштабирования, позволяющая увеличить отображение всего листа. Однако иногда нужно масштабировать только выделенные ячейки. Существуют ли эффективные способы увеличения именно выбранных ячеек на листе?
Увеличение выделенной ячейки с помощью кода VBA
Увеличение выделенной ячейки с помощью кода VBA
В Excel, возможно, нет прямого способа увеличить выделенные ячейки, но я предлагаю обходное решение с использованием кода VBA. Выполните следующие действия:
1. Щёлкните правой кнопкой мыши по ярлыку листа, на котором нужно автоматически увеличивать выделенные ячейки, и в контекстном меню выберите пункт Просмотреть код. В открывшемся окне Microsoft Visual Basic для приложений скопируйте и вставьте приведённый ниже код в пустой модуль:
Код VBA: увеличение или масштабирование выделенных ячеек:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. Сохраните и закройте окно кода. Теперь при выборе или щелчке по ячейкам с данными они будут автоматически увеличиваться в виде изображения (см. скриншот):
Примечание: выделенные ячейки автоматически вернутся к исходному виду «Оригинальный размер» после выбора других ячеек.
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек