excelvb实践运用操作实例.docx

Vb对excel操作的实例 听语音 | 浏览：209 | 更新：2016-04-25 02:59 | 标签： HYPERLINK /tag?tagName=EXCEL \t _blank EXCEL? 1 2 3 4 5  HYPERLINK /album/90895e0fc7af0b64ec6b0bca.html 分步阅读 最近，由于工作关系，我用?vb6.0?做了一个计算成绩的软件，由于我不会数据库技术，同行对excel?应用又比较普遍，所以就用?vb6.0?操作?excel?完成了成绩统计的任务。 工具/原料 vb6.0 方法/步骤 先说说窗体，很简单，只运用了菜单，由此来调用程序代码。? 窗体命名为?excel?操作，共五个一级菜单。 创建表册用来制作所用表格。 计算成绩用来算成绩。 模拟运算用来测试软件，设置了两个子菜单，一个填随机生成的数据。有了数据就可以计算成绩了，看看效果如何。 测试完了就可以清空数据了，清空成绩册中的基础数据以后再计算一次成绩就基本可以使表册恢复原样了。其实，我这是多此一举，回头一想，只需要重新创建所用表册就行了。 还画蛇添足了俩菜单：计算器和退出。 代码也贴出来共享一下。 计算成绩：一年级： Private Sub yinianji_Click() Call?打开工作表 Call?算成绩?(1) kmb(1) = ?语文?: kmb(2) = ?数学?: kmb(3) = ?英语? Sheets(kmb(1)).Select For i = 1 To 8????记录一年级语文数据 With bj(i) .xxmc = Cells(2, i + 1) .dkjs = Cells(3, i + 1) .xkrs = Cells(4, i + 1) .xkzf = Cells(5, i + 1) .xkjgr = Cells(6, i + 1) .xkyxr = Cells(7, i + 1) .xkjf = Cells(8, i + 1) .bjkm = kmb(1) .njxh = 1 End With Next Sheets(kmb(2)).Select For i = 1 To 8????记录一年级数学数据 With bj(i + 8) .xxmc = Cells(2, i + 1) .dkjs = Cells(3, i + 1) .xkrs = Cells(4, i + 1) .xkzf = Cells(5, i + 1) .xkjgr = Cells(6, i + 1) .xkyxr = Cells(7, i + 1) .xkjf = Cells(8, i + 1) .bjkm = kmb(2) .njxh = 1 End With Next Dim hgrs(8)????记录各学校合格人数 For i = 1 To 8 Sheets(xx(i)).Select szl = Application.WorksheetFunction.Match(?总分?, Range([a2], [f2])) ?总分所在列即合格人数所在列 szh = Application.WorksheetFunction.Match(?合格人数?, Range(Cells(2, szl), Cells(80, szl))) “合格人数”所在行 hgrs(i) = Cells(szh + 2, szl) Next ?向学校总评表过录一年级数据 nj(1) = ?一年级?: nj(2) = ?二年级?: nj(3) = ?三年级?: nj(4) = ?四年级?: nj(5) = ?五年级: nj(6) = ?六年级? Workbooks.Open FileName:=ActiveWorkbook.Path \?学校总评?.xls For i = 1 To 16 With Sheets(?积分?) Sheets(?积分?).Select [a1] = ?年级?: [a2] = ?学科?: [a3] = ?学校?: [a4] = ?人数?: [a5] = ?总分?: [a6] = ?及格人数?: [a7] = ?优秀人数?: [a8] = ?积分? .Cells(1, i + 1) = nj(bj(i).njxh) .Cells(2, i + 1) = bj(i).bjkm .Cells(3, i + 1) = bj(i).xxmc .Cells(4, i + 1) = bj(i).xkrs .Cells(5, i + 1) = bj(i).xkzf .Cells(6, i + 1) = bj(i).xkjgr .Cells(7, i + 1) = bj(i).xkyxr .Cells(8, i + 1)