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

Вход

Регистрация

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

 

= Мир MS Excel/Вставить тест в ячейку согласно условию. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Вставить тест в ячейку согласно условию.
Mark1976 Дата: Пятница, 28.04.2023, 09:02 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 749
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. Я работаю с файлами, где в одной из колонок стоят цифры (зашифрованы названия СМО). Мне нужен макрос, которые будет автоматически проставлять начиная с ячейки Е5 и вниз где есть данные названия СМО в виде текста. Заменить: 8 на Согаз, 15 на Капитал, 14 на Макс-М. Заранее спасибо за решение.
К сообщению приложен файл: reestr.xlsx (82.9 Kb)
 
Ответить
СообщениеЗдравствуйте. Я работаю с файлами, где в одной из колонок стоят цифры (зашифрованы названия СМО). Мне нужен макрос, которые будет автоматически проставлять начиная с ячейки Е5 и вниз где есть данные названия СМО в виде текста. Заменить: 8 на Согаз, 15 на Капитал, 14 на Макс-М. Заранее спасибо за решение.

Автор - Mark1976
Дата добавления - 28.04.2023 в 09:02
Апострофф Дата: Пятница, 28.04.2023, 09:13 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 451
Репутация: 125 ±
Замечаний: 0% ±

Excel 1997
[vba]
Код
Sub Mark()
Dim R&
For R = 5 To Cells(Rows.Count, "E").End(xlUp).Row
  Select Case Cells(R, "E")
    Case 8: Cells(R, "E") = "Согаз"
    Case 15: Cells(R, "E") = "Капитал"
    Case 14: Cells(R, "E") = "Макс-М"
  End Select
Next R
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Mark()
Dim R&
For R = 5 To Cells(Rows.Count, "E").End(xlUp).Row
  Select Case Cells(R, "E")
    Case 8: Cells(R, "E") = "Согаз"
    Case 15: Cells(R, "E") = "Капитал"
    Case 14: Cells(R, "E") = "Макс-М"
  End Select
Next R
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 28.04.2023 в 09:13
Mark1976 Дата: Пятница, 28.04.2023, 10:04 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 749
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Апострофф, спасибо большое.
 
Ответить
СообщениеАпострофф, спасибо большое.

Автор - Mark1976
Дата добавления - 28.04.2023 в 10:04
RAN Дата: Пятница, 28.04.2023, 13:58 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub Мяу()
    With Columns("E")
        .Replace 8, "Согаз"
        .Replace 14, "Макс-М"
        .Replace 15, "Капитал"
    End With
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub Мяу()
    With Columns("E")
        .Replace 8, "Согаз"
        .Replace 14, "Макс-М"
        .Replace 15, "Капитал"
    End With
End Sub
[/vba]

Автор - RAN
Дата добавления - 28.04.2023 в 13:58
  • Страница 1 из 1
  • 1
Поиск:

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