Формула =ЗНАЧЕН() в макросе

[lovko]

Здравствуйте! В следующих ситуациях:

Код Выделить Развернуть

Workbooks("Наряд.xlsm").Sheets("Формулы").[B38] = TextBox1
или

Код Выделить Развернуть

Workbooks("Наряд.xlsm").Sheets("Формулы").[G38] = Workbooks("Наряд.xlsm").Sheets("Формулы").[B38]
или

Код Выделить Развернуть

r = InputBox("Счет для оплаты", "Форма платежа")
Workbooks("Наряд.xlsm").Worksheets("Формулы").Range("B34") = r
в ячейках [B38], [G38]  и [B34] должны быть числа, но программа их видит как текст, соответственно, не вычисляет. Как указать программе на то, чтобы из TextBox1, из InputBox и при копировании вносились все-таки числа? Ячейки отформатированы как числовые.
Большое спасибо!

[cheshiki1]

Код Выделить Развернуть

[A1] = CDbl(Replace(TextBox1.Text, ".", ","))

[lovko]

Поясните, пожалуйста!

[vikttur]

Replace - замена одного на другое.
CDbl - тип, в который преобразуется значение.

Неужели стать в редакторе курсором на операторе и ткнуть самостоятельно F1 - это адский труд?

[cheshiki1]

если в текстбоксе число введено с точкой то CDbl выдаст ошибку, для того чтобы это не произошло заменяем точку на запятую.
а так просто меняем на нужный тип значение. в данном случае Doble

[lovko]

Встать и ткнуть, конечно, не сложно, только языками не владею.

[lovko]

А за помощь и наставничество большое спасибо!

[cheshiki1]

lovko вот небольшая методичка по ф-циям VBA на русском.

[lovko]

Спасибо, но у меня методичка не читается. Заполнено только содержание. Когда щелкаешь на какую-нибудь статью из содержания, текст не появляется.

[cheshiki1]

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

[lovko]

Попробую, спасибо!