VBA基础入门第六章 控制单元格.ppt

* * Else Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = 0 End If Exit Sub 100: Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = 0 End Sub * * On Error GoTo 100：和后面的“100:”语句相对应。因为在A列输入的部门名称在H列不存在时程序会出现错误，所以这里使用了错误转移语句，即当错误发生时，程序转到最后一行代码，即Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = 0，设置当前行的颜色为“无”。 Mrow2 = Range(“H:H”).Find(Target).Row：根据当前部门名称在H列进行查找，并把查找到的单元格行号赋予变量Mrow2。 * * Mcol = Range(“i” Mrow2).Interior.ColorIndex：取得H列相对应部门单元格的颜色值。 Range(Cells(Mrow1, 1), Cells(Mrow1, 3))：当前单元格所在行的A至C列单元格区域。 Exit Sub：如果没有出现错误时，在此处退出程序。 * * 更新颜色刷新按钮代码如下： Sub 刷新() For I = 2 To Range(A65536).End(xlUp).Row Cells(I, 1) = Cells(I, 1) Next I End Sub * * For I = 2 To Range(“A65536”).End(xlUp).Row：设置在A列第一行后所有存有内容的单元格中进行循环。 Cells(I, 1) = Cells(I, 1)：虽然这是一个没有改变单元格值的语句，但它可以在A列每个符合条件的单元格中启动Worksheet_Change事件程序的运行，以达到刷新的目的。 * * 单元格信息清除 1、清除单元格全部 Sub 清除全部() Range(A1).Clear End Sub 注意：Clear方法可清除单元格格式、内容以及批注。 * * 2、清除单元格格式 Sub 清除格式() Range(A1).ClearFormats End Sub 注意：ClearFormats方法可清除单元格设置的格式。 * * 3、清除单元格内容 Sub 清除内容() Range(A1).ClearContents End Sub 注意：ClearContents方法只清除单元格内容，而保留单元格的格式及批注。 * * 4、清除单元格批注 Sub 清除批注() Range(A1).ClearComments End Sub 注意：ClearComments方法可清除单元格的批注，但对内容和格式没有影响。 * * 4 单元格的插入、隐藏 单元格的插入 详见单元格的插入、隐藏.xls * * 1、指定行和列前插入一个空行和空列 下面的代码可以在第3行前插入一个空行并在第2列前插入一个空列。 Sub 指定行列前插入() Rows(3).Insert Columns(2).Insert End Sub * * 2、指定行或列前插入多行和多列 在第3行前插入3个空行并在第2列前插入2个空列。 Sub 指定行列前插入多行多列() Rows(3:5).Insert Columns(B:C).Insert End Sub * * Rows(“3:5”).Insert：和插入一个空行或空列的区别在于Insert方法所服务的对象的单元格范围，如果插入单行或单元格，单元格区域就采用单行或单列的表示方法，如Rows(3)。如果要插入多行或多列，单元格对象就为插入位置以下的相等数量的行或列，如插入三行就使用Rows(“3:5”)。 * * 3、指定位置插入单元格区域 Sub 在单元格上方插入() Range(B3:C5).Insert shift:=xlDown End Sub 注意： Range(“B3:C5”).Insert：插入和B3:C5一样大小的区域。 shift:=xlDown:原来单元格向下移动。insert方法的shift自变量表示原有单元格区域的移动方向。 * * 单元格的隐藏 单元格整行和整列