Как увеличить или увеличить выделенные ячейки в 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. Затем сохраните и закройте это окно кода, теперь, когда вы выбираете или щелкаете некоторые ячейки данных, ячейки будут автоматически увеличиваться как изображение, см. Снимок экрана:
Внимание: Выбранные ячейки будут возвращены к исходному размеру после выбора других ячеек.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!