Penggunaan Statement With

Kita seringkali melakukan perubahan sejumlah properties pada suatu object. Misalnya saja, selain panjang dari suatu field ingin kita rubah, kita juga ingin merubah warnanya, merubah lebarnya, merubah posisinya, dan lain sebagainya. Agar proses pengulangan dapat dilakukan dengan cepat, kita harus mendefinisakan object tersebut menggunakan kode With. Bentuk syntaknya adalah:

With
Object

            .Properties_1 = Pernyataan1

            .Properties_2 = Pernyataan2

            .Properties_n = Pernyataan3

End With

Penjelasan:

         Object adalah nama suatu kontrol atau object yang bertype user-defined, misalnya saja text field, combo box, dan lain-lain.

         Properties adalah properties dari object yang ingin kita rubah

         Pernyataan adalah suatu nilai yang hendak kita update untuk properties tsb.

Contoh program:

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

Beri Nilai Artikel Ini:

Leave a Reply

Do NOT follow this link or you will be banned from the site!
%d bloggers like this: