Страницы: 1
RSS
Привязать функцию прописью к кнопке на UserForm, Привязать функцию прописью к кнопке на UserForm
 
Добрый день!
Пожалуйста, помогите привязать функцию прописью, из найденного макроса, к TextBox2, если  Text Box1 больше 0.
 
Код
Private Sub TextBox1_Change()
    TextBox2 = ÐóáÏðîïèñü(SuperVal(TextBox1))
End Sub
Function SuperVal(s)
    SuperVal = Val(Replace(s, ",", "."))
End Function
 
RAN, спасибо за ответ! Убрала лишний код функции, но TexBox2 сумма прописью при заполнении TexBox1 не появилась... Что я сделала не так ?
 
verrrra, День Добрый. Код RAN,  работает. Файл прилагаю.
Изменено: MikeVol - 19.03.2021 17:34:34 (Файл пример не загрузился.)
 
RAN,MikeVol
 Большое спасибо!!! Заработало!!!
Страницы: 1
Наверх