Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Зеркалировать текст в ячеке
 
#1
19.12.2021 21:43:41
Здравствуйте,
Подскажите, пожалуйста, функцию
Имеем тест: Привет123!
Нужно получить: !321тевирП
Изменено: benel - 20.12.2021 21:45:24
 
 
 
#2
19.12.2021 22:03:13
Код
Function iReverse(cell$)
  iReverse = StrReverse(cell)
End Function
 
 
 
#3
19.12.2021 22:11:05
, спасибо. А функцией это ни как не сделать? только через VBA?
 
 
 
#4
20.12.2021 08:09:55
Цитата
написал:
А функцией это ни как не сделать?
Как перевернуть слово?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
20.12.2021 08:50:01
Код
=СЦЕП(ПСТР(A1;ПОСЛЕД(50000;1;50000;-1);1))
 
 
 
#6
20.12.2021 21:49:07
Тимофеев, не помогло(
 
 
 
#7
20.12.2021 22:32:55
benel, Вариант для Excel 2019 (массивная формула)
Код
=TEXTJOIN("";1;MID(A1;LARGE(ROW($A$1:INDEX(A:A;LEN(A1)));ROW($A$1:INDEX(A:A;LEN(A1))));1))

В приложенном файле UDF повторяющая функционал штатной функции TEXTJOIN.
 
 
 
#8
20.12.2021 22:54:38
memo, у вас через макрос. Спасибо, но мне это решение не подходит
Нашёл решение интеративные вычисления (нажимая несколько раз F9
Код
=ЕСЛИ(ДЛСТР(B2)>=ДЛСТР(A2);B2;ЕСЛИ(ДЛСТР(B2)=1;ПСТР(A2;ДЛСТР(A2);1);B2)&ПСТР(A2;ДЛСТР(A2)-ДЛСТР(B2);1))

Спасибо Дмитрий(The_Prist) Щербаков
 
 
 
#9
20.12.2021 23:11:13
Цитата
benel написал:
у вас через макрос
Это не макрос. Вы невнимательно прочли пост. Я написал, что в файле использована UDF (читайте макрос) имитирующая работу функции TEXTJOIN, которая штатно присутствует в Excel 2019. Соответственно формула будет работать в Excel 2019 и выше.
Изменено: memo - 20.12.2021 23:16:11
 
 
 
#10
20.12.2021 23:16:47
memo, да вы правы. у меня 2016 и возможно из-за это возникла проблема.
Изменено: benel - 20.12.2021 23:17:01
 
 
 
Страницы: 1
Наверх