VB与VBA考试题型及比例复习思路.docVIP

VB+VBA考试题型及比例: 1.VBA部分占30%左右 2.考试题型(选择20-25%,程序填空25-30%,程序阅读20%,编程30%) VBA——模块中的宏(Sub过程)和Function函数：设计与使用 例：Sub series() 求Fibonacci数列 Dim fib(1 To 30) As Long Dim i As Integer fib(1) = 1 fib(2) = 1 For i = 3 To 30 fib(i) = fib(i - 1) + fib(i - 2) Next i For i = 1 To 30 Worksheets(Sheet1).Range(A + CStr(i)) = fib(i) Next i End Sub （教材P.216——上机练习2）编制函数age，从身份证号中计算出年龄。 在VBA中使用EXCEL工作表函数 1.在VBA中调用工作表函数 【例6-7】使用 Min 工作表函数求出单元格区域“A1:C10”中的最小值。 Dim answer As Single, myR As Range Set myR = Worksheets(Sheet1).Range(A1:C10) answer = Application.WorksheetFunction.Min(myR) MsgBox answer 【例6-8】计算位于A1～A100单元格区域中的、值大于等于10且小于等于20的单元格数目。 Set iRang=Worksheets(Sheet1).Range(A1:A100) With Application.WorksheetFunction result=.Countif(iRange, =10”)- .Countif (iRange, ”20) End With 2.在单元格中插入工作表函数 Sub generate() ‘生成随机数 Worksheets(sheet1).Range(A1:C10).Formula = =Int(Rand()*90+10) End Sub VBA程序设计：常用属性、方法、事件过程 对象（多级）：Application、 Workbooks、*Worksheets、 **Range 方法：Cells(1,1)= Application.InputBox(“输入姓名：”) ’清除Sheet1的全部单元格的内容 Worksheets(Sheet1).Cells.ClearContents 常用属性: Cells(i,j)、ActiveCell Selection、ActiveSheet、ActiveCell Target.row、Target.column rows.count、columns.count UsedRange、 CurrentRegion 引用单元格和区域 Sub ApplyColor() ‘遍历 Const limit = 30 Dim c As Range For Each c In Range(AA) If c.Value limit Then c.Interior.ColorIndex = 3 Next End Sub Sub Underline() ‘相对引用 ActiveCell.Offset(1, 3).Font.Underline = xlDouble End Sub Sub ObjectVar() ’用Range对象引用 Dim wr As Range Set wr = Worksheets(1).Range(A1:D5) With wr .Formula = =Rand() .Font.Bold = True End With End Sub 在单元格区域中循环 For i = 1 To 20 Set curc = Worksheets(Sheet1).Cells(i, 3) curc.Font.ColorIndex = 0 If Abs(curc.Value) 10 Then curc.Font.ColorIndex = 3 Next i For Each c In Worksheets(Sheet1).Range(A1:D10).Cells If Abs(c.Value) 10 Then c.Font.ColorIndex =