user_pvocp 发表于 2016-4-12 12:25:17

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

这是一个在PPT里设公式自动求出结果的问题，详情见附件，急盼高手指点！！{:5_186:}{:5_201:}

user_tceco 发表于 2016-4-12 13:39:08

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 发表于 2016-4-12 13:57:05

请用四个控件文本框，分别是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 发表于 2016-4-12 14:39:45

好呀，又学会了一招，知道怎样使用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 发表于 2016-4-12 14:43:13

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

cx235 发表于 2016-4-12 15:06:11

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

zzzzzz 发表于 2016-4-12 15:37:29

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

goodscx 发表于 2016-4-12 15:41:48

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

trulytry 发表于 2016-4-12 15:51:10

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

user_vsauf 发表于 2016-4-12 15:58:14

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

{:5_201:}{:5_188:}
页: [1] 2
查看完整版本: [求助]怎样在PPT中实现这样的效果？关于公式