Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена определённого числа на определённый текст - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена определённого числа на определённый текст (Макросы/Sub)
Замена определённого числа на определённый текст
Dmitriy19992 Дата: Понедельник, 23.11.2020, 17:59 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день!
Подскажите пожалуйста как правильно выполнить следующую задачу:
- есть колонка с цифрами ( допустим от 100 до 2000)
- есть текстовый список
Нужно заменить в автоматическом режиме все числа равные 100 в столбце на текст "привет", цифру 101 на "привет 1" и т.д.
Количество объектов более 1000.
В автоматическом режиме имеется введу, как только в ячейку попадает число например 100 оно изменяется на текст "привет".
 
Ответить
СообщениеДобрый день!
Подскажите пожалуйста как правильно выполнить следующую задачу:
- есть колонка с цифрами ( допустим от 100 до 2000)
- есть текстовый список
Нужно заменить в автоматическом режиме все числа равные 100 в столбце на текст "привет", цифру 101 на "привет 1" и т.д.
Количество объектов более 1000.
В автоматическом режиме имеется введу, как только в ячейку попадает число например 100 оно изменяется на текст "привет".
Автор - Dmitriy19992
Дата добавления - 23.11.2020 в 17:59
Kuzmich Дата: Понедельник, 23.11.2020, 20:09 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Цитата
Подскажите пожалуйста как правильно выполнить следующую задачу

Приложить, по крайней мере, пример
 
Ответить
Сообщение
Цитата
Подскажите пожалуйста как правильно выполнить следующую задачу

Приложить, по крайней мере, пример
Автор - Kuzmich
Дата добавления - 23.11.2020 в 20:09
Dmitriy19992 Дата: Вторник, 24.11.2020, 09:10 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Kuzmich, прикладываю
К сообщению приложен файл: 0005225.xlsx (10.5 Kb)
 
Ответить
СообщениеKuzmich, прикладываю
Автор - Dmitriy19992
Дата добавления - 24.11.2020 в 09:10
Nic70y Дата: Вторник, 24.11.2020, 09:32 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
в модуль листа
[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
[/vba]
К сообщению приложен файл: 0005225.xlsm (15.8 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениев модуль листа
[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
[/vba]
Автор - Nic70y
Дата добавления - 24.11.2020 в 09:32
Dmitriy19992 Дата: Пятница, 27.11.2020, 10:23 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, Спасибо большое, работает)
 
Ответить
СообщениеNic70y, Спасибо большое, работает)
Автор - Dmitriy19992
Дата добавления - 27.11.2020 в 10:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена определённого числа на определённый текст (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!