Rows("1:1").Select
Selection.RowHeight = 36
Range("A1").Select
'with结构
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
- 上面代码由录制宏得出，其中包含with...end with结构。
- 又如，假设我们要对某个工作表A1单元格进行操作：值为100，背景颜色为黄色，行高为30。代码如下
Sheet2.Range("A1").Value = 100
Sheet2.Range("A1").Interior.ColorIndex = 6
Sheet2.Range("A1").RowHeight = 30
- 这样需要反复多次写Sheet2.Range("A1")对象，如果需要进行更多的操作，实在不太友好，因此，with结构专为此而生，这样可以消除对象变量，更富有效率，代码也美观。
With Sheet2.Range("a1")
.Value = 100
.Interior.ColorIndex = 6
.RowHeight = 30
End With
- 注意事项：
- 1.with是一个结构，有with就得有end with
- 2.with结构中间的属性前面都是带 ‘ . ’,切不可忘记写上。
