三九宝宝网宝宝教育学龄段教育

Excel2003当中的宏是什么意

01月06日 编辑 39baobao.com

[包装技术的一般方法是什么呀]防潮包装 用于经过干制的低水分食品,目的在于防止食品从周围环境中吸收水蒸气而引起变质。因此要求包装材料的水汽透过率低、容器的密封性好。镀锡薄板和玻璃都是不透水蒸气...+阅读

Excel电子表格软件是应用最广泛的软件之一,它的数据处理、图表功能及各种函数和工具深受广大用户的喜爱。Excel文件是一个工作薄,一个工作薄最多可以包含255个工作表,每个工作表又可以包含大量的数据。 Excel的强大优势还在于它提供的宏语言Visual Basic for Application(VBA)。 Visual Basic是windows环境下开发应用软件的一种通用程序设计语言,功能强大,简便易用。VBA是它的一个子集,可以广泛地应用于Microsoft公司开发的各种软件中,例如Word、Excel、Access等。 那么,"宏"到底是什么呢? 在Excel 97中,"宏"是一个难以理解的概念,但对于一个具体的"宏"而言,却是容易理解的,如果说"将一块文字变为'黑体',字号为'三号'"就可以看作一个"宏"的话,那么"宏"就不难理解了,其实Excel 97中的许多操作都可以是一个"宏"。 "记录宏"其实就是将工作的一系列操作结果录制下来,并命名存储(相当于VB中一个子程序)。在Excel 97中,"记录宏"仅记录操作结果,而不记录操作过程。例如,改变文字字体时,需要打开"字体"栏中的下拉列表,再选择一种字体,这时文字即变为所选择的字体,这是一个过程,结果是将所选择的文字改变为所选择的字体。 而"记录宏"则只记录"将所选择的文字改变为所选择的字体"这一结果。 Excel 97中工作表是由行和列组成的二维表格,我们可以通过系统提供的语句activesheet。cells(I,j),将当前工作表中的第I行第j列所在的单元格中的数据取出(也可将它数据填入到指定的单元格中),然后反把它放入所定义的数组中,这时就可以对其进行各种操作,如求平均分、总分、分数段人数等等。 本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件,其中包含以下几个宏:分班、总分、平均分、分数段、删除等。 本程序是以本校高三理科班学生成绩进行分析。 有关程序中用到的几具宏的功能说明: 分班:针对于难以确定班级的情况下,以班为单位进行分班,本宏可以作为高一新生入学时进行分班的功能。 总分:对原始的成绩自动求总分。 平均分:对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。 分数段:给定一个最高分数及最低分数,然后统计出各班各个分数段的人数,各分数段人数进行累计。 删除:用于删除不用的工作表。 现将各个宏的代码列举如下: 一。分班 Sub 分班() Const studentno = 191 '学生人数 Const zdno = 12 '字段数 Dim zd$(zdno) '定义为12个字段的数组 Dim a(studentno, zdno), stu(60, zdno) Dim nam$(studentno), bjname$(60) '定义一个存放全校学生名字及各班学生名字的数组 Dim bj(studentno) '定义存放班级的一个数组 '理科班工作表 Sheets("高三理")。 Select For i = 2 To studentno bj(i) = ActiveSheet。Cells(i, 1) nam$(i) = ActiveSheet。Cells(i, 2) For j = 3 To zdno a(i, j) = ActiveSheet。 Cells(i, j) Next j Next i '存放字段到数组中。 For i = 1 To zdno zd$(i) = ActiveSheet。Cells(1, i) Next i '先建立各个班级的工作表 Sheets("高三理")。 Select Sheets("高三理")。Copy After:=Sheets("分数段") Sheets("高三理 (2)")。Select Sheets("高三理 (2)")。Name = "33" For i = 2 To studentno For j = 1 To zdno ActiveSheet。 Cells(i, j) = Space$

(1) Next j Next i Range("a1")。Select For i = 1 To zdno ActiveSheet。Cells(1, i) = zd$(i) Next i '34到36班工作表的建立 For i = 34 To 36 x$ = Mid$(Str(33), 2) Sheets(x$)。 Select Sheets(x$)。Copy After:=Sheets("分数段") Sheets(x$ + "

(2)")。Select Sheets(x$ + "

(2)")。Name = Mid$(Str(i), 2) Next i '具体分班。 For k = 33 To 36 bjrs = 0 x$ = Mid$(Str(k), 2) no = k Mod 10 Sheets(x$)。Select For i = 2 To studentno If bj(i) = no Then bjrs = bjrs + 1 bjname$(bjrs) = nam$(i) For j = 3 To zdno stu(bjrs, j) = a(i, j) Next j End If Next i For i = 2 To bjrs ActiveSheet。 Cells(i, 1) = no ActiveSheet。Cells(i, 2) = bjname$(i) For j = 3 To zdno ActiveSheet。Cells(i, j) = stu(i, j) Next j Next i Next k End Sub 二。 总分 Const studentno = 190 Const xknum = 6 Const zdnum = 12 Sheets("高三理")。Select For i = 2 To studentno + 1 Sum = 0 For j = 1 To xknum Sum = Sum + ActiveSheet。 Cells(i, j + 3) Next j ActiveSheet。Cells(i, zdnum-1) = Sum Next i End Sub 三。平均分 Sub 平均分() Const studentno = 190 Const xknum = 6 Dim fs(studentno, xknum), pjf3(4, 6), bjrs

(4), qxpjf

(6) Dim bj(studentno) Sheets("高三理")。 Select '以下程序段用于求全校平均分 For i = 1 To studentno bj(i) = ActiveSheet。Cells(i + 1, 1) For j = 1 To xknum fs(i, j) = ActiveSheet。 Cells(i + 1, j + 3) Next j Next i For i = 1 To xknum Sum = 0 For j = 1 To studentno um = Sum + fs(j, i) Next j qxpjf(i) = Sum / (j - 1) Next i '以下程序段用于求各班平均分 For j = 1 To 4 For i = 1 To studentno Ifbj(i) = j + 2 Then bjrs(j) = bjrs(j) + 1 For k = 1 To xknum pjf3(j, k) = pjf3(j, k) + fs(i, k) Next k End If Next i Next j For j = 1 To 4 For i...

以下为关联文档:

高等教育学和教育学原理有什么区别高等教育一般指中等后教育,主要包括大学教育。高等教育学是研究高等教育现象及问题的教育学原理是研究教育现象及问题的。教育学原理是一级学科,高等教育学是教育学原理下面的...

教育专业基础知识指的是什么《教育基础知识》主要包括教育学基础知识、教育心理学基础知识和教育法规三个部分。考试所占比例约为:教育学基础知识40%,教育心理学基础知识40%,教育法规20%。 第一部分:教育学...

专科生报考研究生需要什么条件国家规定到研究生开学时专科毕业满两年就可以报考(不必有实际的工作经验),不过: 虽然国家基本规定并没有什么额外要求,但各校会根据自己的实际情况,对同等学力(含专科)的考生的报考...

新生儿对色彩有什么感受最近,国外有学者对几百名婴儿进行了长达5年的观察和研究,结果表明,一个在五彩缤纷环境中长大的小宝宝,其观察能力、思维能力和记忆的发挥能力都高于普通色彩环境中长大的小宝宝...

对孩子进行自我保护教育应该注意什么成长目标: 1.知道独自在家时不给陌生人开门。 2.不玩火、不接触煤气、不碰电插座、不携带或玩弄危险物品,不到危险的地方玩。 3.外巾时如果与成人走散,不惊慌,不轻信陌生人的话,...

青春期自我保护的教育方法是什么一、提出青春期自我保护教育的背景 1、社会环境的复杂化与学校教育程式化,造成学生在自卫认识和能力方面的严重欠缺。总体上说,社会制度给青少年提供了一个光明、健康、积极、...

在职业活动中格守诚实守信的准则表现有什么一是学做人,会做人;二是学做事,会做事。而无论是做人还是做事,都离不开诚实守信的基本原则。诚信,是道德规范的重要内容,是做人之本、办事之根。 人若有诚信,萍水相逢的陌生人也会...

怎样让小学生记住英语单词。有什么好办法适合小学生记忆单词的方法: 1.观察记忆法 利用这种方法在初次接触单词时可以通过巧妙观察很快记住单词。 如: boy toy joy line fine nine night right light 等。 通过观察发...

出外旅游签证和护照到底什么关系啊签证与护照有什么区别? 护照是持有人国籍和身份的证明,签证是往访国家对持照人入出其国境的许可证明。进行国际间旅行,通常需要同时持有效护照和签证。护照是一个国家的公民出...

推荐阅读
图文推荐