в total нужно вывести значение (а1+а2+а3)-с сделала так:
[vba]
Код
Private Sub Label18_Click() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub
[/vba]
но значение в total появляется только, когда нажмешь на саму форму Label18, как сделать чтобы инфа выводилась без "клика" сразу по изменению данных в выше описанных формах? Спасибо.
в total нужно вывести значение (а1+а2+а3)-с сделала так:
[vba]
Код
Private Sub Label18_Click() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub
[/vba]
но значение в total появляется только, когда нажмешь на саму форму Label18, как сделать чтобы инфа выводилась без "клика" сразу по изменению данных в выше описанных формах? Спасибо.kotena
Private Sub TextBox10_Change() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub Private Sub TextBox11_Change() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub Private Sub TextBox12_Change() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub
[/vba]
По сложному - с классами надо поработать и по общему событию изменений обновлять соответвующую Label , определяя, в каком Textbox было изменение.
Обработайте события ввода, по простому вот так
[vba]
Код
Private Sub TextBox10_Change() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub Private Sub TextBox11_Change() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub Private Sub TextBox12_Change() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub
[/vba]
По сложному - с классами надо поработать и по общему событию изменений обновлять соответвующую Label , определяя, в каком Textbox было изменение.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Сообщение отредактировал bmv98rus - Пятница, 29.12.2017, 20:12
ну чтоб не плодить формулу сто раз можно сделать подпрограмму которая все считае и выводит в Label, а уже её вызывать по событию изменения.
[vba]
Код
Private Sub TextBox10_Change() CalcLabel118 End Sub Private Sub TextBox11_Change() CalcLabel118 End Sub Private Sub TextBox12_Change() CalcLabel118 End Sub Private Sub TextBox14_Change() CalcLabel118 End Sub
Private Sub CalcLabel118() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub
[/vba]
ну чтоб не плодить формулу сто раз можно сделать подпрограмму которая все считае и выводит в Label, а уже её вызывать по событию изменения.
[vba]
Код
Private Sub TextBox10_Change() CalcLabel118 End Sub Private Sub TextBox11_Change() CalcLabel118 End Sub Private Sub TextBox12_Change() CalcLabel118 End Sub Private Sub TextBox14_Change() CalcLabel118 End Sub
Private Sub CalcLabel118() Label18 = (Val(TextBox10) + Val(TextBox11) + Val(TextBox12)) - Val(TextBox14) End Sub
моя твоя не понимай! что, и, где, игнорируется? kotena, контроль ввода данных - тема отдельная. Но в рамках данного форума мое решение присутствует не однократно.
моя твоя не понимай! что, и, где, игнорируется? kotena, контроль ввода данных - тема отдельная. Но в рамках данного форума мое решение присутствует не однократно.RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Пятница, 29.12.2017, 21:38