excel formatação de fórmulas

2

Eu tenho a seguinte fórmula no Excel:

=IF(A5="File Start","File Creation DateTime = "&MID(C5,113,13),IF(A5="Start","Statement Date = "&MID(C5,65,8)&" | Opening Balance Date = "&MID(C5,88,8),IF(A5="Statement","Statement Date = "&MID(C5,65,8)&" | Value Date = "&MID(C5,108,8)&" | Booking Date = "&MID(C5,116,8),IF(A5="End","Statement Date = "&MID(C5,65,8)&" | Closing Balance Date = "&MID(C5,88,8),""))))  

Que dá um resultado ao longo das linhas de:

Statement Date = 20110217 | Value Date = 20101126 | Booking Date = 20110218

O que eu gostaria que fosse parecido é:

Statement Date = 20110217 | Value Date = 20101126| Booking Date = 20110218

ou

Statement Date = 20110217 | Value Date = 20101126 | Booking Date = 20110218

Onde os itens em negrito na opção 2 são cores diferentes.

    
por JoeOD 08.04.2011 / 16:08

1 resposta

0

Eu não acho que você possa modificar sua fórmula para alterar a fonte. No entanto, se você puder aceitar copiar e colar o resultado da fórmula em uma nova célula, poderá manipular o texto nessa célula com o VBA.

O código abaixo copia sua seqüência de caracteres, "Data da instrução = 20110217 | Data do valor = 20101126 | Data da reserva = 20110218" da célula A5, em seguida, cola-a em B5. (Você pode precisar "colar valores especiais".) Em seguida, ele inspeciona a string em B5, procurando a posição inicial das datas numéricas, que eu assumi que sempre serão 8 dígitos. Finalmente, ele "em negrito" todos os numerais da string, que foi sua primeira opção para reformatar a string.

ChangeNumberFontInStringToBold()
'1.  Copy & paste the string to a new cell.
Range("A5").Select
Selection.Copy
Range("B5").Select
ActiveSheet.Paste

'2.  Find the start position of the numerics; load into array
Range("B5").Select

mytext = Range("b5").Text
myLength = Len(mytext)

Dim mystart() As Integer        'array to hold the starting positions of the numerics
Dim j
j = 0


For i = 1 To myLength
    myChar = Mid(mytext, i, 1)
    If IsNumeric(myChar) Then
        ReDim Preserve mystart(j)
        mystart(j) = i
        j = j + 1
        i = i + 10
    End If
Next i

'3.  Bold all the numerics
For k = 0 To UBound(mystart)
    With ActiveCell.Characters(Start:=mystart(k), Length:=8).Font
        .Name = "Arial"
        .FontStyle = "Bold"
    End With
Next k

'4. Park the cursor elsewhere
Range("C5").Select

End Sub

    
por 08.04.2011 / 21:24