excelvb实践运用操作实例

Vb 对 excel 操作的实例听语音 |浏览：209 |更新：2025-04-25 02:59 ｜标签:EXCEL 12345分步阅读最近，由于工作关系,我用 vb6。0 做了一个计算成绩的软件，由于我不会数据库技术，同行对 excel 应用又比较普遍，所以就用 vb6.0 操作 excel 完成了成绩统计的任务。工具/原料vb6。0方法/步骤1. 先说说窗体，很简单，只运用了菜单，由此来调用程序代码。 窗体命名为 excel 操作，共五个一级菜单。2. 创建表册用来制作所用表格。3. 计算成绩用来算成绩。4. 模拟运算用来测试软件，设置了两个子菜单，一个填随机生成的数据.有了数据就可以计算成绩了,看看效果如何.5. 测试完了就可以清空数据了，清空成绩册中的基础数据以后再计算一次成绩就基本可以使表册恢复原样了。其实，我这是多此一举，回头一想，只需要重新创建所用表册就行了。还画蛇添足了俩菜单：计算器和退出。6. 代码也贴出来共享一下。计算成绩：一年级：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' ...