Как извлечь из ячейки тип формат валюты с помощью формулы?
AlexM
Дата: Понедельник, 07.04.2014, 11:01 |
Сообщение № 21
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
Понятно что другой. Поставленную задачу не решает. В задаче не оговаривалась валюта и каким форматом ее сделали. Это в файле образце две валюты, а в реальном файле может быть больше.
Понятно что другой. Поставленную задачу не решает. В задаче не оговаривалась валюта и каким форматом ее сделали. Это в файле образце две валюты, а в реальном файле может быть больше. AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение Понятно что другой. Поставленную задачу не решает. В задаче не оговаривалась валюта и каким форматом ее сделали. Это в файле образце две валюты, а в реальном файле может быть больше. Автор - AlexM Дата добавления - 07.04.2014 в 11:01
ikki
Дата: Понедельник, 07.04.2014, 11:06 |
Сообщение № 22
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация:
504
±
Замечаний:
0% ±
Excel 2003, 2010
вариант[vba]Код
Function v(rr As Range) With CreateObject("vbscript.regexp") .Pattern = "[^-().,' \xA0\d]+" v = .Execute(rr.Text)(0) End With End Function
[/vba]
вариант[vba]Код
Function v(rr As Range) With CreateObject("vbscript.regexp") .Pattern = "[^-().,' \xA0\d]+" v = .Execute(rr.Text)(0) End With End Function
[/vba] ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Сообщение отредактировал ikki - Понедельник, 07.04.2014, 11:15
Ответить
Сообщение вариант[vba]Код
Function v(rr As Range) With CreateObject("vbscript.regexp") .Pattern = "[^-().,' \xA0\d]+" v = .Execute(rr.Text)(0) End With End Function
[/vba] Автор - ikki Дата добавления - 07.04.2014 в 11:06
Hugo
Дата: Понедельник, 07.04.2014, 11:09 |
Сообщение № 23
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Я сказал - UDF под конкретный случай. И количество валют может быть какое угодно - главное чтоб формат цифр был "#,##0.00" - а он там всюду именно такой, что даёт основание полагать что он такой будет во всех валютах (трёх )
Я сказал - UDF под конкретный случай. И количество валют может быть какое угодно - главное чтоб формат цифр был "#,##0.00" - а он там всюду именно такой, что даёт основание полагать что он такой будет во всех валютах (трёх ) Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Я сказал - UDF под конкретный случай. И количество валют может быть какое угодно - главное чтоб формат цифр был "#,##0.00" - а он там всюду именно такой, что даёт основание полагать что он такой будет во всех валютах (трёх ) Автор - Hugo Дата добавления - 07.04.2014 в 11:09
Hugo
Дата: Понедельник, 07.04.2014, 11:11 |
Сообщение № 24
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Александр, тоже неуниверсально - у "р." точка пропадает
Александр, тоже неуниверсально - у "р." точка пропадает Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Александр, тоже неуниверсально - у "р." точка пропадает Автор - Hugo Дата добавления - 07.04.2014 в 11:11
ikki
Дата: Понедельник, 07.04.2014, 11:13 |
Сообщение № 25
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация:
504
±
Замечаний:
0% ±
Excel 2003, 2010
я не утверждал, что это это универсальное вообще не видел три-четыре предыдущих поста, когда постил своё - уж очень долго вспоминал, как втюхать в шаблон этот растреклятый пробел кстати, я ещё и минус забыл. и скобки. пойду добавлю. добавил.
я не утверждал, что это это универсальное вообще не видел три-четыре предыдущих поста, когда постил своё - уж очень долго вспоминал, как втюхать в шаблон этот растреклятый пробел кстати, я ещё и минус забыл. и скобки. пойду добавлю. добавил. ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Сообщение отредактировал ikki - Понедельник, 07.04.2014, 11:15
Ответить
Сообщение я не утверждал, что это это универсальное вообще не видел три-четыре предыдущих поста, когда постил своё - уж очень долго вспоминал, как втюхать в шаблон этот растреклятый пробел кстати, я ещё и минус забыл. и скобки. пойду добавлю. добавил. Автор - ikki Дата добавления - 07.04.2014 в 11:13
ikki
Дата: Понедельник, 07.04.2014, 11:16 |
Сообщение № 26
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация:
504
±
Замечаний:
0% ±
Excel 2003, 2010
пренебрегаем нафиг
пренебрегаем нафиг ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Сообщение отредактировал ikki - Понедельник, 07.04.2014, 11:17
Ответить
Сообщение пренебрегаем нафиг Автор - ikki Дата добавления - 07.04.2014 в 11:16
Hugo
Дата: Понедельник, 07.04.2014, 11:25 |
Сообщение № 27
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Кстати, если делать на ЯЧЕЙКА(), то ещё нужно дорабатывать под локализацию, на английском Экселе естественно "формат" не работает. А локализаций может быть море... как минимум ещё испанская, французская, немецкая, китайская... Если файл живёт только у себя - тогда конечно это не важно.
Кстати, если делать на ЯЧЕЙКА(), то ещё нужно дорабатывать под локализацию, на английском Экселе естественно "формат" не работает. А локализаций может быть море... как минимум ещё испанская, французская, немецкая, китайская... Если файл живёт только у себя - тогда конечно это не важно. Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Кстати, если делать на ЯЧЕЙКА(), то ещё нужно дорабатывать под локализацию, на английском Экселе естественно "формат" не работает. А локализаций может быть море... как минимум ещё испанская, французская, немецкая, китайская... Если файл живёт только у себя - тогда конечно это не важно. Автор - Hugo Дата добавления - 07.04.2014 в 11:25
AlexM
Дата: Понедельник, 07.04.2014, 11:41 |
Сообщение № 28
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
А если убрать точку из Pattern, то работает правильно. Не знаю, может быть еще что-то вылезет.
А если убрать точку из Pattern, то работает правильно. Не знаю, может быть еще что-то вылезет. AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Сообщение отредактировал AlexM - Понедельник, 07.04.2014, 11:42
Ответить
Сообщение А если убрать точку из Pattern, то работает правильно. Не знаю, может быть еще что-то вылезет. Автор - AlexM Дата добавления - 07.04.2014 в 11:41
ikki
Дата: Понедельник, 07.04.2014, 11:44 |
Сообщение № 29
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация:
504
±
Замечаний:
0% ±
Excel 2003, 2010
точка может встретиться в числе. зависит от настроек. конечно, можно и учесть этот случай. но проще - "пренебречь нафиг" (с)
точка может встретиться в числе. зависит от настроек. конечно, можно и учесть этот случай. но проще - "пренебречь нафиг" (с) ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Ответить
Сообщение точка может встретиться в числе. зависит от настроек. конечно, можно и учесть этот случай. но проще - "пренебречь нафиг" (с) Автор - ikki Дата добавления - 07.04.2014 в 11:44
Hugo
Дата: Понедельник, 07.04.2014, 11:45 |
Сообщение № 30
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Тогда вылезет точка как разделитель разрядов или десятичный - у кого она есть.
Тогда вылезет точка как разделитель разрядов или десятичный - у кого она есть. Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Тогда вылезет точка как разделитель разрядов или десятичный - у кого она есть. Автор - Hugo Дата добавления - 07.04.2014 в 11:45
ikki
Дата: Понедельник, 07.04.2014, 11:48 |
Сообщение № 31
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация:
504
±
Замечаний:
0% ±
Excel 2003, 2010
ну, вот так можно:[vba]Код
Function v(rr As Range) With CreateObject("vbscript.regexp") .Pattern = "[^.,' \xA0\d]+\.?" v = .Execute(rr.Text)(0) End With End Function
[/vba] (ахтунг! добавилось ровно три символа)
ну, вот так можно:[vba]Код
Function v(rr As Range) With CreateObject("vbscript.regexp") .Pattern = "[^.,' \xA0\d]+\.?" v = .Execute(rr.Text)(0) End With End Function
[/vba] (ахтунг! добавилось ровно три символа) ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Сообщение отредактировал ikki - Понедельник, 07.04.2014, 11:49
Ответить
Сообщение ну, вот так можно:[vba]Код
Function v(rr As Range) With CreateObject("vbscript.regexp") .Pattern = "[^.,' \xA0\d]+\.?" v = .Execute(rr.Text)(0) End With End Function
[/vba] (ахтунг! добавилось ровно три символа) Автор - ikki Дата добавления - 07.04.2014 в 11:48
AlexM
Дата: Понедельник, 07.04.2014, 12:04 |
Сообщение № 32
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
С начала задача мне не показалась интересной. Познавательно получилось. Спасибо.
С начала задача мне не показалась интересной. Познавательно получилось. Спасибо. AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение С начала задача мне не показалась интересной. Познавательно получилось. Спасибо. Автор - AlexM Дата добавления - 07.04.2014 в 12:04
ikki
Дата: Понедельник, 07.04.2014, 12:17 |
Сообщение № 33
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация:
504
±
Замечаний:
0% ±
Excel 2003, 2010
большрй минус регулярок - медленно работают на больших объемах оч.заметно. поэтому универсальное решение стандартными функциями VBA хотелось бывсё же
большрй минус регулярок - медленно работают на больших объемах оч.заметно. поэтому универсальное решение стандартными функциями VBA хотелось бывсё же ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Ответить
Сообщение большрй минус регулярок - медленно работают на больших объемах оч.заметно. поэтому универсальное решение стандартными функциями VBA хотелось бывсё же Автор - ikki Дата добавления - 07.04.2014 в 12:17
MK
Дата: Вторник, 22.04.2014, 16:27 |
Сообщение № 34
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Всем большое спасибо за помощь, господа!!!!
Всем большое спасибо за помощь, господа!!!! MK
Ответить
Сообщение Всем большое спасибо за помощь, господа!!!! Автор - MK Дата добавления - 22.04.2014 в 16:27
Hugo
Дата: Вторник, 22.04.2014, 18:40 |
Сообщение № 35
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Было недавно на планете решение на макрофункции. Кажется Виктор делал, не помню...
Было недавно на планете решение на макрофункции. Кажется Виктор делал, не помню... Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Было недавно на планете решение на макрофункции. Кажется Виктор делал, не помню... Автор - Hugo Дата добавления - 22.04.2014 в 18:40