Замена окончания в текстовых значениях - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Замена окончания в текстовых значениях (Формулы/Formulas)

Замена окончания в текстовых значениях

122334boss

Дата: Суббота, 07.02.2015, 02:51 | Сообщение № 21

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 20% ±

_Boroda_,

можно будут узнать ответ на
"_Boroda_,
кстати ради эксперимента, заменил МНМН на 1212 формула работает не корректно...
но если МНМН на 121Н все отлично..."

почему так происходит? или формула с цифрами не работает?

Ответить

_Boroda_

Дата: Суббота, 07.02.2015, 03:03 | Сообщение № 22

Группа: Админы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата 122334boss, 07.02.2015 в 02:51, в сообщении № 26

можно будут узнать ответ на

Да не вопрос

Код

=ЛЕВБ(B4;ДЛСТР(B4)-МАКС((ПРАВБ(B4;СТРОКА($1:$4))=$K$2:$N$2&"")*СТРОКА($1:$4)))&ИНДЕКС(K$3:N$3;МАКС((ПРАВБ(B4;ДЛСТР(K$2:N$2))=K$2:N$2&"")*СТОЛБЕЦ(A:D)))

К сообщению приложен файл: 1541894_5.xls (30.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

122334boss

Дата: Суббота, 07.02.2015, 03:15 | Сообщение № 23

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 20% ±

Всем огромное спасибо!!!

Ответить

122334boss

Дата: Суббота, 07.02.2015, 21:56 | Сообщение № 24

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 20% ±

_Boroda_,
добрый день!

Просто для информации, может кому-то пригодится.
Немного сегодня по экспериментировал с данными и вот, что получилось.
В таблице если нужно заменить например "КК" и "К" работает только одна формула.
В примере подробности.

Всем хорошего вечера!

Ответить

122334boss

Дата: Суббота, 07.02.2015, 21:57 | Сообщение № 25

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 20% ±

_Boroda_,
файл не прикрепился, добавил здесь

К сообщению приложен файл: 3793170.xls (30.5 Kb)

Ответить

AlexM

Дата: Суббота, 07.02.2015, 22:07 | Сообщение № 26

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

В файле сообщения №28 формула New3 "проглатывает" и числовые значения

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

122334boss

Дата: Суббота, 07.02.2015, 22:21 | Сообщение № 27

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 20% ±

AlexM,
ваша New 3 тоже отлично работает!!!

Ответить

vikttur

Дата: Суббота, 07.02.2015, 22:44 | Сообщение № 28

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Разбито на две части, которые объединяются:

Код

=ЛЕВСИМВ(B4;ДЛСТР(B4)-МАКС(ЕСЛИ(ПРАВБ(B4;ДЛСТР($E$2:$H$2))=$E$2:$H$2;ДЛСТР($E$2:$H$2))))

Код

=ИНДЕКС($E$3:$H$3;МАКС(ЕСЛИ(ПРАВБ(B4;ДЛСТР(B4)-ДЛСТР(C4))=$E$2:$H$2;СТОЛБЕЦ($E$2:$H$2)-4)))

К сообщению приложен файл: 6655013.xls (25.5 Kb)

Ответить

МВТ

Дата: Воскресенье, 08.02.2015, 17:41 | Сообщение № 29

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Простите дилетанта, господа, но возможно так будет проще?

Код

=ЕСЛИ(ПРАВСИМВ(B11;4) = "МНМН"; ЛЕВСИМВ(B11; ДЛСТР(B11)-4)&"КК";ЕСЛИ(ПРАВСИМВ(B11;3) = "АПП"; ЛЕВСИМВ(B11; ДЛСТР(B11)-3)&"ККК";ЕСЛИ(ПРАВСИМВ(B11;2) = "МН"; ЛЕВСИМВ(B11; ДЛСТР(B11)-2)&"К";ЕСЛИ(ПРАВСИМВ(B11;1) = "Ы"; ЛЕВСИМВ(B11; ДЛСТР(B11)-1)&"КА"))))

Ответить

AlexM

Дата: Воскресенье, 08.02.2015, 19:49 | Сообщение № 30

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

МВТ, интересно какая будет формула если замен будет не 4, а 200?

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

МВТ

Дата: Воскресенье, 08.02.2015, 21:02 | Сообщение № 31

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

AlexM, длииииииииинная

Ответить

МВТ

Дата: Понедельник, 09.02.2015, 21:27 | Сообщение № 32

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

С учетом сделанного AlexM замечания, хочу предложить более простой способ, который, помимо прочего, позволит динамически изменять список замен. Вот такая вот функция:
[vba]

Код

Function НовыйАртикул(ByVal Артикул As String, Вариант As Range) As Variant
Dim I As Long
Dim S As String
  With Вариант
   If .Columns.Count <> 2 Then
   НовыйАртикул = CVErr(xlErrRef)
   Exit Function
  End If
  For I = 1 To .Rows.Count
     S = .Cells(I, 1)
     If (Артикул Like "*" & S) Then
     НовыйАртикул = Left(Артикул, Len(Артикул) - Len(S)) & .Cells(I, 2)
     Exit For
     Else: НовыйАртикул = CVErr(xlErrValue)
     End If
    Next I
   End With
End Function

[/vba]
Получает 2 аргумента: строку, в которой надо произвести замену и ссылку на диапазон из 2-х столбцов, где в первом варианты окончаний, а во втором - соответствующие ему замены. Если количество столбцов в диапазоне <>2, возвращает #ССЫЛКА!, если вариант отсутствует - #ЗНАЧ!

Ответить

Замена окончания в текстовых значениях (Формулы/Formulas)

Страница 2 из 2
«
1
2