cambiar el tamaño de la letra de la celda seleccionada???

23/05/2007 - 21:47 por ivan | Informe spam
estoy buscando una macro que permita hacer mas visible la celda
seleccionada, es decir, aumentar el tamaño de la letra, el fondo de color y
en negrita. Una vez seleccionada otra celda, la celda anterior vuelva a
tener el mismo tamaño de letra de antes, sin fondo de color y sin negrita???
gracias
 

Leer las respuestas

#1 Mario
23/05/2007 - 23:59 | Informe spam
On 23 mayo, 13:47, "ivan" <msnews.microsoft.com> wrote:
estoy buscando una macro que permita hacer mas visible la celda
seleccionada, es decir, aumentar el tamaño de la letra, el fondo de color y
en negrita. Una vez seleccionada otra celda, la celda anterior vuelva a
tener el mismo tamaño de letra de antes, sin fondo de color y sin negrita???
gracias



Ivan,

Prueba con esta macro. Aún falta asignarle que aumente el tamaño; pero
te puede ayudar.

Atte.

Mario



Private Sub Worksheet_Calculate()
Resalta
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Resalta
End Sub
Private Sub Resalta()
Dim R As Long
Dim C As Long
Dim X As String
R = ActiveCell.Row
C = ActiveCell.Column

'If R < 6 Or R > 13 Or C > 6 Then
'Range("a6:f13").Interior.ColorIndex = 36
'Exit Sub

'Else

Range("a1:iv65536").Interior.ColorIndex = 0
Range("a1:iv65536").Font.Bold = False
ActiveCell.Interior.ColorIndex = 40
ActiveCell.Font.Bold = True
'End If
End Sub

Preguntas similares