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結構中間的屬性前面都是帶 ‘ . ’,切不可忘記寫上元旬。
