Visual BASIC (VBA)

Question

Como consegue-se, a partir do visual basic colocar número abaixo do texto. ou seja no meu caso é uma fórmula quimica C5H3S2 que advém já de fórmulas . Ou seja, não é diretamente escrita no excel pois assim seria fácil mas sim vem a partir de fórmulas anteriores

Obrigado

Cumprimentos,

Luís Ribeiro

Answer 1

Sub Main()
    Dim iCell As Range
    Dim j As Long
    
    For Each iCell In Selection
        For j = 1 To iCell.Characters.Count
            If IsNumeric(iCell.Characters(j, 1).Text) Then
                iCell.Characters(j, 1).Font.Subscript = True
            End If
        Next j
    Next iCell
End Sub

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br