Membuat Nama Hari dan Nama Bulan

Sedikit tips & trick kali ini ini, bagaimana membuat nama-nama hari dan nama-nama bulan menggunakan VBA.

Untuk membuat nama hari dan nama bulan terdapat beberapa cara, apalagi jika ingin mengunakan bahasa Inggris atau Bahasa Indonesia tentu berbeda caranya.

List Nama Hari Dengan VBA

Untuk membuat list nama hari dengan nama hari bahasa inggris bisa dibuat seperti ini

Sub Namahari()
Dim I As Integer

For I = 1 To 7
    'B. Inggris
    Sheet1.Cells(I, 1).Value = Format(I, "DDDD")
Next

End Sub

Maka script diatas akan menghasilkan nama hari dalam bahasa inggris di Sheet range A1 sampai A7.

Sedangkan untuk bahasa Indonesia, scriptnya bisa dibuat seperti ini:

Sub Namahari()
Dim I As Integer
Dim WF As WorksheetFunction

Set WF = WorksheetFunction
For I = 1 To 7
    'B. Indonesia
    Sheet1.Cells(I, 1).Value = WF.Text(I, "[$-421]DDDD")
Next

End Sub

Ini pun sama script diatas akan menghasilkan nama hari dalam bahasa Indonesia di Sheet range A1 sampai A7.

List Nama Bulan Dengan VBA

Untuk membuat nama-nama bulan dengan VBA ini juga sama, berbeda bahasa maka beda juga scriptnya.

Untuk nama bulan dalam bahasa Inggris bisa menggunakan fungsi MonthName, contoh scriptnya bisa dilihat seperti dibawah ini:

Sub NamaBulan()
Dim I As Integer

For I = 1 To 12
    'B. Inggris
    Sheet1.Cells(I, 2).Value = MonthName(I)
Next

End Sub

Script diatas akan menghasilkan nama-nama bulan dalam bahasa inggris.

Sedangkan untuk bahasa Indonesia,

Sub NamaBulan()
Dim I As Integer
Dim WF As WorksheetFunction

For I = 1 To 12
    'B. Indo
    Sheet1.Cells(I, 2).Value = WF.Text(I * 29, "[$-421]mmmm")
Next

End Sub

Untuk penjelasan lebih detail, bisa disimak di tutorial videonya ya.

List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search