www.Berkreasi.Net

Sheet Baru dengan Nama Hari

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 sheetbaru_hari.rar

Semoga bermanfaat,
Salam berkreasi.

• Sebelumnya
• Berikutnya