Worksheet对象应用大全(3)-UsedRange属性详解(2)

Application.ScreenUpdating = True End Sub

[示例三]在本示例中，当您在工作表的E列中的单元格中输入“finish”后，点击右侧按钮，将会对此行用指定的背景色进行标识，如图3和图4。图3：在E8单元格中输入“finish”图4：点击按钮后的效果

当您删除单元格E6中的数据，如下图5所示。图5：删除单元格E6中的数据图6：点击按钮后的效果 本示例中按钮所附加的代码如下，其中，

UsedRange.Rows.Count表示当前工作表中已使用区域的行数。Private Sub CommandButton1_Click() Dim r As Long

For r = UsedRange.Rows.Count To 1 Step -1 If Range(\

Range(\10

Next r

For r = UsedRange.Rows.Count To 1 Step -1 If Range(\

Range(\2

Next r End Sub

[提示]您可以将此代码放置在工作表变化事件中，这样，当工作表变化时，符合条件的相应行会自动标记背景色。 [示例四]本示例演示了删除行操作，即在活动工作表已使用单元格区域中，若某单元格中包含有“AND”(如为ANDXXX或XXXANDXX或XXXAND等，不区分大小写)，则删除该单元格所在行。ActiveSheet.UsedRange.Find(what)表示在当前工作表所有已使用单元格区域中查找含有变量what中的内容的单元格，程序代码如下：(by Patrick Molloy)Sub Find_AND()

Dim rng As Range Dim what As String what = \ Do

Set rng = ActiveSheet.UsedRange.Find(what) If rng Is Nothing Then Exit Do Else

Rows(rng.Row).Delete

End If Loop End Sub

[提示]您可以更改程序中所查找的字符，从而实现您所想要的目的。 示例文档下载:

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库Worksheet对象应用大全(3)-UsedRange属性详解(2)在线全文阅读。