Pergunta : Ajuda de Visual Basic da necessidade com formato em Excel

Olá!, o

I considerou uma pergunta similar mas não poderia conseguir a resposta trabalhar para me.

I tem um spreadsheet que você pode o ver no rel= " nofollow " do " _blank " " do target= de " http://www.genniferdoucette.com/excel.html do href= do necessidade do xcel.html

I de www.genniferdoucette.com/e alguma ajuda que adiciona um código de VB.  o

Sheet 1 tem um calendário de 12 meses e uma legenda das cores, cada cor representa uma tarefa. O cliente trabalharia em pilhas do enchimento da folha 1 com cores que esta é sua planta de trabalho por o ano.  
So por exemplo 15° de janeiro puderam precisar de mandar um boletim de notícias que se encheriam que a pilha com Blue.

Sheets 2 a 13 representa cada mês (a folha 2 é janeiro).  Eu preciso a folha 2 de encher automaticamente a pilha que representa o 15° de janeiro com o azul foi feita uma vez que na folha 1.

Thank you.

 class= do

Resposta : Ajuda de Visual Basic da necessidade com formato em Excel

Gennifer,
Eu não sei você planeou mudar a cor das pilhas na folha mestra, mas não era fácil quando eu testava meu código.

Eu escrevi conseqüentemente uma rotina que fosse provocada quando você doubleclick uma pilha no calendário. Pergunta-lhe que pilha você quer copiar a cor, a seguir fá-lo para você. Este submarino deve ser instalado na placa do código para a folha mestra (Sheet1 em seu manual de instruções da amostra), e não trabalhará de todo se instalado seja là onde for!

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

Worksheet_BeforeDoubleClick secundário confidencial (alvo de ByVal como a escala, o cancelamento como bôoleano)
celColor não ofuscante como a escala, rgCalendars como a escala, targ como a escala
Escurecer i como por muito tempo, j como por muito tempo
Ajustar rgCalendars = união ([A5: G9], [I5: O9], [Q5: W9], [A13: G17], [I13: O17], [Q13: W17], _
    [A21: G25], [I21: O25], [Q21: W25], [A29: G33], [I29: O33], [Q29: W33])
Ajustar o targ = cruzam-se (alvo, os rgCalendars)
Se o targ não é nada então retirar o submarino

O cancelamento = retifica
No resumo do erro em seguida
Ajustar o celColor = o Application.InputBox (“estalar por favor sobre a pilha com cor que você quer copiar”, a datilografar: =8)
No erro 0 empreendedores
Se não o celColor não é nada então
    targ. Interior.Color = celColor.Interior.Color
Terminar se
Terminar o submarino
Outras soluções  
 
programming4us programming4us