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.
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)
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH
Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi
M. Agus Fanani
Sahrudin
Muhammad Risal Maros
Didik P Wicaksono
Wayan Mulyana
Adi sabaro