Добрый день! Подскажите пожалуйста как правильно выполнить следующую задачу: - есть колонка с цифрами ( допустим от 100 до 2000) - есть текстовый список Нужно заменить в автоматическом режиме все числа равные 100 в столбце на текст "привет", цифру 101 на "привет 1" и т.д. Количество объектов более 1000. В автоматическом режиме имеется введу, как только в ячейку попадает число например 100 оно изменяется на текст "привет".
Добрый день! Подскажите пожалуйста как правильно выполнить следующую задачу: - есть колонка с цифрами ( допустим от 100 до 2000) - есть текстовый список Нужно заменить в автоматическом режиме все числа равные 100 в столбце на текст "привет", цифру 101 на "привет 1" и т.д. Количество объектов более 1000. В автоматическом режиме имеется введу, как только в ячейку попадает число например 100 оно изменяется на текст "привет".Dmitriy19992
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b:b")) Is Nothing Then u = Target.Value v = Application.Match(u, Range("c:c"), 0) w = Application.IsNumber(v) If w Then Target = Application.Index(Range("d:d"), v) End If End Sub
[/vba]
в модуль листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b:b")) Is Nothing Then u = Target.Value v = Application.Match(u, Range("c:c"), 0) w = Application.IsNumber(v) If w Then Target = Application.Index(Range("d:d"), v) End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
