none
powerpoint2010如何把文本框控件中的数字转化为数值? RRS feed

  • 问题

  • 我要把两个文本框中的数字求和,怎么做?

    如何判断多个文本框中数字的最大值和最小值?


    倾力务实每一事,奋发创新每一天!
    2011年10月30日 13:48

答案

  • 我要去掉最高分和最低分的textbox,这个怎么去呢?
    倾力务实每一事,奋发创新每一天!


    还是上面那条语句,把它的Text属性设为空值即""不就行了吗?不知道我对你问题的理解对不对?

    ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = “”


    Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。
    2011年11月4日 15:28
    版主

全部回复

  • 每一个问题搞定了。

     

    判断最大值最小值的VBA函数是什么?


    倾力务实每一事,奋发创新每一天!
    2011年10月30日 14:03
  • 其实你可以在VBE界面下按<Alt+F11>寻求帮助。

    Access 开发人员参考

    Min 和 Max 函数 (Microsoft Access SQL)

    返回查询的指定字段中包含的一组值的最小值或最大值。

    语法

    Min(expr)

    Max(expr)

    expr 占位符代表一个字符串表达式(它标识了包含您要计算的数据的字段),或者代表一个使用该字段中的数据执行计算的表达式。expr 中的操作数可以包括表字段、常量或者函数(可以是固有函数或用户定义的函数,但不能是其他 SQL 聚合函数)的名称。

    说明

    通过 MinMax,可以基于指定的聚合(或分组)来确定字段中的最小和最大值。例如,可以通过这些函数来返回最低和最高的运费。如果没有指定聚合函数,将使用整个表。

    可以将 MinMax 用在查询表达式中和 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

    佛是过来人,人是未来佛。
    2011年10月30日 16:05
    版主
  • 按<F11>没反应啊
    倾力务实每一事,奋发创新每一天!
    2011年10月31日 14:26
  • 按<F11>没反应啊
    倾力务实每一事,奋发创新每一天!

    imkirin版主是想说,按alt-f11进入VBE,按F1启动帮助
    Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。
    2011年10月31日 14:37
    版主
  • 谢谢谢谢,我打错了。已经改正!
    佛是过来人,人是未来佛。
    2011年11月1日 13:32
    版主
  • 我是菜鸟,看了帮助,还是没解决问题。

    我的问题没有描述清楚?

    计算选手得分:在PPT中有多个textbox,我在里面输入评委的分数,然后要找出最大值和最小值,并闪烁取消,然后计算剩下的平均值并显示出来

    计算排名:最后对各位选手的得分进行排名,显示出来。

     

    怎么做呀?

     

     


    倾力务实每一事,奋发创新每一天!
    2011年11月2日 15:07
  • 我是菜鸟,看了帮助,还是没解决问题。

    我的问题没有描述清楚?

    计算选手得分:在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 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。
    2011年11月2日 17:21
    版主
  • 求最大值和最小值以及排序我是会的,已经搞定

    但是怎么把那个相关的textbox闪烁取消呢?

    还有就是最后选手得分排序后,怎么显示?


    倾力务实每一事,奋发创新每一天!
    2011年11月3日 0:27
  • 如果该问题解决,可以标记答案。如有新问题,请重新开贴,便于大家回复,也便于其他人阅读。
    佛是过来人,人是未来佛。
    2011年11月3日 13:41
    版主
  • 求最大值和最小值以及排序我是会的,已经搞定

    但是怎么把那个相关的textbox闪烁取消呢?

    还有就是最后选手得分排序后,怎么显示?


    倾力务实每一事,奋发创新每一天!


    你说的textbox闪烁是什么情况我不太理解……

    最后得分的显示就是把值赋给文本框啊,跟从文本框取数据一个道理,反过来做就是了,如下面的语句把200赋给第1张幻灯片的第1个形状:

    ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = CStr(200)


    Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。
    2011年11月3日 15:55
    版主
  • 我要去掉最高分和最低分的textbox,这个怎么去呢?
    倾力务实每一事,奋发创新每一天!
    2011年11月4日 15:24
  • 我要去掉最高分和最低分的textbox,这个怎么去呢?
    倾力务实每一事,奋发创新每一天!


    还是上面那条语句,把它的Text属性设为空值即""不就行了吗?不知道我对你问题的理解对不对?

    ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = “”


    Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。
    2011年11月4日 15:28
    版主
  • 请问你的问题解决了吗?
    Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。
    2011年11月7日 15:58
    版主