Мастер текстов

[alexsampler]

Добрый день!
Господа нужна помощь
Есть макрос по обработки файла txt в excel
В тексте встречаются числа формата 123.45- то есть минус стоит в конце цифры, соответственно ячейки не поддаются форматированию, я их убираю с помощью автозамены на пусто, но тогда теряется смысл расчета, необходимо учитывать отрицательные значения.
Как сделать так, что бы формат отрицательных значений (123,45 -) отображался ( – 123.45), нужен какой то код….
Спасибо!

[EducatedFool]

Есть макрос по обработки файла txt в excel

ну так покажите этот макрос
Да и пример файла txt заодно

[Казанский]

Информация к размышлению:

Dim s
s = "123.45-"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)
s = "-123.45"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)
s = "123.45"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)

[alexsampler]

Выкладываю пример и прошу - если не трудно посмотрите - мой вариант очень коряво обрабатывает текст – съезжают названия граф. И самое главное – ни как для себя не уясню, когда нужно включать функцию отключение экрана…
И вообще буду очень признателен поправкам и замечаниям...
Спасибо!

[alexsampler]

Сообщение от Казанский

Информация к размышлению:

Dim s
s = "123.45-"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)
s = "-123.45"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)
s = "123.45"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)

в моем случае 123.45- это пример, цыфр много и разных (с разными разрядами, как унифицировать эту ситуации в коде?
Спасибо!

[alexsampler]

Господа, огромная просьба помочь!!!