Search This Blog

Loading...

Menulis Statemen Eksekusi - Access - Visual Basic

Sebuah statemen eksekusi (excutable statement) dapat menjalankan aksi. Statemen ini dapat menjalankan method atau function, dan dapat berulang atau bercabang melalui blok kode program. Statemen eksekusi sering mengandung operator matematika atau operator kondisional.

Contoh berikut menggunakan statemen For Each ... Next untuk pengulangan melewati setiap cell dalam range yang bernama MyRange pada Shee1 dari Microsoft Excel workbook yang aktif. Variabel c di cell dalam collection cell yang terkandung dalam MyRange.

Sub ApplyFormat()
Const limit As Integer = 33
For Each c In Worksheets("Sheet1").Range("MyRange").Cells
If c.Value > limit Then
With c.Font
.Bold = True
.Italic = True
End With
End If
Next c
MsgBox "All done!"
End Sub

Statemen If...Then...Else pada contoh memeriksa nilai dari cell. Jika nilai lebih besar dari 33, statemen With men-set properti Bold dan Italic dari object Font untuk cell tersebut. Statemen If...Then...Else diakhiri oleh End If.

Statemen Next memanggil cell berikutnya pada collection dall pada MyRange.

MsgBox function (yang menampilkan Visual Basic built-in dialog box) menampilkan pesan yang menunjukkan bahwa procedur Sub selesai dijalankan.

Post a Comment