首先要高亮显示原作者:http://www.360doc.com/content/17/0422/23/30583536_647746454.shtml Sub setBlankRowColor() Dim lngLastRow As Long Dim i As Long lngLastRow = Cells(Rows.Count,1).End(xlUp).Row '获取工作表中已使用区域最后一行的行号 For i = 1 To lngLastRow '遍历行 '判断每行中第1列的单元格是否为空 If IsEmpty(Cells(i, 1)) Then '若为空则设置该行相应单元格背景色为灰色 Cells(i, 1).Resize(1,6).Interior.Color = RGB(225, 225, 225) End If Next i End Sub 在代码中,我们使用了IsEmpty函数来检查单元格是否为空。 IsEmpty函数 IsEmpty函数返回布尔值(Boolean值),指明某单元格是否为空。如果单元格为空,则返回True;如果不为空,则返回False。 注意,单元格必须真的是空单元格,该函数才返回True。如果单元格中有我们看不见的空格,该函数也会认为该单元格不为空。 其他判断空单元格的方法 在VBA代码中,如果要判断单元格A1是否为空单元格,也可以使用下列方法: 1. Cells(1, 1) = '' 或 Range(“A1”)= '' 2. Len(Cells(1, 1)) = 0 或Len(Range(“A1”))= 0 3. Cells(i, 1) = vbNullString 或Range(“A1”)= vbNullString 4. Application.WorksheetFunction.CountBlank(Cells(1,1)) 5. 为了防止单元格中有空格,可以使用:Len(Trim(Cells(i, 1))) = 0 用途 判断单元格是否为空,除了上面的示例应用外,还可以用于提示用户某单元格中必须要输入数据。例如下图所示工作表,如果用户忘记在单元格A2中输入姓名,则提示用户。 代码如下: Sub blankcell() If IsEmpty(Range('A2')) Then MsgBox '单元格A2中必须输入姓名!' End If End Sub 我们可以把上述代码与相应的按钮关联起来,或者放置在工作表相应的事件中,当用户保存数据或者退出工作表时提示用户必须在相应的单元格中输入数据。 |
|
来自: Excel实用知识 > 《VBA与EXCEL》