Frage : Notwendigkeits-Visual- Basichilfe bei der Formatisierung in Excel

Hallo, haben

I gesehen, eine ähnliche Frage aber die Antwort nicht erhalten konnten, um für me.

I zu arbeiten haben einen Verteilungsbogen, den Sie ihn www.genniferdoucette.com/e xcel.html

I Notwendigkeit etwas Hilfe, die einen VB Code addiert.  

Sheet 1 hat einen Kalender von 12 Monaten und eine Legende von Farben, jede Farbe stellt eine Aufgabe dar. Der Klient würde an Füllungszellen des Blattes 1 mit Farben arbeiten, die dieses ihr Arbeitsplan für das Jahr ist.  
So zum Beispiel 15. Januar konnten sie ein Rundschreiben aussenden müssen, das sie füllen würden, dass Zelle mit Blue.

Sheets 2 bis 13 jeden Monat darstellen (Blatt 2 ist Januar).  Ich wurde benötige Blatt 2, die Zelle automatisch zu füllen, die 15. Januar mit Blau darstellt, einmal, das es auf Blatt 1.

Thank you.

getan worden ist

Antwort : Notwendigkeits-Visual- Basichilfe bei der Formatisierung in Excel

Gennifer,
Ich kann nicht, Sie planten, die Farbe der Zellen im Vorlagenarbeitsblatt zu ändern, aber es war nicht einfach, als ich meinen Code prüfte.

Ich schrieb folglich ein Programm, das ausgelöst wird, wenn Sie eine Zelle im Kalender doubleclick. Von er fragt Sie, welcher Zelle Sie kopieren möchten die Farbe, dann tut es für Sie. Dieses Unterseeboot muss in die Codescheibe für das Vorlagenarbeitsblatt (Sheet1 in Ihrem Beispielarbeitsbuch) angebracht werden und wird nicht an allen arbeiten, wenn es irgendwoanders angebracht wird!

Brad

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

Privates VorWorksheet_BeforeDoubleClick (ByVal Ziel als Strecke, Löschen, wie Boolesch) Schwaches celColor als Strecke, rgCalendars als Strecke, targ als Strecke I als lang, J als lang verdunkeln rgCalendars = Anschluss einstellen ([A5: G9], [I5: O9], [Q5: W9], [A13: G17], [I13: O17], [Q13: W17], _ [A21: G25], [I21: O25], [Q21: W25], [A29: G33], [I29: O33], [Q29: W33]) Targ einstellen = schneiden (Ziel, rgCalendars) Wenn targ nichts dann ist, Unterseeboot herausnehmen Löschen = richtet aus Auf Störungs-Zusammenfassung zunächst celColor = Application.InputBox einstellen („die Zelle mit Farbe bitte an klicken, die Sie kopieren möchten“, schreiben: =8) Auf Störung Goto- 0 Wenn nicht celColor nichts dann ist targ. Interior.Color = celColor.Interior.Color Beenden wenn Unterseeboot beenden