Формула содержит нераспознанный текст excel как исправить

Настройка – Панель управления – Языки и стандарты – Числа – Разделитель целой и дробной части числа

<{POST_SNAPBACK}>

Да, можно так. Но это тогда коснется всех программ.

Думаю наилучшее написать скрипт преобразования на VBA ввиде функции (т.е. подсьавляется в форулу). А сам скрипт прост: берет значение как текст, перебирает по каждому символу, запятые просто выкидывает, а точку меняет на запятую. Все, вопрос решен.

Вот, не поленился, написал.

Открой Ексел, запиши какой угодно макрос (главное чтоб он был). Теперь по <Alt><F11> открываешь окно VBA. Там найдешь раздел “Modules”. В нем подраздел, по умолчанию “Module1”. Открываешь этот подраздел. Там на VBA будет записан твой макрос. Нафиг стираешь его, а вместо него пишешь вот такой тест:

Public Function Convert_My(str As String) As Double
Dim dl_str As Long, i As Long, tmp As String, z_ish As String, z_end As String, otvet As Double
Convert_My = 0
On Error GoTo 11
z_end = ""
ish = str
dl_str = Len(ish)
For i = 1 To dl_str
    tmp = Mid(ish, i, 1)
    If tmp = "," Then GoTo 23
    If tmp = "." Then tmp = ","
    z_end = z_end & tmp
23
Next i
otvet = z_end
Convert_My = otvet
11
End Function

Сохраняешься. Теперь в итоговую ячеку прописываешь формулу, например =Convert_My(A5).
В ячейке А5 находится значение например 2,685.34, и функция будет возвращать в итоговую ячейку нормальной число 2685,34.

З.Ы. Подправил, ошибка была

Сообщение отредактировал v_user: 31 Октябрь 2006 – 03:35

2 v_user
По-моему загон, и по-любому должныа быть возможность в эксель это настроить.

Здесь, например: Меню “Сервис”-“Параметры”, вкладка “Международные”. Убрать галочку “Использовать системные разделители” и поставить нужный “Разделитель дробной и целой части”. По крайней мере данные можно импортировать, потом изменить формат на нужный и сохранить. А можно прямо так и работать.

Сообщение отредактировал ErV: 30 Октябрь 2006 – 10:27

2 v_user
По-моему загон, и по-любому должныа быть возможность в эксель это настроить.

Здесь, например: Меню “Сервис”-“Параметры”, вкладка “Международные”. Убрать галочку “Использовать системные разделители” и поставить нужный “Разделитель дробной и целой части”. По крайней мере данные можно импортировать, потом изменить формат на нужный и сохранить. А можно прямо так и работать.

<{POST_SNAPBACK}>

Так в том-то и дело, что это коснется всего Эксель. Да сколько уже раз сталкивался что люди изменив запятую на точку уже получали невнятный гемор. Одну свою задачу решали (а это решение через кривые руки программера который даже экспорт/импорт организовать не может по человечески), но другие наживали.
Что ж, если такой подход удовлетворяет, то ради бога. Только вот разбираться в числах, где запятая – разделитель разрядов, а точка – есть “десятичная точка” (вместо соответсвенно пробела и запятой) – думаю “продвинотому” бухгалтеру/менеджеру будет не весело.

Я просто думаю, что автор – не программер, это раз.
А следовательно, ему проще запомнить где галочка, чем весь твой скрипт. (без обид)
Переформатировал бы ты его, что ли… тут классный тэг есть – [code=auto:0]
читать удобнее, правда хайлайтинг и всякие загоны со шрифтами убивает.

<{POST_SNAPBACK}>

Да не, какие обиды.
Просто меня иногда нервируют программисты, которые делают что-то через одно место и/или не до конца. Очень часто это у них в превычке (они так начинали). Вот я и акцентировал на том, что если делать, то так чтоб работало, а не чтоб сперва настроить а уж потом работало.
Кстати, переделал, спс за подсказку про тэг. И кстати изложить посторался как программировать как для новиска.

Сообщение отредактировал v_user: 31 Октябрь 2006 – 03:41

Ещё рекомендация.
Я когда информатикам задачи делал ради прикола ,
обнаружил, что если человек не знает инглиш, то знает транслит.
Можно изменить имена и ему все будет понятно (Кстати, если не ошибаюсь, по русски в офисе тоже можно программить).
И ещё: у тебя z_ish не используется, как я понял.
И зачем копировать str в ish?
Вот так например (не факт что не сломал, не тестил, по тексту должно работать):

Public Function StrokuVChislo(stroka As String) As Double
Dim dlinaStroki As Long, positsiya As Long, curSimvol As String, 
strokaOtvet as String, otvet As Double
otvet = 0;
On Error GoTo 11
strokaOtvet = ""
dlinaStroki = Len(stroka)
For positsiya = 1 to dlinaStroki
    curSimvol = Mid(stroka, i, 1);
    if curSimvol = "," Then Goto 23
    if curSimvol = "." Then curSimvol = ","
    strokaOtvet = strokaOtvet & curSimvol
23
Next i
otvet = strokaOtvet
11
StrokuVChislo = otvet
End Function

У меня сейчас диск с офисом грохнулся, нет документации по бейсику и влом. Если хош, могу переделать в более человеческий вид на досуге.

Сообщение отредактировал ErV: 31 Октябрь 2006 – 09:36

Все верно. Так и надо рисовать. Я писал на скоро рука в данном случае, но вообще название переменных стараюсь всегда продумывать. Но грешок ест – люблю короткие имена внутри отдельновзятой функции (все равно дальше функции они не уходят).
По поводу z_ish. В Экселе я на ВБА не пишу, я периодически работаю в Access. Понятно, что ВБА что для экселя, что для аксэса одинаково. Так вот. Столкнулся вот конкретно с каким глюком. Когды ты работаешь внутри функции с “входящими” переменными, то можешь нарваться на глюк необоснованной неправильной работы.
Public Function StrokuVChislo(stroka As String) As Double
Если внутри этой функции ты много раз вызовешь переменную “stroka”, то этот глюк может вылезти. Но стоит в начале обявить внутренюю переменную, ей присвоить значение “stroka”, то эту переменную хоть миллион раз используй – все будет работать как положено. Вот такой, блин, глюк. С тех пор, как я на него потратил целый день (пока въехал в чем дело), у меня уже в автомате никогда не использовать входящие переменные, а сразу передавать их значение внутренним переменным.

Да еще.

Public Function StrokuVChislo(stroka As String) As Double
Dim dlinaStroki As Long, positsiya As Long, curSimvol As String, 
strokaOtvet as String, otvet As Double
StrokuVChislo = 0;
On Error GoTo 11
strokaOtvet = ""
dlinaStroki = Len(stroka)
For positsiya = 1 to dlinaStroki
   curSimvol = Mid(stroka, i, 1);
   if curSimvol = "," Then Goto 23
   if curSimvol = "." Then curSimvol = ","
   strokaOtvet = strokaOtvet & curSimvol
23
Next i
otvet = strokaOtvet
StrokuVChislo = otvet
11
End Function

Я немного подправил твое. Я считаю (ИМХО) что после точки возврата по ошибке ничего быть не должно (или или должно, но только ссылка на другую точку возврата). Ведь ты же не знаешь что будет содержаться в otvet в момент ошибки…

Сообщение отредактировал v_user: 01 Ноябрь 2006 – 08:21

2v_user
в otvet в момент ошибки должен содержаться 0. Но только, если ошибка не произойдет во время присваиавания. (Тогда, по логике вещей, тоже должен быть ноль, но не уверен, признаюсь, момент упустил). Документации по VBA сейчас нет и я под него не пишу – просто по аналогии синтаксисов накатал. Так что думаю, что твой вариант живучей.

<{POST_SNAPBACK}>

Все правильно. По идее должен быть ноль. Но:
– кто сказал что клюков не бывает у Микрософта?
– Это в данном случае так. Но часто бывает что приходится вносить изменения в код (особенно если он дастаточно большой), и в итоге ситуация меняется, а об действии после возврата по ошибке как-то забываешь. Сколько раз сам же на свои грабли наступал, теперь вот всегда этот момент контролирую (даже если и не надо, как в данном случае).

Кстати, еще. Нашел еще ошибочку у тебя. При объявлении переменных ты перешел на вторую строку. Просто так это нельзя делать, надо в конце первой строки после пробела добавить знак подчеркивания. (Да точки с запятой парачку в конце строки убрал).
Еще добавил вывод ошибки. Предпоследняя строка (здесь отремирована). Чтоб выводило – надо убрать апостроф.

Public Function StrokuVChislo(stroka As String) As Double
Dim dlinaStroki As Long, positsiya As Long, curSimvol As String, _
strokaOtvet as String, otvet As Double
StrokuVChislo = 0
On Error GoTo 11
strokaOtvet = ""
dlinaStroki = Len(stroka)
For positsiya = 1 to dlinaStroki
  curSimvol = Mid(stroka, positsiya, 1)
  if curSimvol = "," Then Goto 23
  if curSimvol = "." Then curSimvol = ","
  strokaOtvet = strokaOtvet & curSimvol
23
Next positsiya
otvet = strokaOtvet
StrokuVChislo = otvet
11
'MsgBox Err.Description
End Function

Короче вот этот проверил, работает.

Сообщение отредактировал v_user: 02 Ноябрь 2006 – 09:20

Кстати, еще. Нашел еще ошибочку у тебя. При объявлении переменных ты перешел на вторую строку. Просто так это нельзя делать, надо в конце первой строки после пробела добавить знак подчеркивания. (Да точки с запятой парачку в конце строки убрал).

Это все уже автоматом сделано (рефлекс) – у меня основной язык C++. Соответственно, по тому и точки с запятой в конце строк, и подчерка нет.

Что-то автора темы не слышно, видать решил уже задачку сам как-то.

<{POST_SNAPBACK}>

О господа! Премного благодарен! так много ответов и не ожидал 🙂
я действительно не программер (хотя в школе на бейсике занял 2 место, но давно это было)), буду пытать разобраться в рекомендациях :-), об итогах напишу обязательно 🙂

данные берутся по ссылке http://www.lme.com/d…daily_metal.asp
импортируемые данные-верхняя таблица, и в середине правая (где курсы валют). Кстати с последней тоже косяк, необходимый мне курс евро отображаетсфя как дата (например сегодняшний курс 1.2755, в ячейке отображается как янв.55, а если посмотреть содержимое ячейки-01.01.2755)
Я знаю где-то в эксель есть что-то вроде отключения автоматического определения дат, но провозился час-неполучается найти где это.

Ну тут думаю надо делать Эксел в два листа.
Первый – промежуточный. Туда все импортируется. Все импортируется как текст! Второй лист итоговый – то что видно в Итоге. Там просто настрены ссылки на данные первого листа.
Когда экспортируешь как текст – все данные будут в том виде, как на сайте. А потом через ссылки (используя предложенну здесь функцию) числа сайта переводишь в числа понятные Эксель.

<{POST_SNAPBACK}>

Неполучается у меня, проверьте порядок действий
Порядок действий
Записываю любой макрос
Сервис-макрос-начать запись-ок
Alt f11, modules-module 1-кликая 2раза, в окно вставляю последнюю программу написанную v user
Сохраняюсь
На другом листе в ячейку пишу
=Convert_My(имя ячейки)

Пишет ошибку, формула содержит нераспознанный текст
И ещё, курс евро импортируется с точкой 1.2755 , что тоже не понятно экселю, для этого случая другой макрос?

Неполучается у меня, проверьте порядок действий
Порядок действий
Записываю любой макрос
Сервис-макрос-начать запись-ок
Alt f11, modules-module 1-кликая 2раза, в окно вставляю последнюю программу написанную v user
Сохраняюсь
На другом листе в ячейку пишу
=Convert_My(имя ячейки)

Пишет ошибку, формула содержит нераспознанный текст
И ещё, курс евро импортируется с точкой  1.2755 , что тоже не понятно экселю, для этого случая другой макрос?

<{POST_SNAPBACK}>

Если ты взял последнюю программу – то тогда не Convert_My, а StrokuVChislo (ErV ее переименовал, когда переписывал скрипт более понятно).
Это функция присутствует в списке. Т.е. когда вызываешь список стандартных функций, то среди там ОКРУЛ, СУММ, ЕСЛИ и т.д. будет еще и функция StrokuVChislo.

Сообщение отредактировал v_user: 02 Ноябрь 2006 – 03:01