Excel VBA IsEmpty函数
1、这里给出一个将隔行加上阴影的过程,在数据表中有多行数据时,为了阅读方便,通常采用隔行添加阴影的方法对相邻行数据以示区别,具体过程见下一步。
2、Sub ShadeEverySecondRow() Dim lRow As Long lRow=2 Do UntilIsEmpty(Cells(lRow,1)) Cells(lRow,1).EntireRow.Interior.ColorIndex=15 lRow=lRow+2 LoopEnd Sub
3、该过程也可以烂瘀佐栾这样写:Sub ShadeEverySecondRow() Dim lRow As Long lRow = 2 Do While Not IsEmpty(Cells(lRow, 1)) Cells(lRow, 1).EntireRow.Interior.ColorIndex = 15 lRow = lRow + 2 LoopEnd Sub
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:92
阅读量:54
阅读量:91
阅读量:84
阅读量:71