Menggunakan Statemen With - Access - Visual Basic

Statemen With dapat digunakan untuk men-spesifikasikan object atau user-define type sekali untuk keseluruhan seri dari statemen. Statemen With membuat procedure anda berjalan lebih cepat dan membantu anda menghindari penulisan yang berulang.

Contoh berikut mengisi range dari cell dengan nomor 30, menentukan format bold, dan set warna cell menjadi kuning.

Sub FormatRange()
 With Worksheets("Sheet1").Range("A1:C10")
     .Value = 30
     .Font.Bold = True
     .Interior.Color = RGB(255, 255, 0)
 End With
End Sub

Anda dapat membuat With yang bertingkat untuk efisiensi yang lebih banyak. Contoh berikut menyisipkan formula ke dalam cell A1, dan kemudian mem-format font-nya.

Sub MyInput()
 With Workbooks("Book1").Worksheets("Sheet1").Cells(1, 1)
     .Formula = "=SQRT(50)"
     With .Font
         .Name = "Arial"
         .Bold = True
         .Size = 8
     End With
 End With
End Sub