Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / (VBA Excel) Десятичное число в строку / 4 сообщений из 4, страница 1 из 1
15.06.2010, 11:36
    #36687213
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(VBA Excel) Десятичное число в строку
Возникла интересная проблемка.
Пытаюсь по известным данным построить аппроксимирующую прямую:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Linear_koefficients = Application.WorksheetFunction.LinEst(Value_column, Arg_column)

First_x = ((Evaluate("min(" & Arg_column.Address & ")")))
First_y = First_x * Linear_koefficients( 1 ) + Linear_koefficients( 2 )
Second_x = ((Evaluate("max(" & Arg_column.Address & ")")))
Second_y = Second_x * Linear_koefficients( 1 ) + Linear_koefficients( 2 )

Set ns = oChart.SeriesCollection.NewSeries
With ns
    .ChartType = xlXYScatterLines
    .XValues = First_x & ";" & Second_x
    .Values = First_y & ";" & Second_y
End With
First_x & ";" & Second_x : целые величины -- проблем нет
First_y & ";" & Second_y : дробные -- запятые в дроби преобразовались в разделители значений (точку с запятой) -- получилась ерунда из в два раза большего количества чисел.
Где "промахнулся"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2010, 11:41
    #36687235
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(VBA Excel) Десятичное число в строку
Решил "в лоб":
Код: plaintext
.Values = Replace(CStr(First_y), ",", ".") & ";" & Replace(CStr(Second_y), ",", ".")
Нормально?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2010, 13:45
    #36687591
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(VBA Excel) Десятичное число в строку
Дмитрий-(сколько-же-нас?),

по субъективным ощущениям полагаю, CDbl помог бы в данной ситуации.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2010, 15:48
    #36688018
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(VBA Excel) Десятичное число в строку
Shamanus,

cdbl выдаст ошибку при неверном разделителе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / (VBA Excel) Десятичное число в строку / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 439ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177985]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 81ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 249ms
total:  439ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]