Vraag : De Visuele Basishulp van de behoefte met het formatteren in Excel

Hello, heeft

I gezien een gelijkaardige vraag maar niet het antwoord kunnen ertoe brengen om te werken want me.

I een spreadsheet hebben u het bij www.genniferdoucette.com/e xcel.html

I vereist één of andere hulp toevoegend een code VB.  

Sheet 1 heeft een kalender van 12 maanden en een legende van kleuren, elke kleur vertegenwoordigt een taak. De cliënt zou aan blad 1 vullende cellen met kleuren werken dit hun werkplan voor het jaar is.  
So bijvoorbeeld 15 Januari zouden zij een bulletin kunnen moeten sturen dat zij dat de cel met Blue.

Sheets 2 door 13 elke maand zou vullen vertegenwoordigt (Blad 2 is Januari).  Ik zou blad 2 nodig hebben om de cel automatisch te vullen die 15 Januari met blauw vertegenwoordigt zodra het op blad 1.

Thank you.

 is gedaan

Antwoord : De Visuele Basishulp van de behoefte met het formatteren in Excel

Gennifer,
Ik weet niet hoe u van plan was om de kleur van de cellen in het hoofdaantekenvel te veranderen, maar het was niet gemakkelijk toen ik mijn code testte.

Ik schreef daarom een routine die wordt teweeggebracht wanneer u een cel in de kalender dubbelklikt. Het vraagt u welke cel u de kleur van wilt kopiëren, dan doet het voor u. Dit sub moet in de coderuit voor het hoofdaantekenvel (Sheet1 in uw steekproefwerkboek) worden geïnstalleerdk, en zal niet bij allen indien nergens anders geïnstalleerde werken!

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

Privé SubWorksheet_BeforeDoubleClick (het Doel ByVal als Waaier, annuleert Van Boole)
Schemerige celColor als Waaier, rgCalendars als Waaier, targ als Waaier
Schemerige I zoals lang, j zoals lang
Reeks rgCalendars = Unie ([A5: G9], [I5: O9], [Q5: W9], [A13: G17], [I13: O17], [Q13: W17], _
    [A21: G25], [I21: O25], [Q21: W25], [A29: G33], [I29: O33], [Q29: W33])
De reeks targ = snijdt (Doel, rgCalendars)
Als targ niets toen is ga Sub weg

Annuleer = Waar
Op Fout hervat daarna
Plaats celColor = Application.InputBox („gelieve te klikken op de cel met kleur u wilt kopiëren“, Type: =8)
Op Fout GoTo 0
Als niet celColor dan niets is
    targ. Interior.Color = celColor.Interior.Color
Eind als
Sub van het eind
Andere oplossingen  
 
programming4us programming4us