fórmulación química en Excel

Cuando vayas a poner el Subíndice o el Superíndice,vasa a Formato Celdas y
en Fuente marcas el uno o el otro.

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.tripod.es/maderascolombianas2
http://www.geocities.com/maderascolombianas2002

Hola.

El siguiente evento aplica el formato subindice a los números contenidos
dentro de una cadena de texto

Cuando se produzca una modificación en las celdas C2:C20, cambia el formato
a subíndice en las posiciones numéricas de la cadena.



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Range("C2:C20"), Target) Is Nothing Then
Application.EnableEvents = False
valformula = Target.Value
For a = 1 To Len(valformula)
If IsNumeric(Mid(valformula, a, 1)) Then
ActiveCell.Characters(Start:=a, Length:=1).Font.Subscript = True
End If
Next
End If
Application.EnableEvents = True
End Sub