Note: The other languages of the website are Google-translated. Back to English

Как быстро изменить размер шрифта в зависимости от значения ячейки в Excel?

doc изменить размер шрифта на основе значения 7
В Excel вы можете изменить размер шрифта ячейки по своему усмотрению, но пытались ли вы когда-нибудь изменить размер шрифта ячейки на основе другого значения столбца, как показано ниже? В этой статье я представляю код VBA, который поможет вам быстро изменить размер шрифта в зависимости от значения ячейки в Excel.
Изменить размер шрифта на основе другого значения столбца

Изменить размер шрифта в зависимости от значения ячейки и длины символа

стрелка синий правый пузырь Изменить размер шрифта на основе другого значения столбца

Чтобы изменить размер шрифта на основе другого значения столбца, вам может помочь код VBA.

1. Перейдите на лист, размер шрифта которого вы хотите изменить на основе другого столбца, и нажмите Alt + F11 ключ одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, а затем вставьте ниже VBA в Модули. Смотрите скриншот:

VBA: изменить размер шрифта на основе другого значения столбца

Sub fontchange()
'UpdatebyExtendoffice20160614
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Font.Size = xCell.Offset(, 1).Value
    Next
    Application.ScreenUpdating = True
End Sub

doc изменить размер шрифта на основе значения 2

3. Нажмите F5 , появится диалоговое окно и выберите ячейки, размер шрифта которых вы хотите изменить. Смотрите скриншот:
doc изменить размер шрифта на основе значения 3

4. Нажмите OK, а затем для ячеек в выбранном столбце был изменен размер шрифта на основе значений рядом с столбцом.
doc изменить размер шрифта на основе значения 4


стрелка синий правый пузырь Изменить размер шрифта в зависимости от значения ячейки и длины символа

С другой стороны, если вы хотите изменить размер шрифта на основе собственного значения ячейки или длины символа, например, когда значение ячейки больше 10 или длина символа больше 5, тогда размер шрифта изменится на 16, и смените шрифт на Arial, в противном случае размер шрифта будет 11, а шрифт - Calibri, как показано на скриншоте ниже.
doc изменить размер шрифта на основе значения 5

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте ниже код в Модули сценарий. Смотрите скриншот:

VBA: изменение размера шрифта в зависимости от значения ячейки или длины символа

Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
    Dim xCell As Range
    For Each xCell In Range("G2:H9")
        With xCell
            If Len(.Text) > 5 Or Val(.Value) > 10 Then
                .Font.Name = "Arial"
                .Font.Size = 16
            Else
                .Font.Name = "Calibri"
                .Font.Size = 11
            End If
        End With
    Next
End Sub

 

doc изменить размер шрифта на основе значения 6

3. Нажмите F5 ключ для запуска кода, и значения, которые больше 10 или длина символа больше 5, были изменены их шрифт на Arial и размер шрифта на 16.

Наконечник: В приведенном выше коде вы можете изменить диапазон G2: B9 на другие по своему усмотрению.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL