Subindices y Superindices
Ernesto Ramírez
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.
Manuel Romero
(Formato/Celdas)
"Ernesto Ramírez" <rern...@yahoo.com> escribió en el mensaje
news:ujHmlkzU...@TK2MSFTNGP11.phx.gbl...
Víctor
grabadora, y asígnale un botón.
:-)
>-----Mensaje original-----
>"Ernesto Ramírez" <rern...@yahoo.com> 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.
>>
>>
>
>
>.
>
Héctor Miguel
> ... 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
Ernesto Ramírez
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" <NOhemio...@PLShotmail.com> escribió en el mensaje
news:%23VUbW$2UEH...@TK2MSFTNGP10.phx.gbl...
Héctor Miguel
> ... 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.
Ernesto Ramírez
personalizada que incluya entre otros, dos argumentos, siendo uno de ellos
la referencia de la celda en la que se encuentra el caracter cuyo formato de
sub/super incice quiero conservar, y otro argumento cuyo valor sea la
posicion del caracter. Ah, y entonces se vuelve necesario un tercer
argumento que indique si se le asigna formato de subindice o bien de
superindice; algo parecido a lo que tiene tu codigo pero en formula. Lo que
sucede es que estoy en mis primeros pasos con VBA, y aunque tengo algo de
experiencia con excel y conozco varias formulas y sus usos, pues me falta
experiencia escribiendo el codigo. Comparto tu opinion acerca de "tomar una
foto", de cualquier modo muchisimas gracias.
"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje
news:%23rxF83A...@tk2msftngp13.phx.gbl...