17、[VBA入門到放棄筆記] With結構消除對象變量

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結構中間的屬性前面都是帶 ‘ . ’,切不可忘記寫上。
最后編輯于 ：
?著作權歸作者所有,轉載或內容合作請聯系作者
平臺聲明：文章內容（如有圖片或視頻亦包括在內）由作者上傳并發布，文章內容僅代表作者本人觀點，簡書系信息發布平臺，僅提供信息存儲服務。