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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/03/2012 2:27 pm