Questione : Aiuto del Visual Basic di bisogno con la formattazione in Excel

Ciao, il

I ha veduto una simile domanda ma non potrebbe convincere la risposta per funzionare per me.

I ha un foglio elettronico che potete osservarli al rel= " nofollow " " del _blank " " del target= " di http://www.genniferdoucette.com/excel.html del href= di bisogno del xcel.html

I di www.genniferdoucette.com/e un certo aiuto che aggiunge un codice di VB.  il

Sheet 1 ha un calendario di 12 mesi e una leggenda dei colori, ogni colore rappresenta un'operazione. Il cliente lavorerebbe alle cellule del materiale da otturazione dello strato 1 con i colori che questo è il loro programma di lavoro per l'anno.  
So per esempio 15 gennaio potrebbero avere bisogno di di spedire un bollettino che avrebbero riempito che la cellula con Blue.

Sheets da 2 a 13 rappresenta ogni mese (strato 2 è gennaio).  ho bisogno dello strato 2 di riempire automaticamente la cellula che rappresenta il 15 gennaio con l'azzurro è stato fatto una volta che sullo strato 1.

Thank you.

class= del

Risposta : Aiuto del Visual Basic di bisogno con la formattazione in Excel

Gennifer,
Non so avete progettato di cambiare il colore delle cellule nel manuale matrice, ma non era facile quando stavo verificando il mio codice.

Quindi ho scritto una procedura che è innescata quando doubleclick una cellula nel calendario. Gli chiede quale cellula volete copiare il colore, quindi glie l'fa per. Questo sommergibile deve essere installato nella lastra di vetro di codice per il manuale matrice (Sheet1 in vostro libro di esercizi del campione) e non funzionerà affatto se installato in qualsiasi altro luogo!

Chiodino a testa laterale

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

Worksheet_BeforeDoubleClick secondario riservato (obiettivo di ByVal come gamma, annullamento come booleano) celColor fioco come gamma, rgCalendars come gamma, targ come gamma Oscurare la i come lungamente, J come lungamente Regolare i rgCalendars = l'unione ([A5: G9], [I5: O9], [Q5: W9], [A13: G17], [I13: O17], [Q13: W17], _ [A21: G25], [I21: O25], [Q21: W25], [A29: G33], [I29: O33], [Q29: W33]) Regolare il targ = intersecano (obiettivo, rgCalendars) Se il targ è niente allora uscire il sommergibile L'annullamento = allinea Sul riassunto di errore dopo Regolare il celColor = Application.InputBox (“scattare prego sopra la cellula con colore che volete copiare„, scriv: =8) Sull'errore 0 di avanzamento Se non il celColor allora è niente targ. Interior.Color = celColor.Interior.Color Concluder se Concludere il sommergibile