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

Preguntas similare

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
Respuesta Responder a este mensaje
#2 ivan
24/05/2007 - 00:37 | Informe spam
gracias
funciono de maravilla

"Mario" escribió en el mensaje
news:
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida