Trocar fonte na formatação

Formatação condicional

Trocar fonte na formatação

Mensagempor vonzuben » Sex Set 01, 2017 8:04 pm

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

Obrigado !
Você não está autorizado a ver ou baixar esse anexo.
vonzuben
Membro
Membro
 
Mensagens: 416
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 139 times
Have thanks: 0 time

{ SO_SELECT }

Re: Trocar fonte na formatação

Mensagempor Patropi » Sex Set 01, 2017 8:36 pm

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.
Código: Selecionar todos
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
Patropi /Moderador
Se a resposta foi útil, clique na mãozinha ao lado da ferramenta Citar.
Avatar do usuário
Patropi
Ninja do Excel
Ninja do Excel
 
Mensagens: 8359
Registrado em: Sáb Jun 05, 2010 4:36 pm
Localização: Campo Mourão - PR
Has thanked: 203 times
Have thanks: 3256 times

Re: Trocar fonte na formatação

Mensagempor vonzuben » Sex Set 01, 2017 9:07 pm

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 ?
vonzuben
Membro
Membro
 
Mensagens: 416
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 139 times
Have thanks: 0 time

Re: Trocar fonte na formatação

Mensagempor Patropi » Sex Set 01, 2017 9:37 pm

Mas essa fonte Cambria fica muito feia ! Rs

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


Código: Selecionar todos
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
Patropi /Moderador
Se a resposta foi útil, clique na mãozinha ao lado da ferramenta Citar.

For this post the author Patropi thanked:
vonzuben (Sex Set 01, 2017 10:25 pm)
Avatar do usuário
Patropi
Ninja do Excel
Ninja do Excel
 
Mensagens: 8359
Registrado em: Sáb Jun 05, 2010 4:36 pm
Localização: Campo Mourão - PR
Has thanked: 203 times
Have thanks: 3256 times

Re: Trocar fonte na formatação

Mensagempor vonzuben » Sex Set 01, 2017 10:37 pm

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
vonzuben
Membro
Membro
 
Mensagens: 416
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 139 times
Have thanks: 0 time

Re: Trocar fonte na formatação

Mensagempor vonzuben » Qua Set 13, 2017 7:17 pm

Somente os números não foi alterado !
Você não está autorizado a ver ou baixar esse anexo.
vonzuben
Membro
Membro
 
Mensagens: 416
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 139 times
Have thanks: 0 time


Voltar para Formatação Condicional

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante