爱问知识人 爱问教育 医院库

窗体控件自动计算

首页

窗体控件自动计算

请教高手如何使窗体自动计算合计项并填充到表中,谢谢!

请教高手如何使窗体自……
提交回答
好评回答
  • 2018-02-09 23:48:04
      我的代码中用了,
    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。

    1***

    2018-02-09 23:48:04

类似问题

换一换

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):