Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Formato Celda

23/02/2005 - 23:27 por JR | Informe spam
Como podría hacer? ¿ que formato de celda tendría que aplicar para en una
celda tener el siguiente formato ? para introducir por ejem M61420 y que
se muestre en celda la letra M en tamaño 8 y los numeros como subindice o en
tamaño 6
es decir letra mas grande y números en pequeño.
Gracias y un saludo
 

Leer las respuestas

#1 Héctor Miguel
24/02/2005 - 06:30 | Informe spam
hola, JR !

... formato de celda... para introducir por ejem: M61420
... que se muestre en celda la letra M en tamaño 8
... y los numeros como subindice o en tamaño 6 [...]



- [hasta donde se] ningun formato [ni personalizado ni condicional] 'acepta' [o permite]...
una 'mezcla' de tamaños, colores y tipos de fuente en una celda o rango :(
- podrias dar formato 'parcial' [y manualmente] a grupos de carcteres en dichas celdas
y... si lo puedes hacer 'a mano'... tambien lo puedes hacer por macros :))
suponiendo que siempre es EL PRIMER caracter y... 'el resto' de los caracteres
y... que [solamente] se 'afectaran' los rangos [p.e.] 'A1', 'B2:C3', 'D4' y 'E5:F6' [o los que necesites]
prueba con las siguientes lineas de codigo...

si cualquier duda... ¿comentas?
saludos,
hector.
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1,b2:c3,d4,e5:f6")) Is Nothing Then Exit Sub
If Target.Count > 1 Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1,b2:c3,d4,e5:f6")) Is Nothing Then Exit Sub
If Len(Target) < 2 Or Target.HasFormula Then Exit Sub
With Target
' puedes eliminar la siguiente linea... si tu fuente normal es de tamaño 8
.Characters(1, 1).Font.Size = 8
' prueba y 'fija' la opcion que mejor te sirva: menor tamaño, o sub-indice
.Characters(2).Font.Size = 6
' .Characters(2).Font.Subscript = True
End With
End Sub

Preguntas similares