Вопрос : Помощь Висуал Басич потребности с форматировать в Эксел

Здравствулте!,

I увидело подобный вопрос но не smogло получить, что ответ работало для me.

I имеет электронная таблица, котор вы можете осмотреть его на rel= " nofollow " " _blank " " target= " http://www.genniferdoucette.com/excel.html href= потребность xcel.html

I www.genniferdoucette.com/e некоторая помощь добавляя Кодего VB.  

Sheet 1 имеет календар 12 месяцев и сказание цветов, каждый цвет представляет задачу. Клиент работал бы на клетках завалки листа 1 с цветами, котор это будет их рабочий план на год.  
So например 15-ое января они могли послать вне информационый бюллетень, котор они заполнили бы что клетка с Blue.

Sheets 2 до 13 представляет каждый месяц (лист 2 будет январь).  Мне нужно лист 2 автоматически заполнить клетку представляет 15-ое января с синью раз, котор она была сделана на листе 1.

Thank you.

class=

Ответ : Помощь Висуал Басич потребности с форматировать в Эксел

Gennifer,
Я не умею как вы запланировали изменить цвет клеток в мастерском рабочий лист, но не было легко когда я испытывал мое Кодего.

Я поэтому написал режим вызван когда вы doubleclick клетка в календаре. Он спрашивает вам которой клетки вы хотите скопировать цвет от, тогда делает его для вас. Эту подводную лодку необходимо установить в форточку Кодего для мастерского рабочий лист (Sheet1 в вашем workbook образца), и не будет работать на всех если установлено в другом месте!

Брэд

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

Приватное Sub Worksheet_BeforeDoubleClick (цель ByVal как ряд, Cancel как булевско) Тусклое celColor как ряд, rgCalendars как ряд, targ как ряд Затемните I как длиной, j как длиной Установите rgCalendars = соединение ([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 = пересеките (цель, rgCalendars) Если targ ничего после этого, то выходите подводная лодка Cancel = True На резюме ошибки затем Установите celColor = Application.InputBox («пожалуйста щелкните дальше клеткой с цветом, котор вы хотите скопировать», напечатайте на машинке: =8) На ошибке переход 0 Если не celColor ничего после этого targ. Interior.Color = celColor.Interior.Color Закончитесь если Закончите подводную лодку