Vba || Deret bilangan prima

Penulis kali ini ingin berbagi pengetahuan tentang VBA (Visual Basic for Aplication) Excel. Gak nyangka klo di dunia kerja itu butuhnya hal – hal yang seperti ini. Sebelumnya penulis bertanya-tanya, Apa yang bisa di lakukan sama aplikasi ms.Office untuk keperluan kantor?? ternyata banyak aplikasi atau pendukung pekerjaan yang menggunakan ms. Office sebagai penunjang otomatisasi sebuah perusahaan.

Banyak programmer tahu Visual Basic itu hanya untuk VB.NET atau VB6. Tapi biasanya untuk VBA Excel jarang digunakan untuk bahan membuat sebuah aplikasi. Disini penulis mencoba membuat contoh dasar penggunaan VBA Excel. Istilah kantor menyebut ini sebagai proses Automation.

Hanya dasarnya saja yang ingin penulis sampaikan. Mungkin klo ada waktu penulis ingin buat sebuah aplikasi perkantoran dengan hanya menggunakan Ms.Office sebagai tools aplikasi.

Penulis seneng diskusi bareng, tiba-tiba dia cerita ada temennya yang jadi dosen di sebuah universitas yang belum bisa membuat sebuah deret bilangan prima. Mudahan dia baca blog saya supaya anak didiknya ikutan pinter.

Untuk memulainya buka aplikasi Ms.Office Excel lalu save dengan nama sebuah file sesuai salero. (*.xls) untuk Office 2007 atau up biasanya extention-nya berbeda (*.xlsm).

Setelah disimpan pada keyboard klik kanan di bagian menu seperti pada gambar dibawah ini dan pilih visual basic

setelah muncul pilih control toolbox untuk membuat button. Tempelkan di kanvas excel beri nama Bilangan Prima.

Klik dua kali pada button tadi. Mulai deh scripting. Masukin Code ini :

Private Sub cmdCari_Click()
Dim x, y, hsl As Integer

    y = 1
    hsl = 1
    bil = 2
    x = Cells(1, 1)

    While hsl < x
        bilprim = True
        For dv = 2 To bil - 1
            If bil Mod dv = 0 Then bilprim = False
        Next
        If bilprim Then
            Cells(y, 2) = bil
            y = y + 1
        End If
        bil = bil + 1
        hsl = hsl + 1
    Wend
 End Sub

Dari code standar yang saya buat diatas saya pikir cukup mudah untuk dimengerti. Logikanya jika deret angka dilakukan modulus  yang menghasilkan angka 0 tidak digunakan. Input batas deret ada di kolom (A1) atau cells(1,1)

 

Simple bukan, klo sudah bisa silahkan di coba terus untuk mengasah skill.