Fórmula excel. Quem pode ajudar ?

ZINHO_007 disse:

Oi pessoal,


Tenho os seguinte nomes nas seguintes células:
A1= Maria
A2=João
A3= Pedro
A4=Silvia

Queria fazer o seguinte juntar esses nomes em um texto ( isto eu sei fazer ) usando a fórmula concatenar.
Exemplo – vide citação abaixo:



Eu queria ajuda de vocês para o seguinte: fazer uma fórmula ou uma macro, de forma que o 1º colocado (A1) entre os quatro ( Maria, João, Pedro ou Sílvia ) ficasse com formato Negrito-Verde, o 2º colocado (A2) = Negrito-Azul, e o 3ºcolocado (A3) = Negrito e o último (A4), sem formatação nenhuma ( como está na citação acima ). Tem como fazer isso ?

Elbl disse:

Precure por formatação condicional...

Coloniz@dor disse:

O excel não tem formula para isso mais tem o VBA , podemos fazer uma macro para isso sim, estou no caso.

abraço.

[quote="Elbl, post: 2900996"]Precure por formatação condicional...

Tenho os seguinte nomes nas seguintes células:
A1= Maria
A2=João
A3= Pedro
A4=Silvia
A5=Tereza

Maria, a 1ª classificada. João, o 2º classificado. Pedro, 3º colocado. Sílvia, quarta colocada e Tereza se classificou em último lugar, mas é muito inteligente e promete...

ZINHO_007 disse:

E aí caros Colonizador e Elbl, pode fazer por macro mesmo. Estou saindo daqui a pouco, mas amanhã, Se Deus Quiser, eu volto pra ver se tem alguma novidade.

Coloniz@dor disse:

Ok , já estou com a macro pronta só faltando alguns ajustes. assim que tiver pronta eu anexo aqui.

ZINHO_007 disse:

.............................. Up ..............................

Coloniz@dor disse:

Não é tão simples quanto pensei , testei com IF....Else>>>Then e não deu certo , são muitas comparações , estou testando com Select Case agora.

ZINHO_007 disse:

Se não der, tudo bem. O excel como qualquer outro programa da Microsoft tem la os seus limites. Muita coisa é não é possível no excel...
Agradeço a sua boa vontade.

Flashcooler disse:

Tudo em uma célula só ?? É MUITO mais fácil dividir em varias células.

Pois para fazer em uma só celula tem que escrever a frase inteira na celula (aparentemente fácil) ler o tamanho da palavra (LEN)...

...e ai pegar somente estes caracteres e em suas posições na frase para ai poder colori-los e deixa-los em negrito...

A4: = A1 & "PRIMEIRO" & A2 & "SEGUNDO" & A3 & "TERCEIRO"

Flashcooler disse:

LEN é um comando do VBA, para ler o tamanho de uma String(palavra),
Exemplo: Marcos = 6, Vinivius = 8.
Pois a partir destes tamanhos é que o Código em VBA. Esse código que você quer ficaria mais ou menos assim, mas DETALHE nãp podem ser acrecentadas mais palavras nele e nem retiradas se não da errado, se você me mandar a frase exata que você quer formatar eu te mando o código. Segue um código Abaixo.


Sub Formating()

Dim tam1 As Integer
Dim tam2 As Integer
Dim tam3 As Integer
tam1 = Len(Range("A1").Value)
tam2 = Len(Range("A2").Value)
tam3 = Len(Range("A3").Value)

Range("B6").Select
ActiveCell.FormulaR1C1 = "Maria Primeiro, Jão Segungo, Moça Terceiro"
With ActiveCell.Characters(Start:=1, Length:=tam1).Font
.Name = "Arial"
.FontStyle = "Negrito"
.ColorIndex = 3
End With
With ActiveCell.Characters(Start:=6, Length:=11).Font
.Name = "Arial"
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=17, Length:=tam2).Font
.Name = "Arial"
.FontStyle = "Negrito"
.ColorIndex = 50
End With
With ActiveCell.Characters(Start:=20, Length:=10).Font
.Name = "Arial"
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=30, Length:=tam3).Font
.Name = "Arial"
.FontStyle = "Negrito"
.ColorIndex = 41
End With
With ActiveCell.Characters(Start:=34, Length:=9).Font
.Name = "Arial"
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With
Range("D21").Select
End Sub

T mais