在学习中,程序如下:
Option Explicit Sub RngInput() Dim rng As Range On Error GoTo line Set rng = Application.InputBox("请使用鼠标选择单元格区域:", , , , , , , 8) ‘添加语句,使下面底色灰色的只有有数据的区域里。 rng.Interior.ColorIndex = 15 line: End Sub
求救的意思是:
示例1
本意是读取区域A5:A11,但是,事实上很容易上下读取区域会超出,比如:A3:A15,能否在上面什么地方,添加语句,去掉上面和下面的空白区域,还是使A5:A11的底色变灰。
示例2
意思与示例1差不多,只不过是多行多列,这样的问题,在编程上考录起来会否复杂很多,我要的是这个复杂的情况也能处理的语句,麻烦你们了。
- Rng.SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 15
- Rng.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 15
复制代码
|