Tamanho da fonte da célula de formato automático do Excel com base no valor numérico?

Question

Eu quero que os valores numéricos das células sejam menores, em tamanho de fonte, com valores pequenos, ou seja, quanto maior o valor da célula, maior o tamanho da fonte.

Eu só consigo encontrar Data Bars em Conditional Formattting .

Se você souber como fazer isso, compartilhe.

    

Answer 1

Você precisará de uma macro no VBA, como esta:

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

Você tem que copiar o código, vá em Exibir - > Macros no Excel, crie um novo (qualquer nome é válido) e  na coluna da esquerda, clique duas vezes na planilha onde deseja usá-la ( bandeira vermelha na imagem ) e, no lado direito, cole o código.

Esta macro modifica o tamanho da fonte da célula na coluna X da planilha, quando detecta que a célula foi alterada . X é o número da coluna (A = 1, B = 2, C = 3, ....)

Eudefinialgunsintervalosdevalores,porexemplo,seovalorestiverentre1e100,otamanhodafonteserá10.Vocêpodeadicionar,removeroualterardeacordocomsuasnecessidades.

Tenhaemmentequequandovocêforsalvá-lo,vocêteráqueusar.xlsmaoinvésdotípico.xlsx.Alémdisso,quandovocêoabre,oExcelsempredesativaasmacrosemostraumavisodesegurançaperguntandosevocêdesejahabilitarasmacros

UmexemplodearquivodoExcelpode ser baixado aqui .