《vba实验内容》由会员分享，可在线阅读，更多相关《vba实验内容（6页珍藏版）》请在金锄头文库上搜索。
1、第一次实验第一次实验掌握在 EXCEL 工作簿中录制“宏”和使用“宏” 掌握在 VBA 环境中查看已录制“宏”并达到修改，从而增加“宏”的功能， 了解单元格的内部格式（Interior.ColorIndex，Font.） 在 VBA 环境中通过“宏”编写小程序 掌握自定义过程和函数在 EXCEL 中的应用 1参照例 1.1 录制“宏” 、使用“宏” 、观察“宏” 。运行以下程序： Sub 填充颜色()Dim k As Integer, c As StringFor k = 1 To 56c = “A“ & kRange(c).SelectSelection.Interior.ColorInde
2、x = kNext k End Sub 注：与 ColorIndex 属性相关的对象有 Border、Borders（四条边） 、 Font 和 Interior。2录制“宏”：在 A1：A10 输入相同的字，如“ZUCC” ，设置它们的字体大 小，A1 设置为 10 磅，以后每个加 2 磅。 提示：先只在 A1 中输入“ZUCC” ，再设字体大小，其它的单元格不用设，然后 停止录制。再研究并修改代码，加上循环，把它延伸到其它单元格上。3编写过程：用 MsgBox 输出“我开始用 VBA 写程序了！” ；用 Debug.Print 输出 application 对象的 caption 和 us
3、ername 属性。 4参照文件 VBA 实验(1)中的例子，编写 EXCEL 自定义函数。第二次实验第二次实验了解并掌握 VBA 的编程环境 初步认识 VBAProject 对象 掌握 EXCEL 的工作簿、工作表、单元格、区域。 掌握 EXCEL 的工作簿、工作表、单元格、区域的选中。 调用 EXCEL 函数，WorkSheetFunction（Min，Max，Average 等） 输入输出函数 1.调用 EXCEL 的 RAND 和 INT 内部函数，在 A 列的 110 行输入序号 110，在 B 列的 110 行填入 01 之间的随机数，在 C 列的 110 行填入两位正整数，最后在
4、 C 列的 11 行求出该列的最大数（不能调用 MAX 函数） 。以上要求均用程序实现。2.用 Application.Inputbox()函数输入 10 个数，放入单元格 A1：A10，在 C 列输出其中超过平均数的数和个数。3编程序，打印九九乘法表如下。 （程序供参考，由学生编写）Sub jiujiu()Dim i As Integer, j As IntegerFor i = 1 To 9Cells(1, i + 1).Value = iCells(i + 1, 1).Value = iNext iRows(1).Font.Bold = TrueRows(1).HorizontalAli
5、gnment = xlCenterColumns(1).Font.Bold = TrueColumns(1).HorizontalAlignment = xlCenterFor i = 1 To 9For j = Next jNext i End Sub4随机产生 10 个 6100 之间的偶数，对每个数进行哥德巴赫猜想（Goldbach Conjecture）验证。 （程序供参考，由学生编写）Function IsPrime(ByVal n As Integer) As BooleanDim k As IntegerIsPrime = _For k = 2 To n - 1If n Mod
6、k = 0 ThenIsPrime = _Exit ForEnd IfNext k End Function Sub Goldbach()Dim i As Integer, a As Integer, n As IntegerOn Error Resume NextWorksheets(1).ActivateRandomizeFor i = 1 To 10Cells(i + 1, 1).value = (Int(Rnd * 48) + 3) * 2 Next i For i=1 to 10填写下面代码，把 Cells(i + 1, 1)分解成两个素数：Next iOn Error GoTo 0
7、 End Sub5参照文件 VBA 实验(2)中的例子，编写相应的程序。第三次实验第三次实验掌握 EXCEL 的“窗体”控件和“控件工具箱”控件，并能建立相联的程序代码 掌握 EXCEL 的自定义工具栏 掌握 EXCEL 的多表操作 编写去掉重复数（讲义 P25，范例 1）1在工作表 1 上创建“窗体”按钮并建立与之相关的“宏” ，编写代码完成：从键盘输入 一个整数 n，输出如下图形。其中每个“*”在单元格中水平和垂直方向都要求居中。Sub paint()Dim n As Integer, i As Integer, j As Integern = InputBox(“输入行数“) 设置相应单
8、元格的值Cells(1, n).ActivateActiveCell.CurrentRegion.SelectWith Selection.Font.Size = 16.Font.Bold = True.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterEnd With End Sub2参见 Excel 文件“VBA 实验(3)”中的学生成绩表，遍历 5 门课的所有成绩，凡是低 于 60 分的，用红色显示（不用条件格式，要用程序实现） 。3在工作表 1 上创建“控件工具箱”命令按钮“产生数据”和“判断” 。 单击“产生数 据”
9、按钮完成在 A1：A10 上产生两位随机正整数；单击“判断”按钮完成将其中重复数用 红色标注。界面如下：（部分代码供参考） Private Sub CommandButton1_Click()Dim i As IntegerColumns(1).Font.ColorIndex = 1Range(“A1:A10”).formula=_ End SubPrivate Sub CommandButton2_Click()Dim i As Integer, j As IntegerFor i = 1 To 9Next i End Sub4在工作表 1 上创建“自定义”工作栏。步骤：进入“自定义”并选择“工具栏”页-“新建”按钮-输入自定义工作栏名字：练习-选择“命令”页，在“类别”中选择 “窗体” ，在“命令”中选择“命令按钮” ，并将其拖至新建的工具栏上-单击“更改所选 内容”按钮，更改相应的内容。在 Workbook_Open 事件中在工作表 1 上产生 10 两位正整数。界面如下：进入工作表 2，单击“从其它表上取数” ，从 Sheet1 上选择偶数放入 Sheet2 的 A 列。运行后界面如下：
