积极答复者
powerpoint2010如何把文本框控件中的数字转化为数值?

问题
答案
-
我要去掉最高分和最低分的textbox,这个怎么去呢?
倾力务实每一事,奋发创新每一天!
还是上面那条语句,把它的Text属性设为空值即""不就行了吗?不知道我对你问题的理解对不对?ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = “”
Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。- 已编辑 MVP WannabeModerator 2011年11月4日 15:39
- 已标记为答案 imkirinModerator 2011年12月13日 21:12
全部回复
-
其实你可以在VBE界面下按<Alt+F11>寻求帮助。
Access 开发人员参考
Min 和 Max 函数 (Microsoft Access SQL) 返回查询的指定字段中包含的一组值的最小值或最大值。
语法
Min(expr)
Max(expr)
expr 占位符代表一个字符串表达式(它标识了包含您要计算的数据的字段),或者代表一个使用该字段中的数据执行计算的表达式。expr 中的操作数可以包括表字段、常量或者函数(可以是固有函数或用户定义的函数,但不能是其他 SQL 聚合函数)的名称。
说明
通过 Min 和 Max,可以基于指定的聚合(或分组)来确定字段中的最小和最大值。例如,可以通过这些函数来返回最低和最高的运费。如果没有指定聚合函数,将使用整个表。
可以将 Min 和 Max 用在查询表达式中和 QueryDef 对象的 SQL 属性中,或者在基于 SQL 查询创建 Recordset 对象时使用这些表达式。
示例
以下示例使用 Orders 表返回发往 United Kingdom 的订单的最低和最高运货费。
以下示例调用 EnumFields 过程,您可以在 SELECT 语句示例中找到该过程。
Sub MinMaxX() Dim dbs As Database, rst As Recordset ' Modify this line to include the path to Northwind ' on your computer. Set dbs = OpenDatabase("Northwind.mdb") ' Return the lowest and highest freight charges for ' orders shipped to the United Kingdom. Set rst = dbs.OpenRecordset("SELECT " _ & "Min(Freight) AS [Low Freight], " _ & "Max(Freight)AS [High Freight] " _ & "FROM Orders WHERE ShipCountry = 'UK';") ' Populate the Recordset. rst.MoveLast ' Call EnumFields to print the contents of the ' Recordset. Pass the Recordset object and desired ' field width. EnumFields rst, 12 dbs.Close End Sub
佛是过来人,人是未来佛。- 已编辑 imkirinModerator 2011年11月1日 13:32 修改内容
- 已标记为答案 Rex ZhangModerator 2011年11月9日 2:22
- 取消答案标记 MVP WannabeModerator 2011年11月9日 17:03
-
我是菜鸟,看了帮助,还是没解决问题。
我的问题没有描述清楚?
计算选手得分:在PPT中有多个textbox,我在里面输入评委的分数,然后要找出最大值和最小值,并闪烁取消,然后计算剩下的平均值并显示出来
计算排名:最后对各位选手的得分进行排名,显示出来。
怎么做呀?
倾力务实每一事,奋发创新每一天!
下面的代码将第1张幻灯片中第2个形状中的文本转换为整数,并赋值给变量a:a=CInt(ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text)
你可以定义一个数组,然后用一个循环将i个形状中文本转换为整数后赋给这个数据的各成员
VBA中没有现成的求最大值的函数,可以用冒泡法等方法求最大值,如:比较数组第1、2个成员,将大的放入1,再比较1、3,同样将大的放入1……最终数组的第一个成员中存放的就是最大值
求最小值的方法相同
Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。 -
求最大值和最小值以及排序我是会的,已经搞定
但是怎么把那个相关的textbox闪烁取消呢?
还有就是最后选手得分排序后,怎么显示?
倾力务实每一事,奋发创新每一天!
你说的textbox闪烁是什么情况我不太理解……最后得分的显示就是把值赋给文本框啊,跟从文本框取数据一个道理,反过来做就是了,如下面的语句把200赋给第1张幻灯片的第1个形状:
ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = CStr(200)
Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。 -
我要去掉最高分和最低分的textbox,这个怎么去呢?
倾力务实每一事,奋发创新每一天!
还是上面那条语句,把它的Text属性设为空值即""不就行了吗?不知道我对你问题的理解对不对?ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = “”
Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。- 已编辑 MVP WannabeModerator 2011年11月4日 15:39
- 已标记为答案 imkirinModerator 2011年12月13日 21:12