Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Формула / 3 сообщений из 3, страница 1 из 1
27.03.2011, 00:06
    #37184156
it001
it001
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формула
VBA excel
Всем привет!

Есть столбец "A" в нем значение - тип "текста". Как преобразовать/подменить все эти значение в числовой формат для последующего суммирования?

72.00 RUR
12.00 RUR
15.00 RUR
1289.00 RUR
769.00 RUR

sub test()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For z = LastRow To 1 Step -1
Range("A" & z).Select
ActiveCell.FormulaR1C1 = "=VALUE(TRIM(SUBSTITUTE(R[-1]C,""RUR"","""")))"
' R[-1]C Вот за место этого что ?

Next z
End Sub
===
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2011, 06:51
    #37184243
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формула
Ну-у-у... Не надо напрямую перепысывать код, даже не понимая, что он делает...
Вот проверьте:
Код: plaintext
1.
2.
3.
4.
5.
FirstRow =  1 
LastRow = Cells(Rows.Count,  1 ).End(xlUp).Row
For z = FirstRow To LastRow
    Cells(z,  2 ) = Val(Split(Cells(z,  1 ), " ")( 0 ))
Next
Cells(LastRow +  1 ,  2 ).Formula = "=SUM(B" & FirstRow & ":B" & LastRow & ")"
То есть на вашем листе со списком данных (по типу в столбце A данные примерно такие, как "10.02 чего-то-там") скрипт выдаст вам в столбец B - значения, плюс ещё просуммирует данные по столбцу... Разбирайтесь...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2011, 12:11
    #37184333
it001
it001
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формула
Спасибо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Формула / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 711ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2177045]:
 0ms
get settings:
 4ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 412ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 203ms
total:  711ms
x
x
Закрыть


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