Excel размер шрифта ячейки автоформат на основе числового значения?

Question

Я хочу, чтобы числовые значения ячеек были меньше, по размеру шрифта, с небольшими значениями, т.е. чем больше значение ячейки, тем больше размер шрифта.

Я могу найти только Data Bars в Conditional Formattting .

Если вы знаете, как это сделать, пожалуйста, поделитесь.

Answer 1

Вам понадобится макрос в VBA, например:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wk As Workbook
Set wk = ThisWorkbook
Dim ws As Worksheet
Set ws = ActiveSheet
CRow = Target.Row
CColumn = Target.Column
If CColumn = X Then
    CellValue = Cells(CRow, CColumn)
    Select Case CellValue
        Case Is < 0
            Cells(CRow, CColumn).Font.Size = 8
        Case 1 To 100
            Cells(CRow, CColumn).Font.Size = 10
        Case 101 To 500
            Cells(CRow, CColumn).Font.Size = 12
        Case 501 To 1000
            Cells(CRow, CColumn).Font.Size = 14
        Case 1001 To 5000
            Cells(CRow, CColumn).Font.Size = 18
        Case 5001 To 10000
            Cells(CRow, CColumn).Font.Size = 22
        Case Else
            Cells(CRow, CColumn).Font.Size = 24

    End Select
End If
End Sub

Вы должны скопировать код, перейти в View -> Macros в Excel, создать новый (любое имя допустимо) и в левом столбце дважды щелкнуть лист, где вы хотите его использовать (красный флажок на рисунке), и в с правой стороны вставьте код.

Этот макрос изменяет размер шрифта ячейки в столбце X рабочего листа, когда обнаруживает, что ячейка изменилась. X - номер столбца (A = 1, B = 2, C = 3, ....)

Я определил некоторые диапазоны значений, например, если значение составляет от 1 до 100, размер шрифта будет равен 10. Вы можете добавить, удалить или изменить его в соответствии с вашими потребностями.

Имейте в виду, что когда вы собираетесь сохранить его, вы должны использовать .xlsm вместо типичного .xlsx. Кроме того, когда вы открываете его, Excel всегда отключает макросы и показывает предупреждение системы безопасности, спрашивающее вас, хотите ли вы включить макросы

Один такой пример файла Excel можно скачать здесь.