VBA学习第九课笔记和代码.doc

VBA学习第九课笔记和代码： 知识点： 1、Find 和 findnext 方法 单元格对象find方法，在工作表内单元格区域行数不是特别多的情况下，效率很高 单元格区域对象.find(值) Sub 单元格对象的find方法() Dim rng As Range, 首地址 As String, 总销售额 As Long Set rng = Range(a1).CurrentRegion.Find(王新刚) 查找的结果有可能不存在，需要判断 is 来判断是否是nothing If rng Is Nothing Then MsgBox 查无此人 Else rng.Select End If 如果rng里面是神马都没有，不存在，那么rng is nothing返回true If Not rng Is Nothing Then 首地址 = rng.Address 总销售额 = rng.Offset(0, 4).Value findnext方法，用于找到第一个目标之后，寻找下一个 Do Set rng = Range(a1).CurrentRegion.FindNext(rng) findnext要求传入一个单元格对象 If 首地址 rng.Address Then 总销售额 = 总销售额 + rng.Offset(0, 4).Value Else Exit Do End If Loop Until rng.Address = 首地址 End If End Sub 2、entire Sub EntireRow属性() 从某单元格返回该单元格所在的行 Range(a1).EntireRow.Interior.Color = vbRed End Sub Sub Entirecolumn属性() 从某单元格返回该单元格所在的列 Range(a1).EntireColumn .Interior.Color = vbRed End Sub 作业： 1、 背景为黄色的区域如何用Range(A1:H1)的Offset属性和Resize属性来表示？ 字体为红色的区域如何用Cells(3,K)的Offset属性和Resize属性来表示？ 班级 学号 姓名 语文 数学 英语 化学 物理 一(二)班 A103 c 80 36 36 39 39 一(四)班 A104 d 83 30 30 63 63 一(十)班 A105 e 83 46 46 48 48 一(二)班 A106 f 85 47 47 55 55 一(七)班 A107 g 86 98 100 100 100 一(四)班 A108 h 87 70 70 81 81 一(七)班 A109 i 88 100 100 65 65 题二:讲上表中的所有100分改为满分 Sub 所有100分改为满分() Dim i As Long, j As Long Dim rng As Range Set rng = Range(a6).CurrentRegion.Find(100) rng.Value = 满分 Do Set rng = ange(a6).CurrentRegion.FindNext(rng) If rng Is Nothing Then Exit Do Else rng.Value = 满分 End If Loop End Sub 2、 业务员姓名 毛利金额（万元) 应发奖金额（元） 撑着了 21.25 　 杜子腾 18.6 　 深海鲨鱼 38.66 　 黑户口 34.33 　 爱吃橙子 35.16 　 满不懂 54.51 　 窝囊废 5.33 　 假行家 0.88 　 井下熊猪祝 105 　 凤姐赛芙蓉 66.77 　 Sub 吃太饱2() Dim 金额 As Double, 奖金 As Double Dim i As Long, j As Long j = 2 For i = 2 To Range(b2).Curren