Membuat Fungsi Bulan Kalender

Kadang dalam mengelola data, kita memerlukan formula atau fungsi yang mungkin tidak  terdapat dalam Excel atau memang kita tidak tahu ada fungsi yang kita inginkan. Terlepas dari tidak ada atau tidak tahu, fasilitas vba excel atau juga yang dikenal dengan istilah macro, memungkinkan kita untuk membuat formula/fungsi sesuai yang kita inginkan.

 Misalkan :

1.   Membuat Fungsi BULAN

      Sintaks yang kita inginkan adalah ;

               

= BULAN(nilai)

akan menghasilkan

Januari jika nilai = 1

Februari jika nilai = 2

Maret jika nilai = 3

dst…….

     

      Cara membuatnya :

               Pilih Menu Developer>Visual Basic

Pilih Menu Insert>Module

Di kertas kerja “Code”, ketikkan code dibawah ini :         

Function BULAN(nilai As Byte) As String

   

Select Case nilai

        Case 1

            bulan = "Januari"

        Case 2

            bulan = "Februari"

        Case 3

            bulan = "Maret"

        Case 4

            bulan = "April"

        Case 5

            bulan = "Mei"

        Case 6

            bulan = "Juni"

        Case 7

            bulan = "Juli"

        Case 8

            bulan = "Agustus"

        Case 9

            bulan = "September"

        Case 10

            bulan = "Oktober"

        Case 11

            bulan = "November"

        Case 12

            bulan = "Desember"

   

        End Select
End Function

Kembali ke Lembar Worksheet, maka hasilnya sebagai berikut :

Jika nilai berformat tanggal, maka untuk mengetahui bulan apa, bisa dengan menggunakan rumus :

=BULAN(MONTH(nilai))

Contoh seperti gambar dibawah ini

Selesai……