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

nickal · 发表于 2006-9-9 00:09

这是一个在PPT里设公式自动求出结果的问题，详情见附件，急盼高手指点！！[em09][em06]

OjVCuoUk.rar (43.67 KB, 下载次数: 20)

[此贴子已经被作者于2006-9-9 0:10:39编辑过]

c81 · 发表于 2006-9-9 01:58

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

c81 · 发表于 2006-9-9 02:01

请用四个控件文本框，分别是TextBox1,2,3,4

[此贴子已经被作者于2006-9-9 2:04:24编辑过]

cqdanielzh · 发表于 2006-9-9 10:54

好呀，又学会了一招，知道怎样使用change事件和got focus事件了。谢谢c81兄。但是有一个问题，测试中发现textbox的value属性返回的好像不是val，而是string，把“a = textbox1.value”改为“a = val(textbox1.value)”或“a = val(textbox1.text)”就通过了。不知为什么会这样。

另外，楼主给的答案似乎有误，按你提供的a,b,c的值最后得数应是68.135275呀。不知我有没有搞错。

nickal · 发表于 2006-9-10 23:07

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

nickal · 发表于 2006-9-10 23:13

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

cqdanielzh · 发表于 2006-9-11 10:58

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

nickal · 发表于 2006-9-11 14:55

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

[em06]

cqdanielzh · 发表于 2006-9-11 15:31

还要在显示得数的文本框中点击一下，使它获得焦点。

（宏代码中最后一个过程就是处理这一点的，它的意思是：

Private Sub TextBox4_GotFocus() '当第四个文本框获得焦点这一事件发生时
textbox4.Value = (11.11 * a + 11422.36 * b) / c '则令其显示11.11*a+11422.36*b)/c 的结果
End Sub '结束过程

nickal · 发表于 2006-9-13 15:27

按照楼上说的做怎么还是不行啊，能不能帮我看看？另外，如果

a,b,c,d任意指定3个数值，第四个数字自动根据这个公式返回出所需要的

值，又该怎么设置？如，任意指定B=4，D=96.69，C=800，A=？依次类推……

TQ6zWw8X.rar (60.38 KB, 下载次数: 12)
[em06][em13]

		自动登录	找回密码
密码			免费注册