窗体控件自动计算
我的代码中用了,
textbox6_exit()事件。
还好,只有三个,如果很多,那是不现实,每个textbox都要写一个这样的事件。
这个可以变通一下。
textbox9_enter()
Private Sub TextBox9_Enter()
s = Val(TextBox6。 Value) + Val(TextBox7。Value) + Val(TextBox8。Value)
TextBox9。Value = IIf(s = 0, "", s)
End Sub(这个符合我们输数字的习惯,输完一个,按一下回车键)
或者用
'Private Sub UserForm_MouseMove...全部
我的代码中用了,
textbox6_exit()事件。
还好,只有三个,如果很多,那是不现实,每个textbox都要写一个这样的事件。
这个可以变通一下。
textbox9_enter()
Private Sub TextBox9_Enter()
s = Val(TextBox6。
Value) + Val(TextBox7。Value) + Val(TextBox8。Value)
TextBox9。Value = IIf(s = 0, "", s)
End Sub(这个符合我们输数字的习惯,输完一个,按一下回车键)
或者用
'Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
's = Val(TextBox6。
Value) + Val(TextBox7。Value) + Val(TextBox8。Value)
'TextBox9。Value = IIf(s = 0, "", s)
'End Sub
你输完了,textbox8后,要移动mouse到保存按钮上。
这个移动过程就会自动合计。
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms。ReturnInteger)
End Sub 这个事件在这种情况下,不发生作用,不知道为什么。
为了保证"合计"正确性,textbox9不能手动输数。
用了textbox9。enabled=false。收起