TextBox вставка числового значения.

[Терминатор]

Вопрос простой, но я с этим раньше не сталкивался.
В TexBox находяшийся на форме ввожу числовые значения
от 0,1 до 0,9 далее по нажатию кнопки, введённые данные перемещаются на лист в ячейку.Но выводятся они в текстовом формате. Но так как мне надо производить вычисления, это приводит к ошибке. Как избежать этого?

[uhm]

Используй функцию CDbl:

Код: Выделить всё

    Cells(1, 1).Value = CDbl(TextBox1.Value)


[uhm]

ЗЫ Надеюсь, понятно, что это не "сды" а "си-ди-би-эл"

[Терминатор]

Спасибо!

(так между делом, если вводить числа от 1 и выше, подобного не происходит - Cells(1, 1) = TextBox1.Text , так можно всё жизнь проработать и не узнать о подобном ньюансе, ведь не всем требуется вводить столь малые числа)

[alibek]

Дело не в малости чисел, а в символе, используемом в качестве разделителя целой и дробной части.

[Терминатор]

По ходу возник Error.
У меня на форме 5 TexBox, два раза из десяти мне необходимо в тот куда я ввожу 0,1 оставлять пустым. Вот в этом случае возникает ошибка. Теперь что из-за использования CDbl прийдётся дописать код на проверку или есть другой вариант. Для наглядности.
With ActivateSheets
Cells(2, 1) = TextBox1.Text
Cells(2, 2) = TextBox2.Text
Cells(2, 3) = TextBox3.Text
Cells(2, 4) = TextBox4.Text
Cells(2, 5).Value = CDbl(TextBox5.Value) ' Вот тут при пустом TextBox возникает Error
End With

[GSerg]

• Проверка на len(text)
• Использование val вместо cdbl (и тогда "." вместо ",")

[Терминатор]

Знаток GSerg, на тот случай если я не сталкнулся ещё с каким-нибудь Error, но он меня ждёт.
Тогда подскажите, пожалуйста, проверка на len() обязательна? Или скажем так, в каких случаях она обязательна.

[uhm]

Ну, CDbl от пустой строки обламывается, это факт.
Можно сделать, на мой взгляд, лучше - использовать не функцию длины строки, а функцию IsNumeric, которая, фактически, показывает, сработает ли CDbl. Это, заодно, защитит и от ошибок некорректного ввода. Т. е. если IsNumeric(TextBox1.Value)=TRUE, то присвоить ячейке значение CDbl, иначе пустую строку (или ничего не делаем, или выводим сообщение об ошибке etc.)

[GSerg]

Хочу отметить, что IsNumeric(Empty)=True

[uhm]

Ага, а IsNumeric("") - False. И IsNumeric(TextBox1.Value) при пустом текстбоксе - тоже False. Так что, вроде бы, все работает