Fråga : BehovsVisual Basic hjälp med att formatera i Excel

Hälsningar

I har sett ett liknande ifrågasätta men kunde inte få svaret för att fungera för me.

I har ett räkneark som du kan beskåda det på rel= " nofollow " " för _blank " för behov för www.genniferdoucette.com/e xcel.html

I, någon hjälp som tillfogar en VB, kodifiera.  

Sheet 1 har en kalender av 12 månader, och en legend av färgar, varje färgar föreställer en uppgift. Beställaren skulle arbetet täcker på celler för 1 fyllning med färgar detta är deras arbete planerar för året.  
So for example Januari 15th de kan behov att överföra ut ett informationsblad som de skulle påfyllningen att cellen med Blue.

Sheets 2 till och med 13 föreställer varje månad (täcka 2 är Januari).  Jag skulle behov täcker 2 automatiskt för att fylla cellen som föreställer Januari 15th med blått, en gång som det har gjorts på täcker 1.

Thank you.

" klar "

Svar : BehovsVisual Basic hjälp med att formatera i Excel

Gennifer,
Jag vet inte hur du planerade för att ändra färga av cellerna i den ledar- arbetssedeln, men det var inte lätt, då jag var att testa som var mitt, kodifierar.

Jag skrev därför ett rutinmässigt att startas, när du doubleclick en cell i kalendern. Den frågar dig vilken cell du önskar att kopiera färga från, då gör den för dig. Denna sub måste installeras i kodifiera förser med rutor för den ledar- arbetssedeln (Sheet1 i ditt tar prov arbetsboken) och ska inte arbete alls, om installerad någon annanstans!

Brad

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

Privata underWorksheet_BeforeDoubleClick (ByVal uppsätta som mål som spänner, avbryter som Boolean), Dunkel celColor som spänner, rgCalendars som spänner, targ som spänner Dunkelt I som Long, j som Long Fastställda rgCalendars = 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]) Fastställd targ = skär (uppsätta som mål, rgCalendars), Om targ är ingenting därefter, gå ut suben Annulleringen = True På felmeritförteckning därefter Fastställd celColor = Application.InputBox (”behaga klickar på cellen med färgar dig önskar att kopiera”, typ: =8) På fel GoTo 0 Om inte celColoren är ingenting därefter targ. Interior.Color = celColor.Interior.Color Avsluta om Avsluta suben