como hacer que una celda titile en excel

11/09/2003 - 17:58 por Misael Angel Blandón Pérez | Informe spam
Hola miembros del foro

Diganme como puedo hacer que una celda titile en excel, algo similar a lo
que uno hace en word con un texto.

Por su colaboración mil gracias


Cordialmente,

Misael Blandón

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
12/09/2003 - 08:24 | Informe spam
Hola, Misael !

... hacer que una celda titile en excel ... similar a ... word con un texto.



==> -p.e.- Usando el siguiente codigo [creado por Bill Manville]

Notas: 'mientras' se este ejecutando el codigo ...
a) 'perderas' el 'beneficio' del 'UnDo' [deshacer] :((
b) veras un [ligero?] 'parpadeo' en la ventana de la aplicacion [NO se puede 'evitar'] :((
c) [seguramente] notaras una [ligera?] 'desaceleracion' en el rendimiento :((
[sobre todo, si hay 'bastantes' celdas con ese 'efecto']
Si [aun asi] quieres 'continuar'... =>esto es lo que 'tendras que' hacer...<
1) Crea un estilo personalizado [Formato -> Estilo -> [Nombre: "Centella" -p.e.-] ... etc.
ASEGURATE de que [al menos] 'incluyes' el tipo de letra [font] y ...
[si 'personalizas' el formato de numero] EVITA los que 'usan' color para cifras negativas, condiciones, etc. <= 2) 'aplica' dicho estilo a la/s celda/s que nececites con el 'efecto'
3) copia los siguientes codigos como se indica...
[consulta la ayuda {F1} en vba para la 'tabla de opciones' de color con respecto de 'ColorIndex']

en un modulo de codigo 'normal' ==Dim Siguiente As Date
Sub Comenzar()
Siguiente = Now + TimeValue("00:00:01")
With ThisWorkbook.Styles("Centella").Font
If .ColorIndex = 5 Then .ColorIndex = 3 Else .ColorIndex = 5
End With
Application.OnTime Siguiente, "Comenzar"
End Sub
Sub Detener()
On Error Resume Next
Application.OnTime Siguiente, "Comenzar", Schedule:=False
ThisWorkbook.Styles("Centella").Font.ColorIndex = xlColorIndexAutomatic
End Sub
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
Comenzar
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Detener
End Sub
_______
Saludos,
Héctor.
MS-MVP
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida