Добрый день! Прошу Вашей помощи!!! В excel нужно реализовать следующее: если вводим значение в столбец B нужный диапазон выделялся тонкой границей, а если вводим значение в столбец A тогда выделение нужно только сверху и обязательно жирной линией. Смог реализовать это через условное форматирование выделение тонкими линиями, но в условном форматировании не предусмотрены жирные линии, поэтому думаю, что реализовать это возможно только через макрос... Но я дуб дубом в нем, понятия не имею как на нем писать((( А задачу нужно как-то решить((( Поэтому прошу помощи у Вас, буду рад любым полезным ссылкам, ответам, наставлениям! нашел такой кусок кода:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("B:B" <img rel="usm" src="http://www.excelworld.ru/sml2/wink.gif" border="0" align="absmiddle" alt=";)" /> , Target) Is Nothing Then Cells.Borders.LineStyle = xlNone iRow = Range("B" & Rows.Count).End(xlUp).Row If iRow > 1 Then Set IRange = Range("A13:L" & iRow) IRange.Borders.LineStyle = xlContinuous IRange.Borders(xlInsideHorizontal).LineStyle = xlContinuous IRange.Borders(xlInsideVertical).LineStyle = xlContinuous IRange.Borders.Weight = xlThin End If End If End Sub
[/vba]
Выделяет тонкой границей при вводе с столбец B, но как задать выделение в столбце A??? П.С. файл прилагаю
Добрый день! Прошу Вашей помощи!!! В excel нужно реализовать следующее: если вводим значение в столбец B нужный диапазон выделялся тонкой границей, а если вводим значение в столбец A тогда выделение нужно только сверху и обязательно жирной линией. Смог реализовать это через условное форматирование выделение тонкими линиями, но в условном форматировании не предусмотрены жирные линии, поэтому думаю, что реализовать это возможно только через макрос... Но я дуб дубом в нем, понятия не имею как на нем писать((( А задачу нужно как-то решить((( Поэтому прошу помощи у Вас, буду рад любым полезным ссылкам, ответам, наставлениям! нашел такой кусок кода:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("B:B" <img rel="usm" src="http://www.excelworld.ru/sml2/wink.gif" border="0" align="absmiddle" alt=";)" /> , Target) Is Nothing Then Cells.Borders.LineStyle = xlNone iRow = Range("B" & Rows.Count).End(xlUp).Row If iRow > 1 Then Set IRange = Range("A13:L" & iRow) IRange.Borders.LineStyle = xlContinuous IRange.Borders(xlInsideHorizontal).LineStyle = xlContinuous IRange.Borders(xlInsideVertical).LineStyle = xlContinuous IRange.Borders.Weight = xlThin End If End If End Sub
[/vba]
Выделяет тонкой границей при вводе с столбец B, но как задать выделение в столбце A??? П.С. файл прилагаюRoma_Roma
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
