Excel VBA编程典型实例复制工作表.docx
-
资源ID：3156599
资源大小：37.19KB
全文页数：4页
- 资源格式： DOCX
下载积分：6.99金币
|
友情提示
2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。
3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。
4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。
5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。
|
Excel VBA编程典型实例复制工作表.docx
Excel VBA编程 典型实例复制工作表Excel VBA编程 典型实例复制工作表 某校进行了一次考试，考试成绩按照学生的学号依次输入到Excel工作簿中。后来学校决定从所有的学生中，抽出考分大于500分的学生，进行一次集中学习，然后去参加省某科的知识竞赛。这个过程可使用VBA语句，对学生的成绩进行判断，并将大于500分的学生信息复制到另一个工作表中。 1.练习要点 l 代码 l 复制 2操作步骤： 在工作表Sheet1的单元格A列至K列中，输入相应的信息，并设置单元格的格式，如图14-7所示。 图14-7 设置工作表Sheet1 在工作表Sheet2的单元格A列到K列中，输入相应的信息，并设置单元格的格式，如图14-8所示。 图14-8 设置工作表Sheet2 在工作表中，添加，并设置该按钮的Caption属性的值为“复制”，如图14-9所示。 右击 输入 图14-9 设置属性 双击按钮，进入该控件的Click事件编辑窗口中，并输入实现事件的代码。如图14-10所示。 事件 图14-10 Sheet1编辑窗口 代码如下： Private Sub CommandButton1_Click Dim i As Integer i = 4 Do While 1 '判断是否到记录尾 If Sheet1.Range("A" & Trim(Str(i).Value = "" Then Exit Do '退出 Else x1 = Val(Sheet1.Range("H" & Trim(Str(i).Value) x2 = Val(Sheet1.Range("I" & Trim(Str(i).Value) x3 = Val(Sheet1.Range("J" & Trim(Str(i).Value) x4 = Val(Sheet1.Range("K" & Trim(Str(i).Value) x5 = x1 + x2 + x3 + x4 '判断4科成绩 If x5 > 500 Then copyRange (i) '复制记录过程 End If End If i = i + 1 Loop End Sub '复制记录 Sub copyRange(r As Integer) Dim i As Integer i = 3 Do While 1 If Sheet2.Range("A" & Trim(Str(i).Value = "" Then Sheet2.Range("A" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("B" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("C" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("D" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("E" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("F" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("G" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("H" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("I" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("J" & Trim(Str(i).Value Trim(Str(r).Value Sheet2.Range("K" & Trim(Str(i).Value Trim(Str(r).Value Exit Do End If i = i + 1 Loop End Sub = = = = = = = = = = = Sheet1.Range("A" Sheet1.Range("B" Sheet1.Range("C" Sheet1.Range("D" Sheet1.Range("E" Sheet1.Range("F" Sheet1.Range("G" Sheet1.Range("H" Sheet1.Range("I" Sheet1.Range("J" Sheet1.Range("K" & & & & & & & & & & & 代码段中过程copyRange，用于将提 示 满足条件的记录复制到Sheet2中。返回到Excel，在选项卡中，单击组中的按钮，取消工作簿的设计模式。 单击按钮，将满足条件的学生的信息复制到Sheet2中，如图14-11所示。 满足条件的记录 图14-11 满足条件的信息
