
想问某些VBA代码段编写,还是主/子窗体的设计,调用。
代码是代码。
界面是界面。
分开编写,设计的。
每个窗体都有自己的后台VBA代码。
实现的方案是多种多样的,请根据实际需求进行设计。下面提供一个设计方案供参考:'先编写自定义求和函数
Private Function sumTwoNums(Num1 As Single,Num2 As Single) As Single
Dim Num As Single
Num=Num1+Num2
Num=Round(Num,2) '四舍五入保留2位小数
sumTwoNums=Num
End Function
'编写命令按钮单击事件过程,将文本框1和文本框2中的数字和,显示到文本框3中
Private Sub Command1_Click()
If Not IsNumeric(Text1.Value) Then
MsgBox "请在文本框1输入一个正确的数字"
Text1.SetFocus
Exit Sub
End If
If Not IsNumeric(Text2.Value) Then
MsgBox "请在文本框2输入一个正确的数字"
Text2.SetFocus
Exit Sub
End If
'调用求和函数,显示运算结果到文本框3
Text3=sumTwoNums(Text1+Text2)
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)