Subindices y Superindices

Yo no conozco rodeo, pero se ahorran algunos clics con Control+1
(Formato/Celdas)

"Ernesto Ramírez" escribió en el mensaje
news:

Que tal, alguien me puede sugerir una manera mas rapida de poner

subindices

y superindices en Excel?.
Curiosamente, al contrario de como lo hace Word, en Excel no existen

botones

en las barras de herramientas que me permitan hacer esto en forma mas

rapida

y siempre que los necesito tengo que seleccionar la letra o numero y dar
todo el rodeo de Formato-Celdas-Subindice/Superindice.

Muchas gracias por su atencion.

Si lo utilizas muy a menudo, hazte una macro con la
grabadora, y asígnale un botón.

:-)

"Ernesto Ramírez" escribió en el

mensaje

Que tal, alguien me puede sugerir una manera mas

rapida de poner

subindices

y superindices en Excel?.
Curiosamente, al contrario de como lo hace Word, en

Excel no existen

botones

en las barras de herramientas que me permitan hacer

esto en forma mas

rapida

y siempre que los necesito tengo que seleccionar la

letra o numero y dar

todo el rodeo de Formato-Celdas-Subindice/Superindice.

Muchas gracias por su atencion.

.

hola, 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
... siempre que los necesito tengo que seleccionar la letra o numero y dar todo el rodeo de [...]

es cierto... :(( [empero...] si lo ves de una forma 'operativa-real' =>aun en word<=...
'tienes que' seleccionar [primero] el caracter al cual se le aplicara el formato [sub|super]indice
una forma de hacerlo en excel [de manera +/- 'interactiva'] es por macros ;)
si [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... :((<
si 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 & _
"'P' = suPeríndice, 'B' = suBíndice y 'N' = Normal", "Superíndices y Subíndices"), " ", "")
If 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

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.


"Héctor Miguel" escribió en el mensaje
news:%23VUbW$

hola, 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

> ... siempre que los necesito tengo que seleccionar la letra o numero y

dar todo el rodeo de [...]

es cierto... :(( [empero...] si lo ves de una forma 'operativa-real'

=>aun en word<=...

'tienes que' seleccionar [primero] el caracter al cual se le aplicara el

formato [sub|super]indice

una forma de hacerlo en excel [de manera +/- 'interactiva'] es por macros

;)

si [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... :((<>

si 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 & _

"'P' = suPeríndice, 'B' = suBíndice y 'N' = Normal",

"Superíndices y Subíndices"), " ", "")

If 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

hola, Ernesto !

... el codigo, funciona [...]

gracias por el 'feed-back' ;)

... algun codigo de formato personalizado que funcione para ... los sub y super indices?
... si en ... "A1", tengo texto con algun caracter en sub o super indice
... y en ... "A3", tengo una formula que utiliza ... "A1" para concatenarlo con... digamos "A2"
...en ... "A3" se muestra el texto de "A1" con formato normal [...]

'me temo' que... no ! :((
si observas, en el codigo propuesto, la primera instruccion 'evita' que la macro 'corra' si la celda tiene formula :(
lo que se me ocurre que pudieras hacer para 'conservar' los sub|super indices
=>y siempre y cuando las celdas que se van a 'concatenar' sean contiguas<seleccionar ambas celdas y 'tomarles una foto' [???]
[boton =>camara<= 'agregable' a las barras de herramientas cuando las 'personalizas']
aunque... dado que se genera un vinculo 'en tiempo real' [se actualiza junto con los cambios a dichas celdas]
este tipo de 'objetos' =>consumen<= recursos [s/t de la interfase grafica] y el rendimiento de tu modelo... \×|×/

saludos,
hector.