Pytanie : Potrzebować Wizualny Podstawowy pomoc z formatting wewnątrz Przodować

Cześć,

I zobaczyć jednakowy pytanie ale móc the odpowiedź dla me.

I mieć spreadsheet ty móc ono przy www.genniferdoucette.com/e xcel.html

I potrzeba niektóre pomoc VB kod.  

Sheet (1) mieć kalendarz 12 miesiąc i legenda kolor, (1) kolor reprezentować zadanie. The klient pracować na prześcieradło (1) plombowanie komórka z kolor (1) być ich praca plan dla the rok.  
So na przykład Styczeń 15th można na przykład gazetka wypełniać że komórka z Blue.

Sheets 2 przez 13 reprezentować 2 miesiąc (Prześcieradło 2 być Styczeń).  I potrzebować prześcieradło 2 automatycznie the komórka który reprezentować Styczeń 15th z błękit automatycznie ono zrobić na prześcieradło 1.

Thank you.

Odpowiedź : Potrzebować Wizualny Podstawowy pomoc z formatting wewnątrz Przodować

Gennifer,
I znać jak ty planować the kolor the komórka w the mistrzowski worksheet, ale ono być łatwy gdy I badać mój kod.

I tym samym napisać rutyna który wywoływać gdy ty doubleclick komórka w the kalendarz. Ono pytać ty który komórka ty chcieć the kolor od, then robić ono dla ty. Ten okręt podwodny musieć instalować w the kod tafla dla the mistrzowski worksheet (Sheet1 w twój próbka workbook), i pracować wcale jeżeli instalować gdziekolwiek inny!

Ćwiek

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

Intymny Okręt podwodny Worksheet_BeforeDoubleClick (ByVal Cel Jako Pasmo, Odwoływać Boolowski) Ciemnawy celColor Pasmo, rgCalendars Jako Pasmo, targ Pasmo Ciemnawy i Długo, j Długo Ustalony rgCalendars = Zjednoczenie ([A5: G9], [I5: O9], [Q5: W9], [A13: G17], [I13: O17], [Q13: W17], _ [A21: G25], [I21: O25], [Q21: W25], [A29: G33], [I29: O33], [Q29: W33]) Ustalony targ = Przecinać (Cel, rgCalendars) Jeżeli targ Być Okręt podwodny Wtedy Wychodzić Okręt podwodny Odwoływać = Prawdziwy Na Błąd Wznawiać Następnie Ustalony celColor = Application.InputBox ("Zadawalać klikać dalej the komórka z kolor ty chcieć", Pisać Na Maszynie: =8) Na Błąd Rozpoczynający (0) Jeśli nie celColor Być Nic Wtedy targ. Interior.Color = celColor.Interior.Color Kończyć Jeżeli Kończyć Okręt podwodny