《Excel VBA编程典型实例复制工作表.docx》由会员分享，可在线阅读，更多相关《Excel VBA编程典型实例复制工作表.docx（4页珍藏版）》请在三一办公上搜索。
1、Excel VBA编程 典型实例复制工作表Excel VBA编程 典型实例复制工作表 某校进行了一次考试，考试成绩按照学生的学号依次输入到Excel工作簿中。后来学校决定从所有的学生中，抽出考分大于500分的学生，进行一次集中学习，然后去参加省某科的知识竞赛。这个过程可使用VBA语句，对学生的成绩进行判断，并将大于500分的学生信息复制到另一个工作表中。 1.练习要点 l 代码 l 复制 2操作步骤： 在工作表Sheet1的单元格A列至K列中，输入相应的信息，并设置单元格的格式，如图14-7所示。 图14-7 设置工作表Sheet1 在工作表Sheet2的单元格A列到K列中，输入相应的信息，并
2、设置单元格的格式，如图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 退
3、出 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 c
4、opyRange(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
5、(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
6、(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 满足条件的信息
