vba实验内容.doc

第一次实验
掌握在EXCEL工作簿中录制“宏”和使用“宏”
掌握在VBA环境中查看已录制“宏”并达到修改,从而增加“宏”的功能,了解单元格的内部格式(,Font.)
在VBA环境中通过“宏”编写小程序
掌握自定义过程和函数在EXCEL中的应用
“宏”、使用“宏”、观察“宏”。运行以下程序:
Sub 填充颜色()
Dim k As Integer, c As String
For k = 1 To 56
c = "A" & k
Range(c).Select
= k
Next k
End Sub
注:与ColorIndex属性相关的对象有Border、Borders(四条边)、Font和Interior。
:A10输入相同的字,如“”,编写程序设置它们的字体大小,A1设置为10磅,以后每个加2磅。
Sub 改变字体大小()
Dim k As Integer, c As String
For k = 1 To 10
c = "A" & k
Range(c).Select
With
.Size = 10 + 2 * k
End With
Next k
End Sub
“宏”“我开始用VBA写程序了!”
(1)中的例子,由任课教师指定两题,编写相应的程序。
,编写程序由身份证号码确定好友的生日。
第二次实验
了解并掌握VBA的编程环境
初步认识VBAProject对象
掌握EXCEL的工作簿、工作表、单元格、区域。
掌握EXCEL的工作簿、工作表、单元格、区域的选中。
调用EXCEL函数,WorkSheetFunction(Min,Max,Average等)
输入输出函数
,在A列的1—10行输入序号1—10,在B列的1—10行填入0—1之间的随机数,在C列的1—10行填入两位正整数,最后在C列的11行求出该列的最大数(调用EXCEL的内部MAX函数)。以上要求均用程序实现。
()函数输入10个数,放入单元格A1:A10,在C列输出其中超过平均数的数和个数。
,打印九九乘法表如下。
Sub jiujiu()
Dim i As Integer, j As Integer
For i = 1 To 9
Cells(1, i + 1).Value = i
Cells(i + 1, 1).Value = i
Next i
Rows(1). = True
Rows(1).HorizontalAlignment = xlCenter
Columns(1). = True
Columns(1).HorizontalAlignment = xlCenter
For i = 1 To 9
For j = i To 9
Cells(i + 1, j + 1).Value = i * j