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
Inne rozwiązania  
 
programming4us programming4us