хранимое значение VS. отображаемое

[Exo]

всем привет!
народ, подскажите пожалуйста, как изменить хранимое значение?

из 1С в неком отчете выгружается число 50, это число мне нужно загрузить в Oracle, но обязательное условие, что бы это было 50,00 (так устроено это чудовище) меняя формат ячейки на +2 знака после запятой изменяется только отображаемое значение, хранимое же значение так и остается = 50, а задача как я сказал иметь число 50,00 как хранимое значение.

как решить вопрос.
заранее спасибо!

[Exo]

guys, неужеле мыслей нет

[The_Prist]

В общем-то это будет уже не число, а текст. Если подойдет,то вот вариант

Dim f As Integer, g As String
f = 50
g = Format(f, "00.00")

При необходимости можно при расчетах конвертировать опять в число

g = CDbl(g)

[Exo]

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

В общем-то это будет уже не число, а текст. Если подойдет,то вот вариант

Dim f As Integer, g As String
f = 50
g = Format(f, "00.00")

При необходимости можно при расчетах конвертировать опять в число

g = CDbl(g)

ибо я не очень в VBA, хотелось бы процедуру на выделенный пользователем диапазон

[The_Prist]

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

ибо я не очень в VBA, хотелось бы процедуру на выделенный пользователем диапазон

Ибо не вижу что выделять. Вашего примера нет, в посте не указано, что должно выделяться(ячейка, часть ячейки, еще что-то). Выделили, преобразовали и что дальше?

[Exo]

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

Ибо не вижу что выделять. Вашего примера нет, в посте не указано, что должно выделяться(ячейка, часть ячейки, еще что-то). Выделили, преобразовали и что дальше?

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

[The_Prist]

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

Зачем Вам пример, нужно что бы....

Вы интересный человек. Почитайте свой первый пост и найдите там слова выделение, юзер и т.д. Или что Вам требуется в итоге. Вы просили подсказать как решить вопрос - я подсказал. Теперь Вам НАДО решение, а Вы зачем... Держите тогда вот так, раз ниче кроме преобразования выделенного не надо и других условий нет.

Sub Transformation()
    Dim rCell As Range
    For Each rCell In Selection: rCell = Format(rCell, "00.00"): Next rCell
End Sub

[Exo]

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

Sub Transformation()
    Dim rCell As Range
    For Each rCell In Selection: rCell = Format(rCell, "00.00"): Next rCell
End Sub

perfect!!!
спасибо большое и хороших выходных