excel宏是什么( 二 )

对于j=1至zdno
活动纸。单元格(I，j)=空间$(1)
下一个j
接下来我
范围(‘ a1 ‘) 。挑选
对于i=1至zdno
活动纸。单元格(1，i)=zd$(i)
接下来我
为34类至36类建立工作表
i=34至36
x$=Mid$(Str(33)，2)
床单(x$) 。挑选
床单(x$) 。copyafter:=工作表(‘分数段’)
工作表(x$ ‘ (2 ‘) 。挑选
工作表(x$ ‘ (2 ‘) 。名称=Mid$(Str(i)，2)
接下来我
具体安置。
对于k=33至36
bjrs=0
x$=Mid$(Str(k)，2)
no=kMod10
床单(x$) 。挑选
对我来说=2对学生
如果bj(I)=否，则
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=1 To 6
pjf3(j, i)=pjf3(j, i) / bjrs(j)
Next i
Next j
’写入各班各科平均分
Sheets(“平均分”).Select
For i=1 To 4
For j=1 To 6
ActiveSheet.Cells(i + 2, j + 1)=pjf3(i, j)
Next j
Next i
’写入全校各科平均分
i=7
For j=1 To 6
ActiveSheet.Cells(i, j + 1)=qxpjf(j)
Next j
End Sub
宏是一些储存了一系列命令的程序。当你创建一个宏命令的时候，你只是将一系列的键盘输入结合成一个简单的命令，你以后可以“回演”这个命令。因为宏命令可以减少复杂任务的步骤，使用宏命令可以显著得减少你花在创建，设置格式，修改和打印工作表的时间。你可以通过 Excel 内置的录制工具来创建宏命令，也可以在代码编辑器里面直接写代码。微软 Excel2002 电子表格具有强大的编程功能。
技巧：普通语言
Excel5 是市场上第一个使用 VBA 的软件。从那以后，VBA 开拓了在所有微软办公应用软件中的应用。这意味着你从本手册中学习的VBA将来同样可以应用到其它微软办公软件中，例如：Word,PowerPoint,Outlook or Access
微软 Excel2002 带来了很多内置，节省时间的特点，这些使你工作得更快更聪明。在你决定用宏命令来自动化工作表任务前，确保没有现成的内置工具来做这项任务。然而，当你发现你需要反复地做一些动作，或者 Excel 没有提供一个内置工具帮你完成该任务，那么创建一个宏命令吧。
宏命令可以使你能够将工作表的任何部分工作自动化。例如，你可以自动化数据录入――创建一个宏命令在工作表输入标题或者用新标签取代列标题。宏命令可以帮你检查选中的工作表区域里的重复值。