[求助]怎样在PPT中实现这样的效果？关于公式

user_pvocp

这是一个在PPT里设公式自动求出结果的问题，详情见附件，急盼高手指点！！
OjVCuoUk.rar (43.67 KB, 下载次数: 291)

2016-4-12 12:25 上传

点击文件名下载附件

user_tceco

Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Private Sub TextBox1_Change()
a = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
b = TextBox2.Value
End Sub
Private Sub TextBox3_Change()
c = TextBox3.Value
End Sub
Private Sub TextBox4_GotFocus()
textbox4.Value = (11.11 * a + 11422.36 * b) / c
End Sub

user_iksjw

请用四个控件文本框，分别是TextBox1,2,3,4
document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

user_qcoos

好呀，又学会了一招，知道怎样使用change事件和got focus事件了。谢谢c81兄。但是有一个问题，测试中发现textbox的value属性返回的好像不是val，而是string，把“a = textbox1.value”改为“a = val(textbox1.value)”或“a = val(textbox1.text)”就通过了。不知为什么会这样。
另外，楼主给的答案似乎有误，按你提供的a,b,c的值最后得数应是68.135275呀。不知我有没有搞错。

user_vtewsnha

应该是B=4，答案就是96.69了

cx235

插入了控件文本框加入了代码之后，怎样填数字进去啊？

zzzzzz

在放映状态下，单击文本框后就可以输入了。

goodscx

按照楼上的方法输入了数字之后，怎么第四个控件文本框没有反应？

trulytry

还要在显示得数的文本框中点击一下，使它获得焦点。
（宏代码中最后一个过程就是处理这一点的，它的意思是：
Private Sub TextBox4_GotFocus() '当第四个文本框获得焦点这一事件发生时
textbox4.Value = (11.11 * a + 11422.36 * b) / c '则令其显示11.11*a+11422.36*b)/c 的结果
End Sub '结束过程

user_vsauf

按照楼上说的做怎么还是不行啊，能不能帮我看看？另外，如果
a,b,c,d任意指定3个数值，第四个数字自动根据这个公式返回出所需要的
值，又该怎么设置？如，任意指定B=4，D=96.69，C=800，A=？依次类推……
TQ6zWw8X.rar (60.38 KB, 下载次数: 25)

2016-4-7 19:25 上传

点击文件名下载附件