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

or

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

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

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

Выберите конкретные ячейки

Kutools for Excel's Выберите конкретные ячейки утилиту вы можете выбрать ячейки / строки / столбцы на основе одного или двух критериев, а затем отформатировать их по мере необходимости, например, изменить размер шрифта, фон и т. д.

doc выбирать определенные ячейки
Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

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


Чтобы изменить размер шрифта на основе другого значения столбца, вот вам код 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


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

Kutools for Excel, с более чем 120 удобные функции Excel, повышают эффективность работы и экономят ваше рабочее время.

В другом случае, если вы хотите изменить размер шрифта на основе собственного значения или длины символа, например, когда значение ячейки больше 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 другим, как вы хотите.

doc загрузить 1


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в 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.

Be the first to comment.