Question : Aide de Visual Basic du besoin avec la composition dans Excel

Bonjour, le

I ont vu une question semblable mais ne pourraient pas obtenir la réponse pour fonctionner pour me.

I ont un bilan que vous pouvez le regarder au rel= " nofollow " de " _blank " de target= de " http://www.genniferdoucette.com/excel.html " de href= de le besoin du xcel.html

I de www.genniferdoucette.com/e de l'aide ajoutant un code de VB.  le

Sheet 1 a un calendrier de 12 mois et une légende de couleurs, chaque couleur représente une tâche. Le client travaillerait aux cellules de remplissage de la feuille 1 avec des couleurs que c'est leur plan de travail pendant l'année.  
So par exemple 15 janvier ils pourraient devoir envoyer un bulletin qu'ils rempliraient que la cellule avec Blue.

Sheets 2 à 13 représentent chaque mois (la feuille 2 est janvier).  Je ai besoin de feuille 2 pour remplir automatiquement cellule qui représente le 15 janvier avec le bleu une fois qu'elle a été faite sur la feuille 1.

Thank you.

class= de

Réponse : Aide de Visual Basic du besoin avec la composition dans Excel

Gennifer,
Je ne sais pas vous avez prévu de changer la couleur des cellules dans la feuille de travail principale, mais il n'était pas facile quand j'examinais mon code.

J'ai donc écrit une routine qui est déclenchée quand vous doubleclick une cellule dans le calendrier. Il te demande de quelle cellule vous voulez copier la couleur, puis le fait pour vous. Ce sous-marin doit être installé dans le carreau de code pour la feuille de travail principale (Sheet1 en votre cahier de travail témoin), et ne travaillera pas du tout s'installé n'importe où ailleurs !

Brad

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

Worksheet_BeforeDoubleClick secondaire privé (cible de ByVal comme gamme, annulation comme booléenne) Faible celColor comme gamme, rgCalendars comme gamme, targ comme gamme Obscurcir I en tant que longtemps, j en tant que longtemps Placer les rgCalendars = l'union ([A5 : G9], [I5 : O9], [Q5 : W9], [A13 : G17], [I13 : O17], [Q13 : W17], _ [A21 : G25], [I21 : O25], [Q21 : W25], [A29 : G33], [I29 : O33], [Q29 : W33]) Placer le targ = intersectent (cible, rgCalendars) Si le targ n'est rien puis sortir le sous-marin L'annulation = rectifient Sur le résumé d'erreur après Placer le celColor = l'Application.InputBox (« cliquer svp dessus la cellule avec la couleur que vous voulez copier », dactylographier : =8) Sur l'erreur 0 GoTo Sinon le celColor n'est rien alors targ. Interior.Color = celColor.Interior.Color Finir si Finir le sous-marin