Excel 2013 Cambiar Color a celdas especificas desde vba
Publicado por perro (2 intervenciones) el 02/04/2017 22:21:29
Buenos días
bueno si yo abro un excel y le doy
"alt + F11"
>insertar< ,>modulo<
y en el modulo escribo
__________________________________________________
le vuelvo a dar "alt + F11"
Ahora en la hoja de excel me paro en la celda B1 y escribo
=cambiarcolor(C1)
me sale una msgbox diciendo "1" y luego otra diciendo "3"
pero la celda C1 no cambia de color
Y realmente no doy en que estoy fallando
tampoco funciona si le digo que
Range("C3").Interior.Color = RGB(255, 0, 0)
##########################################################3
Alguien podría explicarme que estoy haciendo mal ?? que yo ya no entiendo
Estoy usando Excel 2013 tengo la pestaña de des arrollador oculta pero activarla no hace diferencia
estoy guardando el excel como archivo habilitado para macros
y estoy usando windows 7 de 64b
Muchas gracias.
bueno si yo abro un excel y le doy
"alt + F11"
>insertar< ,>modulo<
y en el modulo escribo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function cambiarcolor(d As Range)
End Function
Dim fila As Integer, column As Integerfila = d.Row
column = d.column
MsgBox fila
MsgBox column
Range(Cells(fila, column)).Interior.Color = RGB(255, 0, 0)
End Function
le vuelvo a dar "alt + F11"
Ahora en la hoja de excel me paro en la celda B1 y escribo
=cambiarcolor(C1)
me sale una msgbox diciendo "1" y luego otra diciendo "3"
pero la celda C1 no cambia de color
Y realmente no doy en que estoy fallando
tampoco funciona si le digo que
Range("C3").Interior.Color = RGB(255, 0, 0)
##########################################################3
Alguien podría explicarme que estoy haciendo mal ?? que yo ya no entiendo
Estoy usando Excel 2013 tengo la pestaña de des arrollador oculta pero activarla no hace diferencia
estoy guardando el excel como archivo habilitado para macros
y estoy usando windows 7 de 64b
Muchas gracias.
Valora esta pregunta
0