Как извлечь из ячейки тип формат валюты с помощью формулы?
MK
Дата: Пятница, 04.04.2014, 17:04 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Привет! Проблема в следующем: есть продажи в разной валюте (валюта зашита в формат ячейки). Необходимо вытащить тип валюты в соседний столбец при помощи формулы. Помоги найти решение проблемы! Заранее спасибо!
Привет! Проблема в следующем: есть продажи в разной валюте (валюта зашита в формат ячейки). Необходимо вытащить тип валюты в соседний столбец при помощи формулы. Помоги найти решение проблемы! Заранее спасибо! MK
Ответить
Сообщение Привет! Проблема в следующем: есть продажи в разной валюте (валюта зашита в формат ячейки). Необходимо вытащить тип валюты в соседний столбец при помощи формулы. Помоги найти решение проблемы! Заранее спасибо! Автор - MK Дата добавления - 04.04.2014 в 17:04
Hugo
Дата: Пятница, 04.04.2014, 17:24 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
UDF под конкретный случай: [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(r.Text, Format(r.Value, "#,##0.00"), "")) End Function
[/vba]
UDF под конкретный случай: [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(r.Text, Format(r.Value, "#,##0.00"), "")) End Function
[/vba] Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение UDF под конкретный случай: [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(r.Text, Format(r.Value, "#,##0.00"), "")) End Function
[/vba] Автор - Hugo Дата добавления - 04.04.2014 в 17:24
MK
Дата: Понедельник, 07.04.2014, 08:36 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Спасибо! Подскажите, возможно ли извлечь тип валюты именно при помощи формулы в Excel ( способ, который указали Вы не похож на простую формулу типа =(IF(A1=....;....;....))
Спасибо! Подскажите, возможно ли извлечь тип валюты именно при помощи формулы в Excel ( способ, который указали Вы не похож на простую формулу типа =(IF(A1=....;....;....)) MK
Ответить
Сообщение Спасибо! Подскажите, возможно ли извлечь тип валюты именно при помощи формулы в Excel ( способ, который указали Вы не похож на простую формулу типа =(IF(A1=....;....;....)) Автор - MK Дата добавления - 07.04.2014 в 08:36
китин
Дата: Понедельник, 07.04.2014, 09:31 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7024
Репутация:
1075
±
Замечаний:
0% ±
Excel 2007;2010;2016
MK , вопрос КАК?у вас названия валют проставлены при помощи пользовательского формата.посмотрите в строке формул-там только цифры,никаких RUR и $ там нетути
MK , вопрос КАК?у вас названия валют проставлены при помощи пользовательского формата.посмотрите в строке формул-там только цифры,никаких RUR и $ там нетутикитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение MK , вопрос КАК?у вас названия валют проставлены при помощи пользовательского формата.посмотрите в строке формул-там только цифры,никаких RUR и $ там нетутиАвтор - китин Дата добавления - 07.04.2014 в 09:31
Serge_007
Дата: Понедельник, 07.04.2014, 09:44 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
возможно ли извлечь тип валюты именно при помощи формулы в Excel
Возможно. Но для этого форматы должны быть другими:Код
=ЕСЛИ(ЯЧЕЙКА("формат";B2)=",2";"$";"RUB")
возможно ли извлечь тип валюты именно при помощи формулы в Excel
Возможно. Но для этого форматы должны быть другими:Код
=ЕСЛИ(ЯЧЕЙКА("формат";B2)=",2";"$";"RUB")
Serge_007
К сообщению приложен файл:
MK.xls
(37.5 Kb)
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение возможно ли извлечь тип валюты именно при помощи формулы в Excel
Возможно. Но для этого форматы должны быть другими:Код
=ЕСЛИ(ЯЧЕЙКА("формат";B2)=",2";"$";"RUB")
Автор - Serge_007 Дата добавления - 07.04.2014 в 09:44
Hugo
Дата: Понедельник, 07.04.2014, 09:46 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Я способа обычными формулами не знаю. Есть формула cell(), но нужную информацию она не даёт. Чем не подходит UDF?
Я способа обычными формулами не знаю. Есть формула cell(), но нужную информацию она не даёт. Чем не подходит UDF? Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Я способа обычными формулами не знаю. Есть формула cell(), но нужную информацию она не даёт. Чем не подходит UDF? Автор - Hugo Дата добавления - 07.04.2014 в 09:46
AlexM
Дата: Понедельник, 07.04.2014, 09:53 |
Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
Hugo , В Excel2003 функция не отделяет тип валюты
Hugo , В Excel2003 функция не отделяет тип валютыAlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение Hugo , В Excel2003 функция не отделяет тип валютыАвтор - AlexM Дата добавления - 07.04.2014 в 09:53
Hugo
Дата: Понедельник, 07.04.2014, 10:01 |
Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
AlexM , ты про UDF? Проверил в 2007 русском и 2003 английском - работает всюду. Причём в 2003 проверил оба варианта форматов.
AlexM , ты про UDF? Проверил в 2007 русском и 2003 английском - работает всюду. Причём в 2003 проверил оба варианта форматов.Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение AlexM , ты про UDF? Проверил в 2007 русском и 2003 английском - работает всюду. Причём в 2003 проверил оба варианта форматов.Автор - Hugo Дата добавления - 07.04.2014 в 10:01
AlexM
Дата: Понедельник, 07.04.2014, 10:04 |
Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
У меня 2003 русский. Функция не работает. Не срабатывает Replace
У меня 2003 русский. Функция не работает. Не срабатывает Replace AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Сообщение отредактировал AlexM - Понедельник, 07.04.2014, 10:05
Ответить
Сообщение У меня 2003 русский. Функция не работает. Не срабатывает Replace Автор - AlexM Дата добавления - 07.04.2014 в 10:04
Serge_007
Дата: Понедельник, 07.04.2014, 10:08 |
Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
У меня тоже не работает...
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение У меня тоже не работает... Автор - Serge_007 Дата добавления - 07.04.2014 в 10:08
Hugo
Дата: Понедельник, 07.04.2014, 10:11 |
Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Интересно, как так? У меня работает, мне изучать нечего...
Интересно, как так? У меня работает, мне изучать нечего... Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Интересно, как так? У меня работает, мне изучать нечего... Автор - Hugo Дата добавления - 07.04.2014 в 10:11
Serge_007
Дата: Понедельник, 07.04.2014, 10:15 |
Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Автор - Serge_007 Дата добавления - 07.04.2014 в 10:15
Hugo
Дата: Понедельник, 07.04.2014, 10:29 |
Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Вероятно не работает Format(r.Value, "#,##0.00") - почему?... Или формат ячейки не совпадает?
Вероятно не работает Format(r.Value, "#,##0.00") - почему?... Или формат ячейки не совпадает? Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Вероятно не работает Format(r.Value, "#,##0.00") - почему?... Или формат ячейки не совпадает? Автор - Hugo Дата добавления - 07.04.2014 в 10:29
AlexM
Дата: Понедельник, 07.04.2014, 10:32 |
Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
Работает. Возвращает только число без типа валюты.
Работает. Возвращает только число без типа валюты. AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение Работает. Возвращает только число без типа валюты. Автор - AlexM Дата добавления - 07.04.2014 в 10:32
ikki
Дата: Понедельник, 07.04.2014, 10:35 |
Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация:
504
±
Замечаний:
0% ±
Excel 2003, 2010
у меня тоже не работает. по причине того, что пробел в Format(r.Value, "#,##0.00") почему-то получается неразрывный (160) а в r.Text пробел обычный (32) лечится-то легко [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(r.Text, Replace(Format(r.Value, "#,##0.00"), Chr(160), " "), "")) End Function
[/vba] но вот почему он неразрывный? ex 2003 rus
у меня тоже не работает. по причине того, что пробел в Format(r.Value, "#,##0.00") почему-то получается неразрывный (160) а в r.Text пробел обычный (32) лечится-то легко [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(r.Text, Replace(Format(r.Value, "#,##0.00"), Chr(160), " "), "")) End Function
[/vba] но вот почему он неразрывный? ex 2003 rus ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Сообщение отредактировал ikki - Понедельник, 07.04.2014, 10:39
Ответить
Сообщение у меня тоже не работает. по причине того, что пробел в Format(r.Value, "#,##0.00") почему-то получается неразрывный (160) а в r.Text пробел обычный (32) лечится-то легко [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(r.Text, Replace(Format(r.Value, "#,##0.00"), Chr(160), " "), "")) End Function
[/vba] но вот почему он неразрывный? ex 2003 rus Автор - ikki Дата добавления - 07.04.2014 в 10:35
Hugo
Дата: Понедельник, 07.04.2014, 10:39 |
Сообщение № 16
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Логика UDF - берём значение ячейки, получаем из него форматом то, что видно в ячейке, но без валюты. Далее заменяем в том, что видно в ячейке, эту часть строки на ничего - остаётся валюта. Пробелы убираем. Как могут быть на выходе только цифры - вообще непонятно...
Логика UDF - берём значение ячейки, получаем из него форматом то, что видно в ячейке, но без валюты. Далее заменяем в том, что видно в ячейке, эту часть строки на ничего - остаётся валюта. Пробелы убираем. Как могут быть на выходе только цифры - вообще непонятно... Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Логика UDF - берём значение ячейки, получаем из него форматом то, что видно в ячейке, но без валюты. Далее заменяем в том, что видно в ячейке, эту часть строки на ничего - остаётся валюта. Пробелы убираем. Как могут быть на выходе только цифры - вообще непонятно... Автор - Hugo Дата добавления - 07.04.2014 в 10:39
AlexM
Дата: Понедельник, 07.04.2014, 10:45 |
Сообщение № 17
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
ikki , Точно. Чудеса.
ikki , Точно. Чудеса.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение ikki , Точно. Чудеса.Автор - AlexM Дата добавления - 07.04.2014 в 10:45
Hugo
Дата: Понедельник, 07.04.2014, 10:47 |
Сообщение № 18
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Ну вот, решили - такой вариант обязан работать всюду. P.S. для надёжности [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(Replace(r.Text, Chr(160), " "), Replace(Format(r.Value, "#,##0.00"), Chr(160), " "), "")) End Function
[/vba]
Ну вот, решили - такой вариант обязан работать всюду. P.S. для надёжности [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(Replace(r.Text, Chr(160), " "), Replace(Format(r.Value, "#,##0.00"), Chr(160), " "), "")) End Function
[/vba] Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Ну вот, решили - такой вариант обязан работать всюду. P.S. для надёжности [vba]Код
Function valuta(r As Range) valuta = Trim(Replace(Replace(r.Text, Chr(160), " "), Replace(Format(r.Value, "#,##0.00"), Chr(160), " "), "")) End Function
[/vba] Автор - Hugo Дата добавления - 07.04.2014 в 10:47
AlexM
Дата: Понедельник, 07.04.2014, 10:54 |
Сообщение № 19
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
такой вариант обязан работать всюду
не всюду.
такой вариант обязан работать всюду
не всюду. AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение такой вариант обязан работать всюду
не всюду. Автор - AlexM Дата добавления - 07.04.2014 в 10:54
Hugo
Дата: Понедельник, 07.04.2014, 10:56 |
Сообщение № 20
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3487
Репутация:
752
±
Замечаний:
0% ±
365
Ну так это уже другой формат в рублях: #,##0"р.";-#,##0"р." Остальное работает. P.S. Такие рубли сделайте: #,##0.00"р.";-#,##0.00"р." Вообще как я понял задачу - есть выгрузка из 1С, она естественно всегда с определённым форматом, вот его и используем в коде.
Ну так это уже другой формат в рублях: #,##0"р.";-#,##0"р." Остальное работает. P.S. Такие рубли сделайте: #,##0.00"р.";-#,##0.00"р." Вообще как я понял задачу - есть выгрузка из 1С, она естественно всегда с определённым форматом, вот его и используем в коде. Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Ну так это уже другой формат в рублях: #,##0"р.";-#,##0"р." Остальное работает. P.S. Такие рубли сделайте: #,##0.00"р.";-#,##0.00"р." Вообще как я понял задачу - есть выгрузка из 1С, она естественно всегда с определённым форматом, вот его и используем в коде. Автор - Hugo Дата добавления - 07.04.2014 в 10:56