Mencari Bilangan Prima

Sesuai dengan fungsi  Ms. Excel  yaitu sebagai pengolah angka, maka Ms Excel dapat digunakan untuk pembelajaran Matematika yang berkaitan dengan bilangan, misalnya “Mencari bilangan Prima”

Cara membuat programnya tidaklah terlalu rumit, sebagai berikut :

      1.   Buat tampilan seperti gambar berikut :

Keterangan :

Merger range (C6 : G7), kemudian tuliskan rumus berikut : “=”Bilangan Prima yang kurang dari “&B7&” adalah :”

Merger range (I6 : I7), kemudian tuliskan rumus : “=COUNT(C9:G1048576)”
Pada Cell B8 tuliskan "xxx" atau sembarang tulisan, atur warna hurufnya sama dengan warna Cell.

Pada range (B9:B1000000) kita atur hurufnya warna putih (agar tidak kelihatan)

       2.  Insert  CommandButton, kemudian atur Captionnya menjadi  “CARI” dan tuliskan script berikut :
            Private Sub CommandButton1_Click()

      Range("B9:G1048576").Value = ""

      a = Range("B7").Value

      For i = 2 To a

         n = 0

         For j = 2 To a

             x = i Mod j

             If x = 0 Then

             n = n + 1

             End If

         Next j

         If n = 1 Then

             Range("B500000").Select

             ActiveCell.End(xlUp).Select

             ActiveCell.Offset(1, 0).Select  

   

             If ActiveCell.Offset(0, 1).Value = "" Then

                  ActiveCell.Offset(0, 1).Value = i

                  Else

                  If ActiveCell.Offset(0, 2).Value = "" Then

                      ActiveCell.Offset(0, 2).Value = i

                      Else          

                      If ActiveCell.Offset(0, 3).Value = "" Then

                          ActiveCell.Offset(0, 3).Value = i

                          Else      

                          If ActiveCell.Offset(0, 4).Value = "" Then

                               ActiveCell.Offset(0, 4).Value = i

                               Else

                               ActiveCell.Offset(0, 5).Value = i

                               ActiveCell.Offset(0, 0).Value = "x"

                           End If

                        End If

                   End If

              End If

        End If

       Next i

        Range("I6").Select

        End Sub

        Contoh filenya dapat didownload di sini -->  Mencari Bilangan Prima