Notifications
Clear all

Colocar palavra em Negrito

8 Posts
2 Usuários
0 Reactions
3,968 Visualizações
(@rafael-pereira)
Posts: 4
Active Member
Topic starter
 

Boa Tarde!
Estou com uma dúvida quanto a seguinte questão.
Tenho uma formula em que eu preciso colocar alguma palavras em negrito.
Por exemplo: tenho essa fórmula:
=CONCATENAR("Interligado os feixes de 2M da unidade ";SE(C30="x";"SPIMXm";SE(G30="x";"SPIMX";SE(J30="x";"PIM1";"")));" slot ";M30;", interfaces 01 à 21 ao balun fixado no bastidor da Fila ";D10;", Bastidor ";H10;".")
Seu resultado:
Interligado os feixes de 2M da unidade SPIMXm, slot 03, interfaces 01 à 21 ao balun fixado no bastidor da Fila 01, Bastidor 01.
Eu precisava que ficasse assim:
Interligado os feixes de 2M da unidade SPIMXm, slot 03, interfaces 01 à 21 ao balun fixado no bastidor da Fila 01, Bastidor 01..
Vocês poderiam me ajudar?
Desde já agradeço!

 
Postado : 14/03/2012 9:40 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boom dia!!

Via excel, somente se você apertar F2 na célula desejada e selecionar a Área, então negritar (Ctrl+N), o contrario só programação.

Obs: Considerando que a edição será em uma célula com formula

 
Postado : 14/03/2012 9:51 am
(@rafael-pereira)
Posts: 4
Active Member
Topic starter
 

Certo, já tentei dessa forma também, mais parece que quando é uma célula que contém fórmulas, como no exemplo, essa seleção de negritar parece que bloqueia, não fica como se fosse uma celula normal de texto. Teria alguma outra maneira?

 
Postado : 14/03/2012 10:05 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Via Excel, acho pouco provável..

Att

 
Postado : 14/03/2012 10:16 am
(@rafael-pereira)
Posts: 4
Active Member
Topic starter
 

Teria alguma fórmula que poderia colocar para que a palavra ficasse em negrito.

 
Postado : 14/03/2012 11:40 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Cara com o excel somente isso só editando com formulas não da´!!

tente algo assim...
Aperte as teclas Alt + F11 pra entrar no Editor, depois Alt + I + M, cole esse código.

Mas terá que adapta-lo!!

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
 
Postado : 14/03/2012 2:27 pm
(@rafael-pereira)
Posts: 4
Active Member
Topic starter
 

Poderia me ajudar quanto a questão de colocar a fórmula e adaptá-la?
Essas variáveis que eu tenho que declara, poderia me explicar?
Obrigado!

 
Postado : 10/04/2012 11:58 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Por precaução mande seu anexo compactado, com os detalhes que precisa.

 
Postado : 10/04/2012 5:31 pm