应用思考-教育技术论坛

标题: VBA应用示例教程：小学数学减法计算 [打印本页]

---

作者: etthink    时间: 2014-3-18 00:11
标题: VBA应用示例教程：小学数学减法计算
界面与功能说明：
(, 下载次数: 63)

上传

点击文件名下载附件

单击数字分别在减数与被减数框中输入数，完成出题过程
计算是对题目进行运算并在得数框中得出结果
清空是分别清空减数与被减数以及得数框中的数

实现过程：
1，为控制方便以及按文本框名称属性取值功能的实现（单击数字分别在减数与被减数框中输入数），利用选择窗格检查对象名称或重命名：
(, 下载次数: 64)

上传

点击文件名下载附件

2，按上面功能，编写三个过程函数（宏）：addtext、 clear()、Sub subtraction()

1. Sub addtext(oShp As Shape)
   
2.    
   
3.     With ActivePresentation.Slides(1)
   
4.         If .Shapes("减数框").TextFrame.TextRange.Text = "" Then
   
5.             .Shapes("减数框").TextFrame.TextRange.Text = Right(oShp.Name, 1)
   
6.         ElseIf .Shapes("被减数框").TextFrame.TextRange.Text = "" Then
   
7.             .Shapes("被减数框").TextFrame.TextRange.Text = Right(oShp.Name, 1)
   
8.         End If
   
9.     End With
   
10. 
    
11. End Sub
    
12. 
    
13. 
    
14. Sub clear()
    
15. 
    
16.     With ActivePresentation.Slides(1)
    
17.         .Shapes("减数框").TextFrame.TextRange.Text = ""
    
18.         .Shapes("被减数框").TextFrame.TextRange.Text = ""
    
19.         .Shapes("得数框").TextFrame.TextRange.Text = ""
    
20.     End With
    
21. 
    
22. End Sub
    
23. 
    
24. 
    
25. Sub subtraction()
    
26.    
    
27.     With ActivePresentation.Slides(1)
    
28.         .Shapes("得数框").TextFrame.TextRange.Text = Str(Val(.Shapes("减数框").TextFrame.TextRange.Text) - Val(.Shapes("被减数框").TextFrame.TextRange.Text))
    
29.     End With
    
30.    
    
31. End Sub

复制代码

3、指定宏运行：插入动作设置-选择相应功能的宏

(, 下载次数: 64)

上传

点击文件名下载附件

示例下载：[attach]7429[/attach

---

作者: 逍遥客    时间: 2014-5-6 16:03

---

作者: 逍遥客    时间: 2014-5-6 16:03

---

作者: sxlh    时间: 2014-10-27 09:04
看看这个，正好学习学习

---

欢迎光临 应用思考-教育技术论坛 (http://etthink.com/)

Powered by Discuz! X3.4