Sheet Baru dengan Nama Hari

Sheethari - Kecil.png

 

Pada tulisan sebelumnya dibahas bagaimana mudahnya membuat sheet baru, dan kali ini penulis mau berbagi kode untuk membuat sheet baru dengan nama hari secara berurutan Senin Selasa Rabu Kamis Jumat Sabtu dan Minggu.

 

 


 

Langkahnya copy kode dibawah ini pada modul standar. Buka VBA Editor (Alt + F11) lalu insert Modul dan copy paste kode dibawah ini.

Sub SheetBaru_hari()
    Dim ws As Worksheet, wsTest As Worksheet
    Dim lMatch As Long, strTest As String
       
    On Error Resume Next
    Application.EnableEvents = False
      
    For Each ws In Worksheets
  
        lMatch = WorksheetFunction.Match(ws.Name, _
        Array("Senin", "Selasa", "Rabu", "Kamis", "Jumat", _
        "Sabtu", "Minggu"), 0)
        strTest = Choose(lMatch, "Selasa", "Rabu", "Kamis", "Jumat", _
        "Sabtu", "Minggu")
  
        If lMatch <> 0 Then
            Set wsTest = Nothing
            Set wsTest = Sheets(strTest)
            If wsTest Is Nothing Then
                Sheets.Add After:=Sheets(ws.Index)
                ActiveSheet.Name = strTest
                Application.EnableEvents = True
                Sheet1.Select
                Exit Sub
            End If
        End If
        Next ws
    Sheets.Add().Name = "Senin"
    Application.EnableEvents = True
    Sheet1.Select
    On Error GoTo 0
  
End Sub

 

Selanjutnya jalankan Sub dengan tekan F5 pada VBA Editor atau jalankan dengan macro pada halaman Excel. dan lihat hasil penambahan sheet baru dengan nama-nama hari.

Download File Contoh rar.pngsheetbaru_hari.rar

Semoga bermanfaat,
Salam berkreasi.

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Jl. Cilincing jakarta utara

JL. Karangrejo Timur  Surabaya

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.   atau
                              Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
SMS only : 085 606 139 312  im3 (Mas Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi
M. Agus Fanani
Sahrudin
Muhammad Risal Maros
Didik P Wicaksono
Wayan Mulyana
Adi sabaro