При копировании чисел макросом теряется ЧИСЛОВОЙ формат, как быть?

@Rinalaz · Регистрация: 28.02.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте! Пустяковая казалось бы штука...Подскажите, пожалуйста, что может быть?...
При работе макроса обнаружила одну очень непонятную вещь:

беру из файла ЧИСЛО, на всякий случай присваиваю ему в той ячейки куда кладу (на лист новой книги) опять числовой формат.

Visual Basic

1
2

Sheets(j + 1).Range("F81").Offset(, i).Value = nagr ' выводим нагрузку на каждом из перечисленных листов в строке 81
Sheets(j + 1).Range("F81").Offset(, i).NumberFormat = "0.00"

При этом на этом листе проверяю - у этого числа "числовой формат".

Но когда беру и копирую это же число на эту же книгу в другой лист...формат пропадает (хотя прописываю и до вставки числа и после!!), и это число не участвует в общем суммировании прописанном макросом...

Visual Basic

ngr = Sheets("УМР за год").Cells(81, FIO).Value 'берем нагрузку из строки 81
Sheets("План по ППС").Cells(FIO - 1, 5).NumberFormat = "0.00"
Sheets("План по ППС").Cells(FIO - 1, 5).Value = ngr 'заносим нагрузку в 5й столбец
Sheets("План по ППС").Cells(FIO - 1, 5).NumberFormat = "0.00"

результат:
230,00
896,00
454,00
258,00
902,00
451,00
900,00
844,35 (пишет в примечании ошибку "число сохранено как текст")
899,00
873,7 (пишет в примечании ошибку "число сохранено как текст")
4990 -итог суммирования всех вышеприведенных чисел (две жирные - не вошли в сумму)

Что происходит? при том НЕ для всех цифр...Может я формат не так присваиваю?

@~~Апострофф~~ · 01.10.2014, 12:59

Rinalaz, покажите, как объявлены переменные nagr и ngr.

@Rinalaz · 01.10.2014, 13:11 **[ТС]**

это разные переменные - в одном макросе nagr, в другом макросе ngr, они объявлены как As String

например

Visual Basic

1	Dim vka2, ngr As String

@~~Апострофф~~ · 01.10.2014, 13:15

Ну и чему Вы удивляетесь, записывая

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

Visual Basic

1	Sheets("План по ППС").Cells(FIO - 1, 5).Value = ngr 'заносим нагрузку в 5й столбец

?
Запишите хотя бы так:

Visual Basic

1	Sheets("План по ППС").Cells(FIO - 1, 5).Value =cdbl(ngr) 'заносим нагрузку в 5й столбец

А формат ячеек не может изменить их содержание (.Value)

@Rinalaz · 01.10.2014, 15:06 **[ТС]**

так я и не хочу заменять содержание! я хочу чтобы просто копировалось и считалось! а при копировании теряется формат, и не считается в итоговой сумме! в этом проблема...

@~~Апострофф~~ · 01.10.2014, 15:15

Ещё раз повторяю - этой строкой

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

Sheets("План по ППС").Cells(FIO - 1, 5).Value = ngr 'заносим нагрузку в 5й столбец

Вы заносите в ячейку не число, а строку ngr As String
("844,35" к примеру) и никакие манипуляции с NumberFormat это не исправят.
Добавьте в код CDBL (как показано выше) или объявите Dim ngr As DOUBLE '~~String~~

@Rinalaz · 01.10.2014, 16:50 **[ТС]**

Апострофф, спасибо! дошло! попробовала, да, все теперь числовое!

@~~Апострофф~~ Заблокирован
	01.10.2014, 12:59	2
	Rinalaz, покажите, как объявлены переменные nagr и ngr. 0

@Rinalaz 0 / 0 / 0 Регистрация: 28.02.2014 Сообщений: 10
	01.10.2014, 15:06 [ТС]	5
	так я и не хочу заменять содержание! я хочу чтобы просто копировалось и считалось! а при копировании теряется формат, и не считается в итоговой сумме! в этом проблема... 0

@~~Апострофф~~ Заблокирован
	01.10.2014, 15:15	6
	Ещё раз повторяю - этой строкой Сообщение от Rinalaz Sheets("План по ППС").Cells(FIO - 1, 5).Value = ngr 'заносим нагрузку в 5й столбец Вы заносите в ячейку не число, а строку ngr As String ("844,35" к примеру) и никакие манипуляции с NumberFormat это не исправят. Добавьте в код CDBL (как показано выше) или объявите Dim ngr As DOUBLE '~~String~~ 1

@Rinalaz 0 / 0 / 0 Регистрация: 28.02.2014 Сообщений: 10
	01.10.2014, 16:50 [ТС]	7
	Апострофф, спасибо! дошло! попробовала, да, все теперь числовое! 0