Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как увеличить или увеличить выбранные ячейки в 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, Затем сохраните и закройте это окно кода, теперь, когда вы выбираете или щелкаете некоторые ячейки данных, ячейки будут автоматически увеличены как изображение, см. Снимок экрана:

Внимание: Выбранные ячейки будут изменены до исходного размера после выбора других ячеек.


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mazzi · 6 months ago
    Error 1004 on line 15

    Application.ActiveSheet.Pictures.Paste.Select

    Why?, what could it be?
    • To post as a guest, your comment is unpublished.
      skyyang · 6 months ago
      Hi, Mazzi,
      The above code works well in my Excel workbook, which Excel version do you use?
  • To post as a guest, your comment is unpublished.
    ashraf · 9 months ago
    I want to magnify when entering the data
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hi,
      May be, there is no direct way for solving your problem, if you find a good method, please comment here.
  • To post as a guest, your comment is unpublished.
    Ahmet · 11 months ago
    this is cool, but i want it to run in all sheets, how can i do that?
    • To post as a guest, your comment is unpublished.
      skyyang · 11 months ago
      Hi, Ahmet,
      To apply this operation in all worksheets, you can use the below vba code. (You should put the code into the ThisWorkbook module).Please try it.
      Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
      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