Cuestión : Ayuda de Visual Basic de la necesidad con la configuración en Excel

Hola, el

I ha considerado una pregunta similar pero no podría conseguir la respuesta para trabajar para me.

I tiene una hoja de balance que usted puede verla en el rel= " nofollow " del " _blank " del target= de " http://www.genniferdoucette.com/excel.html " del href= del necesidad del xcel.html

I de www.genniferdoucette.com/e una cierta ayuda que agrega un código de VB.  el

Sheet 1 tiene un calendario de 12 meses y una leyenda de colores, cada color representa una tarea. El cliente trabajaría en las células del relleno de la hoja 1 con colores que éste es su plan de trabajo por el año.  
So por ejemplo 15 de enero puede ser que necesiten enviar un boletín de noticias que llenarían que la célula con Blue.

Sheets 2 a 13 representa cada mes (la hoja 2 es enero).  Necesito la hoja 2 llenar automáticamente la célula que representa el 15 de enero con el azul que se ha hecho una vez en la hoja 1.

Thank you.

 class= del

Respuesta : Ayuda de Visual Basic de la necesidad con la configuración en Excel

Gennifer,
No sé usted planeó cambiar el color de las células en la hoja de trabajo principal, pero no era fácil cuando probaba mi código.

Por lo tanto escribí una rutina se acciona que cuando usted doubleclick una célula en el calendario. Le pregunta qué célula usted quiere copiar el color, después lo hace para usted. ¡Este submarino se debe instalar en el cristal del código para la hoja de trabajo principal (Sheet1 en su libro de trabajo de la muestra), y no trabajará en absoluto si está instalado en cualquier otro lugar!

Brad
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Worksheet_BeforeDoubleClick secundario privado (blanco de ByVal como gama, cancelación como boleana)
celColor dévil como gama, rgCalendars como gama, targ como gama
Amortiguar i como de largo, j como de largo
Fijar los rgCalendars = la unión ([A5: G9], [I5: O9], [Q5: W9], [A13: G17], [I13: O17], [Q13: W17], _
    [A21: G25], [I21: O25], [Q21: W25], [A29: G33], [I29: O33], [Q29: W33])
Fijar el targ = se intersecan (blanco, los rgCalendars)
Si el targ no es nada entonces salir el submarino

La cancelación = verdad
En curriculum vitae del error después
Fijar el celColor = Application.InputBox (“chascar por favor encendido la célula con color que usted quiere copiar”, mecanografiar: =8)
En el error 0 indicado
Si no el celColor entonces no es nada
    targ. Interior.Color = celColor.Interior.Color
Terminar si
Terminar el submarino
Otras soluciones  
 
programming4us programming4us