Perintah With … End With

Pada saat menuliskan perintah Visual Basic for Aplication (VBA) property atau methode yang digunakan oleh objek yang sama Objek tersebut akan dituliskan setiap disetiap baris perintah programnya. Hal ini kurang efisien dalam penulisan dan eksekusi programnya. Penggunaan perintah with dan end with memudahkan anda dalam menuliskan baris perintah yang panjang untuk satu objek.

Sintax penulisan With … End With :

With ObjectName

[Statement]

End with

Sebagai contoh adalah penulisan prosedur offset berikut ini, dimana setiap baris perintahnya merujuk ke dalam satu objek yaitu Activecell.

Sub offset()
Activecell.offset(0,0).value = "pusat"
Activecell.offset(0,1).value = "Kanan"
Activecell.offset(0,-1).value ="Kiri"
Activecell.offset(-1,0).value = "Atas"
Activecell.offset(1,0).value = "Bawah"
End Sub

Dari penulisan diatas dapat anda sederhanakan menggunakan statement with dan End With. ketika anda menambahkan perintah with activecell setelah prosedur anda cukup tuliskan .offset(0,0).value = “pusat”  dan seterusnya tanpa harus menuliskan activecell untuk mereferensikan objeknya.

Sub offset()
With Activecell
.offset(0,0).value = "pusat"
.offset(0,1).value = "Kanan"
.offset(0,-1).value ="Kiri"
.offset(-1,0).value = "Atas"
.offset(1,0).value = "Bawah"
End With
End Sub

Semoga Bermanfaat… 😀