{quote}{login=}{date=09.02.2012 02:01}{thema=}{post}ну так и поставьте по дефолту русский.{/post}{/quote}
очень смешно) прошу отвечать по теме, без флуда
очень смешно) прошу отвечать по теме, без флуда
04.10.2011 11:09:50
{quote}{login=jonson}{date=04.10.2011 11:02}{thema=}{post}
здесь все подробно написано{/post}{/quote} Ок, тут все ясно, но у меня уже есть там код Private Sub Workbook_BeforePrint(Cancel As Boolean) ЛистНаКоторомНеПечататьЯчейку = "Прайс-лист БАД (ДЦ)" СекретнаяЯчейка = "I2:J2" If ActiveSheet.Name = ЛистНаКоторомНеПечататьЯчейку Then ActiveSheet.Range(СекретнаяЯчейка).Font.ColorIndex = 2 End If End Sub и как их тогда соединить? |
|
|