Gracias a todos,
En particular Hector, te agradezco el codigo, funciona perfecto, ahora,
esperando no molestar demasiado, conocen algun codigo de formato
personalizado que funcione para esto de los sub y super indices?, me
explico. Suponiendo que si en una celda, digamos "A1", tengo texto con algún
caracter en sub o super indice y en otra celda, digamos "A3", tengo una
fórmula que utiliza el texto en "A1" para concatenarlo con el contenido de
otra celda (digamos "A2"), resulta que en el resultado de la fórmula (en la
celda "A3") se muestra el texto de "A1" con formato normal, ahora bien, he
utilizado la función TEXTO la cual tiene como segundo argumento el formato
(utilizando caracteres como 0, #,$,[],@, etc), aunque no conozco si existe
alguna forma de personalizar el formato indicando un caracter de sub o
superindice. Sé (o por lo menos yo asi lo creo) que será dificil lograr
solucionar esto pero les agradeceré enormemente alguna idea. Muchas gracias.
Post by Héctor Miguelhola, Ernesto !
... una manera mas rapida de poner subindices y superindices en Excel?.
... al contrario de ... Word, en Excel no existen botones ... hacer esto
en forma mas rapida
Post by Héctor Miguel... siempre que los necesito tengo que seleccionar la letra o numero y
dar todo el rodeo de [...]
Post by Héctor Migueles cierto... :(( [empero...] si lo ves de una forma 'operativa-real'
=>aun en word<=...
Post by Héctor Miguel'tienes que' seleccionar [primero] el caracter al cual se le aplicara el
formato [sub|super]indice
Post by Héctor Migueluna forma de hacerlo en excel [de manera +/- 'interactiva'] es por macros
;)
Post by Héctor Miguelsi [p.e.] tienes en una celda el texto 'H2O'...
y en el 'inputbox' [que 'presenta' la macro de ejemplo] 'introduces' =>2b<=...
el 2° caracter 'se transformado' a suBindice ;)
[creo que el 'comportamiento' de la macro sera +/- 'claro'] :))
=>claro que... 'tendras que' indicarle la posicion 'exacta' del caracter
y... si quieres que sean varios... :((<=
Post by Héctor Miguelsi cualquier duda... ¿comentas?
saludos,
hector.
=== en un modulo de codigo 'normal' ===
Sub Super_Sub()
If ActiveCell.HasFormula Then Exit Sub
Dim Comando As String, Posicion As Integer
Comando = Application.Substitute(InputBox( _
"Indica la posición del caracter (#) + el 'tipo' de
índice." & vbCr & _
Post by Héctor Miguel"'P' = suPeríndice, 'B' = suBíndice y 'N' = Normal",
"Superíndices y Subíndices"), " ", "")
Post by Héctor MiguelIf Comando = "" Then Exit Sub
Posicion = Left(Comando, Len(Comando) - 1)
If Posicion > Len(ActiveCell) Then Exit Sub
With ActiveCell.Characters(Posicion, 1).Font
Select Case UCase(Right(Comando, 1))
Case "P": .Superscript = True
Case "B": .Subscript = True
Case Else: .Superscript = False: .Subscript = False
End Select
End With
End Sub