Notifications
Clear all

Trocar fonte na formatação

6 Posts
2 Usuários
0 Reactions
2,009 Visualizações
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Pq na regra de formatação não consigo colocar a fonte e tamanho que eu quero ?

Obrigado !

 
Postado : 01/09/2017 5:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite

Na formatação condicional o Excel não permite mudar a fonte e o tamanho, mas dá para fazer com programação VBA.
Abaixo um exemplo:
Se o valor da célula for igual a zero o tamanho será 16 e se for diferente de zero será 11.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Integer
Dim C As Integer
L = Range("A1").Row
C = Range("A1").Column
While Cells(L, C).Value <> ""
While Cells(L, C).Value <> ""
If Cells(L, C).Value = 0 Then Cells(L, C).Font.Size = 16
If Cells(L, C).Value <> 0 Then Cells(L, C).Font.Size = 11
C = C + 1
Wend
L = L + 1
C = 1
Wend
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/09/2017 5:36 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Mas essa fonte Cambria fica muito feia ! Rs

Se quero pegar da B6 até L 29 fica como ?

A fonte se altera assim ?

If Cells(L, C).Value = 0 Then Cells(L, C).Font.Name = "Cambria"
If Cells(L, C).Value <> 0 Then Cells(L, C).Font.Name = "Calibri"

á que não pode alterar, pq possue essa opção então ?

 
Postado : 01/09/2017 6:07 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mas essa fonte Cambria fica muito feia ! Rs

Se quero pegar da B6 até L 29 fica como ?

If Cells(L, C).Value = 0 Then Range("B6:L29").Font.Name = " Cambria "
If Cells(L, C).Value <> 0 Then Range("B6:L29").Font.Name = " Calibri "

Já que não pode alterar, pq possue essa opção então ?

Não possue , pode ver que essas opções estão desabilitadas na Formatação Condicional

Não se esqueça de clicar na mãozinha nas minhas respostas

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/09/2017 6:37 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Algo de errado ?

Não mudou !

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Integer
Dim C As Integer
L = Range("B6").Row
C = Range("L29").Column
While Cells(L, C).Value <> ""
While Cells(L, C).Value <> ""
If Cells(L, C).Value = 0 Then Range("B6:L29").Font.Size = 16
If Cells(L, C).Value <> 0 Then Range("B6:L29").Font.Size = 11
If Cells(L, C).Value = 0 Then Range("B6:L29").Font.Name = " Cambria "
If Cells(L, C).Value <> 0 Then Range("B6:L29").Font.Name = " Calibri "
C = C + 1
Wend
L = L + 1
C = 1
Wend
End Sub

 
Postado : 01/09/2017 7:37 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Somente os números não foi alterado !

 
Postado : 13/09/2017 4:17 pm