Здравствуйте! В следующих ситуациях:
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 и при копировании вносились все-таки числа? Ячейки отформатированы как числовые.
Большое спасибо!
[A1] = CDbl(Replace(TextBox1.Text, ".", ","))
Поясните, пожалуйста!
Replace - замена одного на другое.
CDbl - тип, в который преобразуется значение.
Неужели стать в редакторе курсором на операторе и ткнуть самостоятельно F1 - это адский труд?
если в текстбоксе число введено с точкой то CDbl выдаст ошибку, для того чтобы это не произошло заменяем точку на запятую.
а так просто меняем на нужный тип значение. в данном случае Doble
Встать и ткнуть, конечно, не сложно, только языками не владею.
А за помощь и наставничество большое спасибо!
lovko вот небольшая методичка по ф-циям VBA на русском.
Спасибо, но у меня методичка не читается. Заполнено только содержание. Когда щелкаешь на какую-нибудь статью из содержания, текст не появляется.
распакуйте и открывайте не из архива.
почитайте должно помочь (http://www.cronos.ru/kb-1317.html)
Попробую, спасибо!