дана строка из 10 ячеек 1) если я ставлю число "3" в третью ячейку, Excel закрашивает три ячейки начиная с данной, далее я ставлю число "2" в четвертую ячейку, Excel закрашивает две ячейки, но уже после закрашенных 2) а если я поставлю число "5" но уже после закрашенных ячеек, то нужно чтобы закраска этих пяти ячеек началась с этой ячейки (где стоит число "5")
Доброго времени суток, очень нужна помощь.
дана строка из 10 ячеек 1) если я ставлю число "3" в третью ячейку, Excel закрашивает три ячейки начиная с данной, далее я ставлю число "2" в четвертую ячейку, Excel закрашивает две ячейки, но уже после закрашенных 2) а если я поставлю число "5" но уже после закрашенных ячеек, то нужно чтобы закраска этих пяти ячеек началась с этой ячейки (где стоит число "5")Dadec
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:N20")) Is Nothing Then If IsNumeric(Target.Value) Then Range(Target, Target.Offset(, Target.Value - 1)).Interior.ColorIndex = Target.Value + 2 End If End If End Sub
[/vba]
Область действия ограничена Range("A1:N20") Target.Value + 2 потому, что для 1 и 2 заливка никакая (чёрная и белая), поэтому сдвинул палитру
Здравствуйте. Такой вариант посмотрите: [vba]
Код
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:N20")) Is Nothing Then If IsNumeric(Target.Value) Then Range(Target, Target.Offset(, Target.Value - 1)).Interior.ColorIndex = Target.Value + 2 End If End If End Sub
[/vba]
Область действия ограничена Range("A1:N20") Target.Value + 2 потому, что для 1 и 2 заливка никакая (чёрная и белая), поэтому сдвинул палитру Hugo
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
