перевод римских цифр в арабские

Пользователь

Сообщений: 25 Регистрация: 01.01.1970

08.09.2011 08:32:23

Добрый день!
помогите, пожалуйста с проблемой. Необходимо перевести римские цифры в арабские с помощью формул. Для перевода арабских цифр в римские есть формула, а вот наоборот как сделать?

Спасибо

Прикрепленные файлы

post_257518.xls (16 КБ)

Hugo Пользователь Сообщений: 26263 Регистрация: 22.12.2012	#2 08.09.2011 09:09:14 А наоборот UDF - завязана на формулу наоборот :) Function Roman2Arab(S As String) Dim i As Long For i = 1 To 10000 If CStr(Application.Roman(i, 1)) = S Then Exit For Next Roman2Arab = i End Function Неидеальна, но уж как смог...

nerv

Пользователь

Сообщений: 3071 Регистрация: 22.12.2012

08.09.2011 09:20:28

Доброе утро планета : )

Hugo, если я не ошибаюсь, не все так просто

Пример: 46 - XLVI

http://ru.wikipedia.org/wiki/%D0%A0%D0%B8%D0%BC%D1%81%D0%BA%D0%B8%D0%B5_%D1%86%D0%B8%D1%84%D1%80%D1%8B

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh

MCH Пользователь Сообщений: 3907 Регистрация: 22.12.2012	#4 08.09.2011 09:25:29 =ПРОСМОТР(4000;1/(D3=РИМСКОЕ(СТРОКА($1:$3999)));СТРОКА($1:$3999))

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#5 08.09.2011 09:36:16 Да-а. Никто не пытается римское число по буквам разобрать :) Может, в Избушку такую задачу? ;)

Z Гость	#6 08.09.2011 09:50:12 Ч/З RTF или копистом истории конвертации... http://www.tvalx.com/Russian/products/RomanArabicNumeralsConverter/RomanArabicNumeralsConverter.html -51165-

Дана Гость	#7 08.09.2011 09:51:34 {quote}{login=MCH}{date=08.09.2011 09:25}{thema=}{post}=ПРОСМОТР(4000;1/(D3=РИМСКОЕ(СТРОКА($1:$3999)));СТРОКА($1:$3999)){/post}{/quote} Спасибо огромное!!!

nerv

Пользователь

Сообщений: 3071 Регистрация: 22.12.2012

08.09.2011 10:01:55

{quote}{login=Казанский}{date=08.09.2011 09:36}{thema=}{post}Да-а. Никто не пытается римское число по буквам разобрать :)

Щас я попробую :D

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh

Hugo

Пользователь

Сообщений: 26263 Регистрация: 22.12.2012

08.09.2011 10:05:04

Странно, я ту UDF давно написал, правда сам не пользовался...
Почему там было Application.Roman(i, 1) - не помню.
Но 46 правильно обрабатывает такой вариант:

Function Roman2Arab(S As String)
Dim i As Long
For i = 1 To 10000
If CStr(Application.Roman(i)) = S Then Exit For
Next
Roman2Arab = i
End Function

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#10 08.09.2011 10:19:15 {quote}{login=MCH}{date=08.09.2011 09:25}{thema=}{post}=ПРОСМОТР(4000;1/(D3=РИМСКОЕ(СТРОКА($1:$3999)));СТРОКА($1:$3999)){/post}{/quote} Просто и со вкусом!

Hugo Пользователь Сообщений: 26263 Регистрация: 22.12.2012	#11 08.09.2011 10:32:08 Перевёл: =LOOKUP(4000;1/(D3=ROMAN(ROW($1:$3999)));ROW($1:$3999)) В моей UDF оказывается нет смысла дальше 4000 цикл гнать... Можно заменить на For i = 1 To 4000

Hugo Пользователь Сообщений: 26263 Регистрация: 22.12.2012	#12 08.09.2011 10:47:15 Доделал, пусть уж будет :) Function Roman2Arab(S As String) Dim i As Long For i = 1 To 4000 If CStr(Application.Roman(i)) = S Then Exit For Next If i <> 4001 Then Roman2Arab = i Else Roman2Arab = "" End Function

MCH

Пользователь

Сообщений: 3907 Регистрация: 22.12.2012

#13

08.09.2011 11:23:51

{quote}{login=MCH}{date=08.09.2011 09:25}{thema=}{post}=ПРОСМОТР(4000;1/(D3=РИМСКОЕ(СТРОКА($1:$3999)));СТРОКА($1:$3999)){/post}{/quote}
"4000" - излишне, достаточно "2":
=ПРОСМОТР(2;1/(D3=РИМСКОЕ(СТРОКА($1:$3999)));СТРОКА($1:$3999))

или формула массива (вводится нажатием ctrl+shift+enter):
=ПОИСКПОЗ(D3;РИМСКОЕ(СТРОКА($1:$3999));)

nerv Пользователь Сообщений: 3071 Регистрация: 22.12.2012	#14 08.09.2011 11:24:50 Без привязки к функции Excel =РИМСКОЕ(), у меня получилось так : ) =76757= Прикрепленные файлы post_257582.zip (10.42 КБ) Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук https://github.com/nervgh

Читают тему