числа через точки - Microsoft Office Excel

aoaoo · 04.06.2011, 13:24

Подскажите пожалуйста, как превратить массив чисел из такого -69.29.22 , в такой -69,2922

R Dmitry · 04.06.2011, 14:04

Цитата:

Сообщение от aoaoo

Подскажите пожалуйста, как превратить массив чисел из такого -69.29.22 , в такой -69,2922

Код:

Function aoaoo(r)
Dim a, g
a = Split(r, ".")
For i = 1 To UBound(a)
g = g & a(i)
Next
aoaoo = CDbl(a(0) & "," & g)
End Function

aoaoo · 04.06.2011, 14:38

спасибо! не понял только как это "проиграть", редактор макросов ругается на отсутствие sub\end sub

IgorGO · 04.06.2011, 15:40

тут "69.29.22" действительно две точки? или от волнения лишних наставили?

если Вам пришли числа с разделителем целой и дробной части "." (точка), а Вам надо заменить разделитель на "," (запятая) - не надо ни чем играть, а то Вы его код поломаете, а Диме потом чинить.

отметьте диапазон с данными, жмите Ctrl+H, укажите что на что заменить, жмите кнопку "заменить все".
удачи!

aoaoo · 04.06.2011, 16:31

Цитата:

Сообщение от IgorGO

тут "69.29.22" действительно две точки? или от волнения лишних наставили?

если Вам пришли числа с разделителем целой и дробной части "." (точка), а Вам надо заменить разделитель на "," (запятая) - не надо ни чем играть, а то Вы его код поломаете, а Диме потом чинить.

отметьте диапазон с данными, жмите Ctrl+H, укажите что на что заменить, жмите кнопку "заменить все".
удачи!

к сожалению действительно 2 точки

Казанский · 04.06.2011, 16:44

Заменяет первую точку на запятую, все последующие удаляет:

Код:

=ЛЕВСИМВ(A1;НАЙТИ(".";A1)-1)&","&ПОДСТАВИТЬ(ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(".";A1));".";"")

С небольшим дополнением - превращает текст в число:

Код:

=--(ЛЕВСИМВ(A1;НАЙТИ(".";A1)-1)&","&ПОДСТАВИТЬ(ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(".";A1));".";""))

aoaoo · 04.06.2011, 17:27

Цитата:

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

Заменяет первую точку на запятую, все последующие удаляет:

Код:

=ЛЕВСИМВ(A1;НАЙТИ(".";A1)-1)&","&ПОДСТАВИТЬ(ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(".";A1));".";"")

С небольшим дополнением - превращает текст в число:

Код:

=--(ЛЕВСИМВ(A1;НАЙТИ(".";A1)-1)&","&ПОДСТАВИТЬ(ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(".";A1));".";""))

спасибо! вот это то что нужно!

vikttur · 04.06.2011, 17:29

Так достаточно

Код:

=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;".";",";1);".";"")

04.06.2011, 13:24	#1
aoaoo Пользователь Регистрация: 15.12.2010 Сообщений: 29	числа через точки Подскажите пожалуйста, как превратить массив чисел из такого -69.29.22 , в такой -69,2922

04.06.2011, 15:40	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	тут "69.29.22" действительно две точки? или от волнения лишних наставили? если Вам пришли числа с разделителем целой и дробной части "." (точка), а Вам надо заменить разделитель на "," (запятая) - не надо ни чем играть, а то Вы его код поломаете, а Диме потом чинить. отметьте диапазон с данными, жмите Ctrl+H, укажите что на что заменить, жмите кнопку "заменить все". удачи! Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

04.06.2011, 16:44	#6
Казанский Старожил Регистрация: 31.12.2010 Сообщений: 2,133	Заменяет первую точку на запятую, все последующие удаляет: Код: `=ЛЕВСИМВ(A1;НАЙТИ(".";A1)-1)&","&ПОДСТАВИТЬ(ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(".";A1));".";"")` С небольшим дополнением - превращает текст в число: Код: `=--(ЛЕВСИМВ(A1;НАЙТИ(".";A1)-1)&","&ПОДСТАВИТЬ(ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(".";A1));".";""))` exceleved@yandex.ru Яндекс.Деньги: 410011500007619

04.06.2011, 17:29	#8
vikttur Участник клуба Регистрация: 16.05.2010 Сообщений: 1,249	Так достаточно Код: `=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;".";",";1);".";"")`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Пробел через каждые 2 числа	KillJoy	Паскаль, Turbo Pascal, PascalABC.NET	7	22.12.2010 17:25
возвращающей десятичную запись числа с заданным числом знаков после десятичной точки:	fluffi	Помощь студентам	2	28.09.2010 21:24
Имеются координаты точки. Как проверить какого цвета соседние точки на форме?	Rin	Мультимедиа в Delphi	2	10.11.2009 22:47
даны две точки. организовать движение из точки А в точку Б окружности!	Wi1D	Помощь студентам	6	23.05.2009 19:55
Отбражение чисел - точки, это точки, а не запятые, обозначающие дробную часть	Дикий	Помощь студентам	7	12.05.2008 17:57

04.06.2011, 14:38	#3
aoaoo Пользователь Регистрация: 15.12.2010 Сообщений: 29	спасибо! не понял только как это "проиграть", редактор макросов ругается на отсутствие sub\end sub