excel vb 实践运用操作实例.docx

Vb对excel操作的实例听语音|浏览：209|更新：2016-04-25 02:59|标签：/tag?tagName=EXCELEXCEL?12345/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)).SelectFor 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 = 1End WithNextSheets(kmb(2)).SelectFor 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 = 1End WithNextDim hgrs(8)????记录各学校合格人数For i = 1 To 8Sheets(xx(i)).Selectszl = 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 \?学校总评?.xlsFor i = 1 To 16With 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) = bj(i).xkjfEnd WithNextWorkbooks.Open FileName:=ActiveWorkbook.Path \?上报?.xlsWith Sheets(?中心校?) ?过录中心校成绩.Cells(bj(1).n