пишу число, а получается не число как так?

[suxo]

Замысловатое название темы, но именно так.
через vba делаю следующее

Sheets("rates").Range(price) = [b5]
        With Sheets("rates").Range(price)
         aText = Split(.Text, ",")
             ReDim Preserve aText(UBound(aText) - 1)
             .Value = LCase(Join(aText))
End With

в активном листе в ячейке b5 написано 320,00 руб
кодом я отрубаю все что после запятой и вставляю в другую ячейку(price переменная) на листе rates

Все работает! НО

Это значение, которое вставилось, excel не принимает как число, т.е. если выделить эту ячейку и другую, в которую вбить число руками они не проссумируются справа внизу в строке состояния.
НО, стоит только зайти в эту ячейку и нажать enter, значение в ячейке становится числом и суммируется с другими.

Почему так?

[maksim_serg]

Join(aText)- это функция работы с текстом, то есть что ты там не было она превратит в текст.
Добавьте val(LCase(Join(aText))), должно получится.
А может лучше использовать формулы =ОКРУГЛВНИЗ(В5)

[Aent]

А ещё в VBA никто не отменял функцию Round

Round Function

Description

Returns a number rounded to a specified number of decimal places.

Syntax

Round(expression [,numdecimalplaces])

The Round function syntax has these parts:

Part Description
expression Required. Numeric expression being rounded.
numdecimalplaces Optional. Number indicating how many places to the right of the decimal are included in the rounding. If omitted, integers are returned by the Round function.

[suxo]

использовал val ! супер, спасибооо!!!

[viter.alex]

Однако, использовать Split и Join здесь это как из пушки по воробьям:

With Sheets("rates").Range(price)
  .Value = CInt(.Text)
End With