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 没有提供一个内置工具帮你完成该任务,那么创建一个宏命令吧 。  
宏命令可以使你能够将工作表的任何部分工作自动化 。例如,你可以自动化数据录入――创建一个宏命令在工作表输入标题或者用新标签取代列标题 。宏命令可以帮你检查选中的工作表区域里的重复值 。


特别声明:本站内容均来自网友提供或互联网,仅供参考,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。