Mengubah Konten Sel Menjadi Komentar

Masih terkait dengan editing comment di excel, postingan kali ini membahas bagaimana caranya mengkonversi konten sel menjadi komentar. Tentunya dengan menggunakan macro / VBA. Contoh code sudah disiapkan, kamu tinggal copy paste dan run saja.

1. Menjadikan Konten Sel Sebagai Comment di Sel Yang Sama

Prosedur nomor 1 ini merupakan metode yang paling sederhana dan mungkin tidak begitu bermanfaat secara praktikal. Tapi tidak salah memcobanya untuk memahami konsep insert comment dengan mengambil text dari sel.  Berikut contoh code macro vba excel yang dapat kamu copas langsung.

Sub copyKontenSelKeKomen() Dim Sel As Range, textSel As String For Each Sel In Selection If Sel.Value <> "" Then textSel = Sel.Text Sel.ClearComments Sel.AddComment textSel End If Next End Sub

Cara menjalankan code macro: 

Setelah kamu mengcopy contoh code vba tersebut ke modul standar, maka si code bisa langsung digunakan. 

Pilih sekumpulan sel berisi konten yang ingin kamu masukan kontennya ke dalam kotak komentar, lalu jalankan macro nya  (via Tab Developer --> Macro --> Pilih nama prosedur yang sesuai --> klik "Run")

Dan tralala..., comment sudah terbentuk pada semua sel yang kamu pilih apabila sel tersebut tidak kosong. 

2. Mengambil Konten Range Sel yang Diseleksi Menjadi Komentar

Proedur nomor 2 inilah yang menurut mimin paling penting. Cara ini sangat berguna terutama apabila kamu ingin menambahkan tabel ke dalam kotak komentar.  

Serapa berguna kah? 

Secara konvensional, kita tidak bisa mengcopy konten sel secara langsung dari sekumpulan sel ke dalam kotak komentar.  Yang dilakukan secara konvensional biasanya dengan meng-copy telebih dahulu konten sel ke dalam notepad, kemudian dari notepad di copy lagi ke dalam comment box. 

Cara konvensional tersebut memang membantu proses pemindahan konten sel. Tetapi pemindahan konten sel ke kotak komentar bukan hanya copy paste dan proses langsung selesai. Tetapi ada satu hal lagi yang justru paling banyak menguras waktu. Yaitu: Merapikan Text dalam Kotak Komentar. Mengerjakannya secara manual sangat menguras tenaga, waktu dan sangat membosankan. Apalagi jika ada tabel dalam kotak komentar.

Dengan menggunakan code VBA yang tepat, maka kamu tidak perlu direportkan untuk merapikan text dalam komentar. Karena tugas tersebut dapat sepenuhnya diserahkan kepada bung Macro.

Code nya cukup panjang, Perlu waktu lebih dari satu jam buat mimin untuk merenungkan dan mengetik code ini. 

Sub KonversiRangeKeComment() Dim rgData As Range Dim selCmt As Range Dim textSel() As String Dim rataTextSel() As Integer Dim tebalBaris() As Boolean Dim PjgTextType2() As Integer Dim PjgTextType3() As Integer Dim textBaris() As String Dim PjgTextBaris() As Integer Dim iBaris() As Integer Dim textCmt As String Dim JmlSelNonBlankDlmBaris() As Integer Dim i As Integer, j As Integer Dim jmlBaris As Integer Dim JmlKolom As Integer Dim jarakSpasi As Integer Dim varSpasi As Integer Const jarakSpasiDefault As Integer = 2 Const ukuranFont As Integer = 10 Const namaFont As String = "Lucida Sans Typewriter" 'nama font harus type monospace, misalnya: "Lucida Sans Typewriter", "Courier New" dan "Arial Monospaced" Set rgData = Selection jmlBaris = rgData.Rows.Count JmlKolom = rgData.Columns.Count 'redim array mengikuti jumlah baris dan jumlah kolom rgData ReDim textSel(jmlBaris, JmlKolom) ReDim rataTextSel(jmlBaris, JmlKolom) ReDim pjgTextType1(JmlKolom) ReDim PjgTextType2(JmlKolom) ReDim PjgTextType3(JmlKolom) ReDim tebalBaris(jmlBaris) ReDim textBaris(jmlBaris) ReDim PjgTextBaris(jmlBaris) ReDim JmlSelNonBlankDlmBaris(jmlBaris) ReDim iBaris(jmlBaris) 'tentukan sel untuk sarang komentar On Error GoTo skip ' loncat ke skip jika user menekan tombol cancel Set selCmt = Application.InputBox( _ Prompt:="Pilih Satu Sel Untuk Menempatkan Komentar", Type:=8) 'Setting untuk Optimalkan VBA Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'kumpulin data dari range ke array For i = 1 To jmlBaris tebalBaris(i) = rgData.Cells(i, 1).Font.Bold JmlSelNonBlankDlmBaris(i) = WorksheetFunction.CountA(rgData.Rows(i)) For j = 1 To JmlKolom textSel(i, j) = Trim(rgData(i, j).Text) rataTextSel(i, j) = rgData(i, j).HorizontalAlignment Next Next 'Menentukan panjang text maksimal per kolom For j = 1 To JmlKolom For i = 1 To jmlBaris Select Case JmlSelNonBlankDlmBaris(i) Case 2 PjgTextType2(j) = WorksheetFunction.Max(PjgTextType2(j), Len(textSel(i, j))) Case Is >= 3 PjgTextType3(j) = WorksheetFunction.Max(PjgTextType3(j), Len(textSel(i, j))) End Select Next Next 'Menyesuaikan text masing-masing komponen array textSel For i = 1 To jmlBaris For j = 1 To JmlKolom ' menentukan jumlah spasi antar text Select Case JmlSelNonBlankDlmBaris(i) Case 1 varSpasi = 0 jarakSpasi = 0 Case 2 varSpasi = PjgTextType2(j) - Len(textSel(i, j)) jarakSpasi = jarakSpasiDefault Case Is >= 3 varSpasi = PjgTextType3(j) - Len(textSel(i, j)) jarakSpasi = jarakSpasiDefault End Select If j = 1 Then ' Kolom pertama rata kiri apapun aktual format sel nya textSel(i, j) = textSel(i, j) & Space(varSpasi + jarakSpasi) Else Select Case rataTextSel(i, j) 'kolom berikutnya rata kiri/kanan/tengah menyesuaikan aktual format sel Case xlLeft textSel(i, j) = textSel(i, j) & Space(varSpasi + jarakSpasi) Case xlCenter textSel(i, j) = Space(varSpasi / 2) & textSel(i, j) & Space(varSpasi / 2 + jarakSpasi) Case Else textSel(i, j) = Space(varSpasi) & textSel(i, j) & Space(jarakSpasi) End Select End If Next Next 'Menyusun text per baris For i = 1 To jmlBaris For j = 1 To JmlKolom textBaris(i) = textBaris(i) & textSel(i, j) Next textBaris(i) = textBaris(i) & Chr(10) PjgTextBaris(i) = Len(textBaris(i)) Next 'Menyusun text komentar dan posisi karakter pertama pada setiap baris For i = 1 To jmlBaris textCmt = textCmt & textBaris(i) iBaris(i) = Len(textCmt) - Len(textBaris(i)) + 1 Next 'insert comment Set selCmt = selCmt.Range("A1") selCmt.ClearComments selCmt.AddComment textCmt 'format comment With selCmt.Comment.Shape.TextFrame .Characters.Font.Name = namaFont .Characters.Font.Size = ukuranFont .AutoSize = True For i = 1 To jmlBaris If tebalBaris(i) = True Then .Characters(iBaris(i), PjgTextBaris(i)).Font.Bold = True End If Next End With skip: 'Kembalikan setting non optimal VBA Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menjalankan macro:

Setelah kamu mengcopy contoh code vba tersebut ke modul standar, maka si code bisa langsung digunakan. 

Pilih sekumpulan sel berisi konten yang ingin kamu konversi kontennya ke dalam kotak komentar, lalu jalankan macro nya  (via Tab Developer --> Macro --> Pilih nama prosedur yang sesuai --> klik "Run")

Selanjutnya kamu akan diminta memilih satu sel untuk menempatkan komentar. Setelah kamu pilih sel yang kamu inginkan, kemudian klik Ok.

Dan tralala..., comment sudah terbentuk pada sel yang kamu pilih. Silahkan bandingkan waktu yang kamu perlukan bila dibandingkan dengan cara konvensional untuk mendapatkan hasil yang sama...

Sobat bisa pelajari cara menggunakan code vba untuk convert tabel jadi komentar melalui vido berikut:

***

Itulah contoh code macro vba yang dapat kamu gunakan untuk mengkonversi konten sel menjadi text komentar.

Jika kamu ada saran / koreksi, jangan segan-segan untuk tinggalkan feedback di kolom komentar.

Tertarik untuk mengetahui contoh-contoh code macro siap pakai lainnya, mungkin postingan berikut bermanfaat bagi kamu.

• Code VBA untuk Menjadikan Text Komentar Menjadi Konten Sel
• Code VBA untuk Hide/Unhide dan Pengaturan Format Comment
• Code VBA untuk Membuat dan Menghapus Hyperlink Secara Cepat

Salam ....😎😎😎

Copy Text Dari Comment Box ke Sel

Pada postingan sebelumnya sudah disampaikan mengenai contoh code macro VBA untuk display dan setting format comment di Excel. Postingan kali ini juga masih terkait dengan comment, membahas contoh code VBA untuk meng-copy text comment dari sel yang diseleksi dan memindahkan text tersebut di sel sebelahnya. Langsung saja di copy contoh - contoh code berikut:

1. Copy Text Komentar Ke Sel Sebelah Kanan

Prosedur nomor 1 ini digunakan untuk mengcopy sekaligus keseluruhan isi komentar yang yang tersemat pada sebuah sel dan menampilkannya sebagai konten sel di sebelahnya.  Metode ini sepertinya hanya cocok digunakan apabila text komentarnya singkat.

Sub copyKomenKeSelSebelahKanan() Dim Sel As Range For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Offset(0, 1).Value = Sel.Comment.Text End If Next End Sub

Setelah code di copy dan paste di module standar, maka prosedur ini sudah bisa digunakan:

Cara menjalankan prosedur ini adalah dengan menyeleksi telebih dahulu range sel yang disinyalir mengandung komentar. Pastikan hanya terdiri dari satu kolom saja dan range di sebelahnya merupakan sel kosong. Hal ini penting karena prosedur ini mengcopy comment ke sel sebelah kanan. Sehingga jika sel sebelah kanannya berisi data, maka data akan hilang tertimpa sel comment.

Setelah range di seleksi, maka kemudian jalankan makronya (misalnya via tab developer --> macro --> pilih nama macro yang sesuai --> Run). Hasilnya: kamu akan melihat sel di samping kanan berisi komentar dari sel yang diseleksi.

2. Copy Text Komentar Per Baris Ke Sel Sebelah Kanan

Jika text komentar cukup panjang dan terdiri dari beberapa baris, maka kamu bisa menggunakan contoh code macro nomor 2.  Prosedur nomor 2 ini menerapkan metode untuk memisahkan antar baris text komentar dan menempatkan di baris sel yang berbeda di sel samping kanan.

Silahkan di copas terlebih dahulu code-nya..

Sub copyPerBarisKomenKeSelSebelahKanan() Dim Sel As Range, textCmt As String Dim cAwal As Long, cAkhir As Long, baris As Long For Each Sel In Selection If Not Sel.Comment Is Nothing Then textCmt = Sel.Comment.Text cAwal = 1 Do cAkhir = InStr(cAwal, textCmt, Chr(10)) If cAkhir <> 0 Then Sel.Offset(baris, 1).Value = Mid(textCmt, cAwal, cAkhir - cAwal) Else Sel.Offset(baris, 1).Value = Mid(textCmt, cAwal, Len(textCmt) - cAwal + 1) End If baris = baris + 1 cAwal = cAkhir + 1 Loop Until cAkhir = 0 End If Next End Sub

Cara menggunakan prosedur nomor 2 ini sama dengan nomor 1. Hanya saja disarankan diterapkan per 1 sel. Sehubungan text komentar terdiri dari beberapa baris, maka baris text bisa saling menimpa jika dijalankan pada beberapa baris sel sekaligus.

***

Itulah contoh code macro VBA untuk memindahkan (lebih tepatnya copy paste) dari comment box ke sel.

Jika kamu ada saran/ koreksi / ide mengenai contoh vba. Mimin akan sangat senang jika kamu bisa berbagi via kolom komentar...😎😎😎

Mungkin kamu juga tertarik dengan contoh code macro lainnya:

• Contoh Code Macro Excel untuk Buat dan Hapus Hyperlink
• Contoh Code Macro untuk Display dan Setting Format Comment
• Contoh Code Macro untuk Add dan Close Workbook

Display dan Pengaturan Comment

Ketika bekerja dengan data-data di excel, terkadang kita perlu memberikan catatan - catatan yang menjelaskan data dalam sel. Catatan ini biasanya disimpan dalam sebuah comment box. Comment box biasanya dibuat insert comment dengan cara Klik Kanan ---> Insert Comment ( Istilah "Comment" yang ada dalam excel versi sebelumnya diganti dengan istilah "Note" pada Excel 365). 

Postingan kali ini menampilkan beberapa contoh code VBA terkait bagaimana cara memunculkan (show) comment dan sebaliknya, serta beberapa tehnik untuk setting format comment.

1. Show dan Hide Comment Pada Range Terpilih

Sub lihatSembunyikanKomenPadaRangeTerpilih() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then With Sel.Comment .Visible = Not .Visible End With End If Next Sel Application.ScreenUpdating = True End Sub

2. Memunculkan Comment Pada Range Yang Dapat Dilihat

Sub SembunyiinDanMunculinKomenBoxDalamBatasTerlihat() Dim Sel As Range, c As Comment, rgTerlihat As Range, rgTerlihatRight As Long Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Set c = Sel.Comment If c.Visible = False Then Set rgTerlihat = ActiveWindow.VisibleRange rgTerlihatRight = rgTerlihat.Left + rgTerlihat.Width - 40 c.Shape.Top = Sel.Offset(1, 0).Top c.Shape.Left = Sel.Offset(0, 1).Left + 4 If (c.Shape.Left + c.Shape.Width) > rgTerlihatRight Then c.Shape.Left = rgTerlihatRight - c.Shape.Width + 4 End If c.Visible = True Else c.Visible = False c.Shape.Top = Sel.Offset(0, 0).Top - 7.5 c.Shape.Left = Sel.Offset(0, 1).Left + 11.25 End If End If Next Sel Application.ScreenUpdating = True End Sub

3. Reset Semua Posisi Comment Box

Sub ResetPosisiSemuaCommentBox() Dim Cmt As Comment, Ws As Worksheet Application.ScreenUpdating = False Set Ws = ActiveSheet For Each Cmt In Ws.Comments Cmt.Shape.Top = Cmt.Parent.Top - 7.5 Cmt.Shape.Left = Cmt.Parent.Offset(0, 1).Left + 11.25 Next Application.ScreenUpdating = True End Sub

4. Merubah Font Comment Sekaligus

Sub SetFontSemuaComment() Dim Ws As Worksheet, c As Comment Dim namaFont As String, ukuranFont As Integer Application.ScreenUpdating = False Set Ws = ActiveSheet namaFont = InputBox(Prompt:="Input Nama Jenis Font") ukuranFont = InputBox(Prompt:="Input Ukuran Huruf") For Each c In Ws.Comments With c.Shape.TextFrame.Characters.Font .Name = namaFont .Size = ukuranFont End With Next Application.ScreenUpdating = True End Sub

5. Merubah Bentuk Kotak Komentar Jadi Love

Sub UbahBentukCommentBoxRangeTerpilihJadiLove() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeHeart End If Next Sel Application.ScreenUpdating = True End Sub

6. Merubah Bentuk Komentar Jadi Oval

Sub UbahBentukCommentBoxRangeTerpilihJadiOval() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeOval End If Next Sel Application.ScreenUpdating = True End Sub

7. Merubah Bentuk Komentar Jadi Kertas Berlipat

Sub UbahBentukCommentBoxRangeTerpilihJadiKertasBerlipat() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeFoldedCorner End If Next Sel Application.ScreenUpdating = True End Sub

Itulah beberapa contoh code macro VBA terkait Show/Hide Comment dan Pengaturan Comment Box. dari contoh-contoh tersebut, yang paling berguna menurut Mimin adalah prosedur nomor 2, 3 dan 4,  karena nomor 1 belum menyelesaikan problem ketika comment muncul pada range yang jauh dari jangkauan pandangan layar, bahkan bisa sangat jauh. Sedangkan nomor 5 s/d 7 hanya untuk bersenang-senang saja mencoba hal baru, kenyataannya jarang digunakan.

Menurut kamu, Code yang mana yang paling berguna?

Jika ada tanggapan / saran / koreksi, jangan ragu untuk tinggalkan komentar.

Jika kamu tertarik mengetahui lebih lanjut mengenai contoh code macro VBA Excel, berikut link contoh-contoh lainnya yang mungkin kamu suka.

Contoh Code VBA untuk Buat dan Hapus Hyperlink dengan Cepat

Contoh Code VBA untuk Tambah dan Close Beberapa Workbook Sekaligus

Contoh Code VBA untuk Tambah Worksheet Dengan Berbagai Kriteria

Salam Hangat..😎😎😎

Membuat dan Menghapus Hyperlink

Hyperlink sangat diperlukan untuk memudakan navigasi data dalam sebuah workbook. Biasanya kita membuat hyperlink yang menghubungkan sheet rekapitulasi dengan sheet detail. Kita juga biasa memanfaatkan hyperlink untuk menghubungkan sheet Daftar isi dengan Sheet - Sheet lainnya yang ada dalam workbook. Ada kalanya, karena alasan tertentu hyperlink tidak diperlukan dan harus di hapus.

Bagaimana biasanya kamu membuat hyperlink di excel? dan bagaimana cara menghapus hyperlink? Adakah cara yang tidak biasa untuk membuat dan menghapus hyperlink? Contoh-contoh code VBA berikut mudah-mudahan dapat membantu kamu dalam membuat dan menghapus hyperlink di Excel dengan lebih efisien.

1. Membuat Hyperlink Bolak-Balik Antar Sel Berisi Text Yang Sama Dalam Satu Workbook (file excel)

Prosedur ini sangat berguna bila kamu ingin membuat tautan secara cepat antar range data. Misalnya antara data rekapitulasi dengan data detail. Contoh macro ini bekerja dengan mengkoleksi sel berisi text yang ada di range pertama, kemudian mencari sel yang berisi text yang sama di range kedua. Apabila ketemu maka langsung dibuat tautannya dari sel di range pertam menuju sel di range kedua, dan proses sebaliknya, sehingga terjadilan hyperlink bolak - balik.

Untuk lebih mudah memahami prosedur ini, lebih baik langsung dicoba copas code di bawah ini ke workbook macro milik kamu dan langsung eksekusi (Run).

Sub BuatHyperlinkAntarTextYangSama() Dim Wb As Workbook Dim range1 As Range, range2 As Range Dim sel1 As Range, sel2 As Range Dim alamat1 As String, alamat2 As String Set Wb = ActiveWorkbook On Error GoTo batal: Do Set range1 = Application.InputBox(prompt:="Pilih Range Pertama, tidak boleh melebihi 1 kolom", Title:="Input 1", Type:=8) If range1.Columns.Count > 1 Then MsgBox "Range dipilih tidak boleh melebihi 1 kolom", vbCritical Loop Until range1.Columns.Count = 1 Do Set range2 = Application.InputBox(prompt:="Pilih Range Kedua, tidak boleh melebihin 1 kolom", Title:="Input 2", Type:=8) If range2.Columns.Count > 1 Then MsgBox "Range dipilih tidak boleh melebihi 1 kolom", vbCritical Loop Until range2.Columns.Count = 1 With Application For Each sel1 In range1 If sel1.Value <> "" Then If Not IsError(.Match(sel1.Value, range2, 0)) Then Set sel2 = .Index(range2, .Match(sel1.Value, range2, 0)) alamat1 = Replace(sel1.Address(1, 1, 1, 1), "[" & Wb.Name & "]", "") alamat2 = Replace(sel2.Address(1, 1, 1, 1), "[" & Wb.Name & "]", "") sel1.Hyperlinks.Add sel1, "", alamat2, "Hyperlink ke " & alamat2 sel2.Hyperlinks.Add sel2, "", alamat1, "Hyperlink ke " & alamat1 End If End If Next End With batal: End Sub

Ketika macro dijalankan (Run), maka kamu akan diminta untuk memilih range pertama. Pastikan range pertama terdiri dari 1 kolom, kemudian selanjutnya kamu juga akan diminta memilih range ke-2. Juga pastikan range yang kamu pilih terdiri atas 1 kolom. Jika dalam kedua range tersebut ada sel berisi text yang sama maka otomatis akan terbuat tautan bolak-balik.

2. Membuat Daftar Isi Yang Otomatis Link ke Semua Sheet

Nah contoh kode macro  yang ini buat kamu yang tidak mau repot-repot menambah tautan antar daftar isi dengan sheet setiap kali kamu menambahkan sheet baru. Langsung di copy paste saja gaes, code dibawah...

Sub buatDaftarSheetDgnHyperlink() Dim Wb As Workbook, Ws As Worksheet, WsIdx As Worksheet Dim Baris As Integer, Nomor As Integer Dim selWsIdx As Range, selWs As Range Dim alamatSelWsIdx As String, alamatSelWs As String Set Wb = ActiveWorkbook Set WsIdx = ActiveSheet WsIdx.UsedRange.Clear WsIdx.Range("A1").Value = "Daftar Sheet" Baris = 3 Nomor = 0 For Each Ws In Wb.Worksheets If Ws.Name <> WsIdx.Name Then Baris = Baris + 1 Nomor = Nomor + 1 WsIdx.Range("A" & Baris).Value = Nomor 'set sel index, kontent dan alamatnya untuk linkback Set selWsIdx = WsIdx.Range("B" & Baris) selWsIdx.Value = Ws.Name alamatSelWsIdx = Replace(selWsIdx.Address(1, 1, 1, 1), "[" & Wb.Name & "]", "") 'set sel worksheet sebagai tujuan hyperlink Set selWs = Ws.Range("A1") selWs.Value = "<< Daftar Isi" alamatSelWs = Replace(selWs.Address(1, 1, 1, 1), "[" & Wb.Name & "]", "") 'buat hyperlink WsIdx.Hyperlinks.Add selWsIdx, "", alamatSelWs, "Hyperlik ke sheet : " & Ws.Name Ws.Hyperlinks.Add selWs, "", alamatSelWsIdx, "Hyperlik ke Daftar Isi" End If Next End Sub

Tunggu sebentar...!! code di atas ternyata belum cukup untuk membuatnya bekerja secara otomatis. Supaya pembuatan link bekerja otomatis, maka kamu harus menempatkan sebuah code tambahan pada modul worksheet yang kamu tetapkan sebagai sheet daftar isi. Silahkan copas code berikut:

Private Sub Worksheet_Activate() buatDaftarSheetDgnHyperlink End Sub

Dengan tambahan kode ini maka setiap kali kamu mengaktifkan atau beralih ke sheet yang kamu tentukan sebagai daftar isi, maka secara otomatis, microsoft excel akan menjalankan prosedur buatDaftarSheetDgnHyperlink. Akibatnya setiap kamu menambah sheet baru dan kemudian kamu cek sheet daftar isi maka kamu akan melihat tahutan baru tiba-tiba muncul. Selain itu dari Sheet yang baru kamu buat juga akan muncul tautan balik yang mengarah ke sheet daftar isi.

3. Menghapus Semua Hyperlink dalam Sheet dengan Model Standar

Selain membuat hyerlink. Kita juga perlu tahu bagaimana caranya menghapus hyperlink. Contoh code berikut dapat digunakan untuk menghapus semua hyperlinks dalam sheet aktif.

Sub HapusSemuaHiperlinkDalamWsMetodeStandar() Dim sel As Range, selFormula As String, Ws As Worksheet Set Ws = ActiveSheet Ws.UsedRange.Hyperlinks.Delete

Prosedur yang diadopsi oleh kode di atas merupakan model remove hyperlink standar yang biasa dilakukan secara manual (klik kanan --> remove hyperlink). Pada saat kita menghapus hyperlink dengan tehnik ini, maka format sel akan berubah. Oleh karena itu sebagai solusinya kita bisa menggunakan contoh code VBA berikutnya:

4. Menghapus Semua Hyperlink Dalam Sheet Tanpa Merubah Format

Langsung saja dicopy paste codenya gaes...:

Sub HapusSemuaHiperlinkDalamWsTanpaUpahFormat() Dim sel As Range, formulaRange As Variant, rangeTarget As Range, Ws As Worksheet Set Ws = ActiveSheet Set rangeTarget = Ws.UsedRange formulaRange = rangeTarget.Formula rangeTarget.ClearContents rangeTarget.Formula = formulaRange End Sub

Nah dengan menggunakan code di atas, kamu tidak perlu khawatir format sel berubah. Prosedur ini sebenarnya mengambil konsep ketika kamu menghapus konten sel secara manual. Selain konten yang terhapus maka hyperlinknya juga terhapus, tetapi formatnya tidak terhapus. Ketika kamu mengetik kembali pada sel yang sudah dihapus kontennya tadi, maka hasilnya formatnya akan sama dengan keadaan sebelum kamu hapus, tetapi hyperlinknya sudah tidak ada.

5. Menghapus Semua Hyperlink dalam Range Terpilih Tanpa Merubah Format

Prosedur nomor 4 apabila dijalankan akan menghapus semua hyperlink yang ada dalam sheet yang sedang aktif. Jika kamu hanya ingin menghapus hyperling dalam range tertentu (range yang dipilih / higlight) maka gunakan code berikut:

Sub HapusSemuaHiperlinkDalamRangeTanpaUbahFormat() Dim sel As Range, formulaRange As Variant, rangeTerpakai As Range Set rangeTerpakai = Selection formulaRange = rangeTerpakai.Formula rangeTerpakai.ClearContents rangeTerpakai.Formula = formulaRange End Sub

...

Itulah beberapa contoh kode VBA yang dapat kamu gunakan untuk membuat dan menghapus hyperlink.

Jika teman-teman ada saran atau koreksi, jangan ragu untuk tinggalkan komentar.

Teman-teman tertarik untuk mendapatkan contoh-contoh kode VBA lainnya? Silahkan klik link di bawah ini.

• Contoh Kode VBA untuk Menghapus Sheet
• Contoh Kode VBA untuk Mengurutkan Sheet
• Contoh Kode VBA untuk Hide/Unhide Sheet

Salam .... 😎😎😎

Workbook Add & Close

Membuat / menambah workbook baru di excel biasanya dengan cara klik tab File --> New, atau dengan menekan key shortcut Ctrl  + N. Metode manual tersebut hanya menambah satu workbook saja per sekali eksekusi. Kamu bosan dengan metode itu-itu saja? Yok kita coba dengan menggunakan macro / vba. Tidak perlu mikir panjang bagaimana cara bikinnya. Tinggal copas saja gaes...😁😁😁

1. Membuat / Menambah Beberapa Workbook Sekaligus

Menambah beberapa workbook sekaligus sangat mudah dilakukan pake macro. Silahkan dicopy code nya Om.. dan jalankan di workbooknya si Oom...

Sub buatWbBaru() Dim i As Integer, jmlWbBaru As Integer On Error GoTo inputTidakValid jmlWbBaru = Application.InputBox("Input jumlah workbook baru yang akan dibuat, maksimal 5", "Input", 0) If jmlWbBaru = 0 Then Exit Sub If jmlWbBaru > 5 Then MsgBox "Tidak dapat di proses karena kamu minta " & jmlWbBaru & ", maksimal 5 saja ya..", vbCritical Exit Sub End If For i = 1 To jmlWbBaru Workbooks.Add Next Exit Sub inputTidakValid: MsgBox "Inputan harus angka", vbCritical End Sub

Contoh code di atas membatasi penambahan workbook maksimal sekaligus 5. Kenapa dibatasi ? karena kalau kebanyakan tambah workbook juga bisa berabe..😅😅

2. Close Semua Workbook Kecuali Aku

Tadi sudah buat workbook banyak sekaligus. Sekarang bagaimana close workbook yang terlanjur dibuat. Kalau kamu close satu per satu pasti melelahkan dan menjengkelkan bukan. Tenang saja, kita masih bisa bermain-main dengan code macro. Gunakan code berikut untuk close semua workbook kecuali Aku.

Sub CloseSemuaWbKecualiAku() Dim Wb As Workbook Application.ScreenUpdating = False For Each Wb In Application.Workbooks If Not Wb Is ThisWorkbook Then Wb.Close 0 ' tanpa save, jika mau close dan save, maka 0 ganti dengan 1 End If Next Application.ScreenUpdating = True End Sub

Note: 

- Aku artinya adalah workbook dimana code ini ditempatkan. Kamu tentunya tidak mau workbook code yang kamu sayangi ikut ter-close bukan..?

- Perlu hati-hati bahwa code diatas meng-close workbook tanpa melakukan proses Save, sehingga semua perubahaan pada workbook-workbook tersebut tidak akan tersave dengan prosedur ini, kecuali kamu sudah melakukan Save terlebih dahulu secara manual.

3. Close Semua Workboook Kecuali Aku dan WB Aktif

Sedikit modifikasi, bila kamu ingin meng-close semua workbook kecuali workbook tempat code berada dan workbook yang sedang aktif.

Sub CloseSemuaWbKecualiAkuDanWbAktif() Dim Wb As Workbook Application.ScreenUpdating = False For Each Wb In Application.Workbooks If Not Wb Is ThisWorkbook Then If Not Wb Is ActiveWorkbook Then Wb.Close 0 ' tanpa save, jika mau close dan save, maka 0 ganti dengan 1 End If End If Next Application.ScreenUpdating = True End Sub

Close Semua WB Kosong Kecuali Aku

Nah kalau yang ini akan memaksa close semua workbook yang kosong. Daripada menuhin memory, lebih baik di close saja kan? Proses Close juga tidak perlu sambil di Save. Namanya juga workbook kosong. Tidak ada gunanya juga di Save.

Sub CloseSemuaWbKosongKecualiAku() Dim Wb As Workbook, Ws As Worksheet Application.ScreenUpdating = False For Each Wb In Application.Workbooks If Not Wb Is ThisWorkbook Then For Each Ws In Wb.Worksheets If WorksheetFunction.CountA(Ws.UsedRange) > 0 Then GoTo skip End If Next Wb.Close 0 End If skip: Next Application.ScreenUpdating = True End Sub

Itulah Gaes... Beberapa contoh VBA praktis yang bisa kamu gunakan langsung untuk menambah dan close workbook.

Ada saran/koreksi?? Jangan segan untuk tinggalkan komentar.

Jika kamu tertarik, cek juga contoh code VBA lainnya, semuanya tinggal copy paste:

• Contoh Code VBA untuk Menghapus Sheet
• Contoh Code VBA untuk Hide/Unhide Sheet
• Contoh Code VBA untuk Mengurutkan Sheet

Mengurutkan Sheet

Urutan sheet tidak beraturan? Capek mengurutkannya secara manual? jangan khawatir !! Kamu bisa mengurutkan / sortir sheet secara cepat menggunakan makro. Ga perlu mikir panjang, tinggal copas  saja kode - kode ini ke workbook berisi kumpulan makro milik kamu.

1. Mengurutkan Sheet Sesuai Alfa Numerik (Alfabet dan Angka)

Jika urutan sheet tidak karuan, apalagi jumlah sheetnya bejibun alias banyak, yang bila diukur panjang tab sheetnya bisa bermeter-meter, maka mengurutkan sheet secara manual pasti sangat melelahkan. Untungnya ada code VBA yang sangat membantu untuk mengatasi masalah ini. 

Menyusun sheet sesuai urutan angka dari terkecil ke tertinggi atau huruf dari "A" ke "Z" akan sangat memudahkan dalam membaca alur worksheet. Maka sortir worksheet  secara alfanumerik adalah solusinya. Tinggal copy saja code di bawah ini gaes... dan paste ke module standar dalam workbook kamu.

Sub UrutkanSheetSesuaiAbjadDanAngka() Dim jmlSheet As Integer, i As Integer, j As Integer Application.ScreenUpdating = False jmlSheet = Sheets.Count For i = 1 To jmlSheet - 1 For j = i + 1 To jmlSheet If Sheets(j).Name < Sheets(i).Name Then Sheets(j).Move before:=Sheets(i) End If Next j Next i Application.ScreenUpdating = True End Sub

2. Mengurutkan Sheet Sesuai Nama Bulan Ringkas Bahasa Inggris

Jika sebuah workbook laporan bulanan terdiri dari sekumpulan sheet dengan nama bulan, maka kita bisa mengurutkan sheet sesuai nama bulan. Nama bulan yang dikenali VBA secara default adalah bahasa inggris, sehingga kamu harus menamai sheet dengan nama bulan dalam bahasa Inggris. Untuk penulisan nama bulan ada 2 type yaitu tipe ringkas dan type panjang. Gunakan kode makro berikut untuk mengurutkan nama bulan yang ditulis dalam bahasa inggris model ringkas.

Sub UrutkanSheetMonthRingkas() Dim Wb As Workbook, i As Integer Application.ScreenUpdating = False Set Wb = ActiveWorkbook On Error Resume Next For i = 1 To 12 Debug.Print i Worksheets(MonthName(i, True)).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub

Keterangan:  

Nama bulan type ringkas dalam bahasa Inggris = Jan, Feb, Mar, Apr, May, Jun, ,Aug, Sep, Oct, Nov, Dec.

3. Mengurutkan Sheet Sesuai Nama Bulan Full Bahasa Inggris

Dengan sedikit modifikasi dari contoh kode nomor 2, maka contoh kode nomor 3 berikut ini bisa digunakan untuk mengurukan sheet nama bulan dalam bahasa inggris type nama bulan panjang.

Sub UrutkanSheetMonthFull() Dim Wb As Workbook, i As Integer Application.ScreenUpdating = False Set Wb = ActiveWorkbook On Error Resume Next For i = 1 To 12 Debug.Print i Worksheets(MonthName(i, False)).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub

Keterangan:  

Nama bulan type panjang dalam bahasa Inggris  = January, February, March, April, May, June, July, August, September, October, November, December.

4. Mengurutkan Sheet Sesuai Nama Bulan Ringkas Bahasa Indonesia

Meskipung secara default, VBA excel mengenali nama bulan dalam bahasa Inggris. Namun dengan sedikit modifikasi kita masih bisa mengurutkan sheet nama bulan dalam berbagai bahasa. Tinggal copas saja code berikut untuk mengurutkan sheet bulan type ringkas dalam bahasa Indonesia.

Sub UrutkanSheetBulanRingkas() Dim i As Integer, namaBulan As String Application.ScreenUpdating = False On Error Resume Next For i = 1 To 12 namaBulan = WorksheetFunction.Text(DateSerial(1, i, 1), "[$-421]mmm") Worksheets(namaBulan).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub

Keterangan: Nama bulan type ringkas dalam bahasa Indonesia = Jan, Feb, Mar, Apr, Mei, Jun, Jul, Agu, Sep, Okt, Nov, Des

5. Mengurutkan Sheet Sesuai nama bulan Full Bahasa Indonesia

Jika kamu menuliskan nama bulan type panjang dalam bahasa Indonesia maka gunakan code berikut untuk mengurutkan sheet bulannya.

Sub UrutkanSheetBulanFull() Dim i As Integer, namaBulan As String Application.ScreenUpdating = False On Error Resume Next For i = 1 To 12 namaBulan = WorksheetFunction.Text(DateSerial(1, i, 1), "[$-421]mmmm") Worksheets(namaBulan).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub

Keterangan: Nama bulan type panjang dalam bahasa Indonesia = Januari, Februari, Maret, April, Mei, Juni, Juli, Agustus, September, Oktober, November, Desember.

...

Itulah beberapa contoh kode makro VBA yang sering digunakan untuk mengurutkan / sortir sheet.

Ada koreksi / saran ? jangan ragu untuk tinggalkan komentar.

Mungkin kamu tertarik untuk mengetahui contoh-contoh lainnya, silahkan klik tautan di bawah ini:

• Contoh Macro Untuk Menghapus / Delete Sheet
• Contoh Macro Untuk Hide/Unhide Sheet
• Contoh Macro Untuk Menambah Sheet

Salam..😎😎😎

Menghapus Sheet

Menghapus / delete sheet merupakan hal yang lumrah bagi pengguna excel dan sangat mudah dilakukan dengan cara manual. Delete sheet menggunakan makro / VBA tentunya tidak merugikan untuk dicoba. Jika hapus menghapus sheet ini merupakan kegiatan rutin, maka VBA merupakan pilihan yang tepat untuk diterapkan.

1.  Menghapus Sheet Yang Sedang Aktif

Ini merupakan prosedur delete sheet yang paling sederhana. Seperti halnya cara manual delete sheet yang sering dilakuin kebanyakan user.

Sub HapusSheetAktif() Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub

2.  Menghapus Semua Sheet Kecuali Sheet Yang Sedang Aktif

Jika kamu hanya memerlukan satu sheet saja, sedangkan sheet lainnya hanya berisi kumpulan data tidak berguna maka prosedur nomor 2 adalah pilihan yang tepat.

Sub HapusSemuaSheetKecualiSheetAktif() Dim Wb As Workbook, Sht Set Wb = ActiveWorkbook Application.DisplayAlerts = False For Each Sht In Wb.Sheets If Not Sht.Name = ActiveSheet.Name Then Sht.Delete End If Next Application.DisplayAlerts = True End Sub

3.  Menghapus Sebuah Sheet Tertentu

Kamu melihat bahwa ada sebuah sheet tidak berguna dan harus dihapus, maka gunakan prosedur ini. Mirip prosedur nomor 1, hanya saja tidak perlu mengaktifkan sheetnya terlebih dahulu.

Sub HapusSheetDgnNamaTertentu() Dim Wb As Workbook, Sht, namaShtHapus As String Set Wb = ActiveWorkbook namaShtHapus = "List 1" ' bisa diganti sesuai keperluan Application.DisplayAlerts = False For Each Sht In Wb.Sheets If Sht.Name = namaShtHapus Then Sht.Delete End If Next Application.DisplayAlerts = True End Sub

4.  Menghapus Beberapa Sheet Yang Memiliki Nama Depan Tertentu

Kamu bisa menandai sheet-sheet yang tidak diperlukan dengan ciri-ciri nama depan tertertentu. Ajib.. kamu bisa menghapusnya sekaligus.

Sub HapusSheetDgnNamaDepanTertentu() Dim Wb As Workbook, Sht Dim namaDepanShtHapus As String Set Wb = ActiveWorkbook namaDepanShtHapus = "List" ' bisa diganti sesuai keperluan Application.DisplayAlerts = False For Each Sht In Wb.Sheets If Left(Sht.Name, Len(namaDepanShtHapus)) = namaDepanShtHapus Then Sht.Delete End If Next Application.DisplayAlerts = True End Sub

5. Menghapus Satu Atau Lebih Sheet Paling Depan

Oh... Ternyata beberapa sheet paling depan tidak berguna. Tinggal hapus saja pake cara ini.

Sub HapusBeberapaSheetPalingDepan() Dim Wb As Workbook, Sht Dim i As Integer, jmlShtHapus As Integer, jmlShtTotal As Integer Set Wb = ActiveWorkbook jmlShtTotal = Wb.Sheets.Count On Error GoTo batal jmlShtHapus = InputBox("Input jumlah sheet yang akan dihapus") If jmlShtHapus > jmlShtTotal Then MsgBox "Inputan jumlah sheet yang akan dihapus tidak boleh " & Chr(10) _ & "melebihi jumlah sheet yang ada dalam workbook", vbOKOnly, "Ups ada masalah !!!" Exit Sub End If Application.DisplayAlerts = False For i = 1 To jmlShtHapus Wb.Sheets(i).Delete Next Application.DisplayAlerts = True Exit Sub batal: Exit Sub End Sub

6.  Menghapus Satu Atau Lebih Sheet Paling Belakang

Eh... yang ini malah beberapa sheet paling belakang yang hanya menambah beban memory, tapi tidak ada gunanya sama sekali. Lebih baik hapus saja deh dengan cara ini.

Sub HapusBeberapaSheetPalingBelakang() Dim Wb As Workbook, Sht Dim i As Integer, jmlShtHapus As Integer, jmlShtTotal As Integer Set Wb = ActiveWorkbook jmlShtTotal = Wb.Sheets.Count On Error GoTo batal jmlShtHapus = InputBox("Input jumlah sheet yang akan dihapus") If jmlShtHapus > jmlShtTotal Then MsgBox "Inputan jumlah sheet yang akan dihapus tidak boleh " & Chr(10) _ & "melebihi jumlah sheet yang ada dalam workbook", vbOKOnly, "Ups ada masalah !!!" Exit Sub End If Application.DisplayAlerts = False For i = 1 To jmlShtHapus Wb.Sheets(jmlShtTotal - i + 1).Delete Next Application.DisplayAlerts = True Exit Sub batal: Exit Sub End Sub

7.  Menghapus Semua Sheet Grafik

File excel ku ternyata ada banyak sheet grafik yang sudah kehilangan referensi sumber datanya. Daripada menuh-menuhin  memoy, lebih afdhol delete saja ah..

Sub hapusSemuaSheetGrafik() Dim Wb As Workbook Application.DisplayAlerts = False Set Wb = ThisWorkbook If Wb.Charts.Count > 0 Then Wb.Charts.Delete Else MsgBox "Tidak ada sheet grafik" End If Application.DisplayAlerts = True End Sub

Jika ada saran / koreksi terkait code VBA untuk menghapus sheet, jangan ragu untuk tinggalkan pesan / komentar.

Salam..

Code VBA Terkait:

Cara Menambah Worksheet Baru

Menyembunyikan dan Memunculkan Sheet

Menyembunyikan / Memunculkan Sheet

Menyembunyikan sheet diperlukan jika kamu menginginkan beberapa data tidak terlihat dan dirubah oleh user / kolega anda. Contoh - contoh kode VBA berikut dapat digunakan untuk menyembunyikan sheet maupun sebaliknya yaitu untuk memunculkan sheet yang tersembunyi.

1. Menyembunyikan sheet dengan nama depan tertentu

Ketika kamu membuat sebuah template laporan dan menyusun data dalam serangkaian sheet yang didesain dengan nama depan tertentu, misalnya: List 1, List 2, List 3 dan seterusnya. Kemudian kamu ingin menyembunyikan sheet list tersebut dengan cepat, Maka  kamu dapat membuat makro dengan kode berikut:

Sub HideWsNamaDepanTertentu() Dim namaDepanWs As String Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook namaDepanWs = "List" ' "List" bisa diganti sesuai kebutuhan For Each Ws In Wb.Sheets If Left(Ws.Name, Len(namaDepanWs)) = namaDepanWs Then Ws.Visible = xlSheetHidden End If Next End Sub

2. Menyembunyikan sheet supaya tidak sembarang user bisa memunculkan kembali sheet tersebut.

Alternatif lainnya, kamu bisa menyembunyikan sheet dengan mode sangat tersembunyi. Dengan mode ini maka tidak sebarang user bisa melakukan unhide sheet tersebut (tentunya kecuali user yang sudah tau triknya...). Untuk tujuan ini anda dapat menggunakan konstan xlSheetVeryHidden sebagai nilai property sheet Visible.

Sub SuperHideWsNamaDepanTertentu() Dim namaDepanWs As String Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook namaDepanWs = "List" ' "List" bisa diganti sesuai kebutuhan For Each Ws In Wb.Sheets If Left(Ws.Name, Len(namaDepanWs)) = namaDepanWs Then Ws.Visible = xlSheetVeryHidden End If Next End Sub

3. Memunculkan Sheet Tersembunyi Yang Memiliki Nama Dengan Kata Depan Tertentu

Prosedur nomor 3 ini merupakan kebalikan dari prosedur nomor 1.  Kita bisa memunculkan kembali satu atau lebih sheet tersembunyi yang memiliki nama depan tertentu. Cotoh kasus : dengan nama depan "List". 

Sub UnhideWsNamaDepanTertentu() Dim namaDepanWs As String Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook namaDepanWs = "List" ' "List" bisa diganti sesuai kebutuhan For Each Ws In Wb.Sheets If Left(Ws.Name, Len(namaDepanWs)) = namaDepanWs Then If Ws.Visible = xlSheetHidden Then Ws.Visible = xlSheetVisible End If End If Next End Sub

4. Memunculkan Semua Sheet Tersembunyi dengan Mode Standar.

Prosedur berikut dapat digunakan untuk memunculkan semua sheet tersembunyi dengan mode standar tanpa memperhatikan nama yang melekat pada sheet tersembunyi, namun tetap mempertahankan semua sheet yang super tersembunyi (very hidden) untuk tetap berdiam diri di persembunyiannya.

Sub UnhideSemuaWs() Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook For Each Ws In Wb.Sheets If Ws.Visible = xlSheetHidden Then Ws.Visible = xlSheetVisible End If Next End Sub

5. Memunculkan Sheet Tersembunyi Tanpa Kecuali

Jika kamu ingin mengeluarkan semua sheet dari persembunyiannya tanpa kecuali, maka prosedur nomor 5 menjadi pilihan yang paling tepat. Dengan prosedur ini semua sheet akan dipaksa keluar dari persembunyiannya dan terpampang nyata, termasuk very hidden sheet. 

Sub UnhideSemuaWsTanpaKecuali() Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook For Each Ws In Wb.Sheets Ws.Visible = xlSheetVisible Next End Sub

Demikian beberapa contoh code makro / VBA yang bisa teman-teman gunakan untuk menyembunyikan sheet dan juga sebaliknya.

Jika ada saran / masukan silakan tinggalkan pesan.

Salam..

Contoh code terkait:

Code VBA Untuk Menghapus Sheet

Code VBA Untuk Menambah Sheet

Menambah Worksheet Baru

Contoh Kode VBA berikut dapat digunakan untuk menambah beberapa sheet baru dengan berbagai model pilihan sesuai kebutuhan.

Menambah beberapa worksheet di posisi depan.

'Menambah beberapa worksheet dengan posisi paling depan Sub TambahWsPosisiDiDepan() Dim i As Integer, jmlTambahWs As Integer, wsbaru As Worksheet jmlTambahWs = 5 'jumlah sheet yang du dapat disesuaikan dengan kebutuhan With ActiveWorkbook.Worksheets For i = jmlTambahWs To 1 Step -1 Set wsbaru = .Add(before:=.Parent.Worksheets(1)) wsbaru.Name = "Sheet Baru " & i Next End With End Sub

Menambah beberapa worksheet dengan posisi setelah sheet terakhir.

'Menambah beberapa worksheet dengan posisi setelah sheet terakhir Sub TambahWsSetelahWsAkhir() Dim i As Integer, jmlTambahWs As Integer, wsbaru As Worksheet jmlTambahWs = 5 'jumlah sheet yang du dapat disesuaikan dengan kebutuhan With ActiveWorkbook.Worksheets For i = 1 To jmlTambahWs Set wsbaru = .Add(after:=.Parent.Worksheets(.Count)) wsbaru.Name = "Sheet Baru " & i Next End With End Sub

Menambah beberapa worksheet setelah sheet active.

'Menambah beberapa worksheet setelah sheet active Sub TambahWsSetelahWsAktif() Dim i As Integer, jmlTambahWs As Integer, wsAwal As Worksheet Dim wsbaru As Worksheet jmlTambahWs = 5 Set wsAwal = ActiveSheet With ActiveWorkbook.Worksheets For i = 1 To 10 Set wsbaru = .Add(after:=wsAwal) wsbaru.Name = "Sheet Baru " & i Set wsAwal = wsbaru Next End With End Sub

Menambah beberapa worksheet setelah sheet dengan nama tertentu.

'Menambah beberapa worksheet setelah sheet dengan nama tertentu Sub TambahWsSetelahWsTertentu() Dim i As Integer, jmlTambahWs As Integer, wsAwal As Worksheet, wsbaru As Worksheet Dim namaWsAwal As String namaWsAwal = "Ws Awal" ' nama "Ws Awal" bisa disesuaikan kebutuhan Set wsAwal = ActiveWorkbook.Worksheets(namaWsAwal) jmlTambahWs = 5 With ActiveWorkbook.Worksheets For i = 1 To 10 Set wsbaru = .Add(after:=wsAwal) wsbaru.Name = "Sheet Baru " & i Set wsAwal = wsbaru Next End With End Sub

Catatan: Contoh kode di atas akan terjadi error pada saat dieksekusi apabila tidak ada nama sheet "Ws Awal". Supaya tidak terjadi error maka harus dipastikan variable namaWsAwal  merujuk ke nama sheet yang valid.

Ada koreksi / saran / request contoh VBA lainnya ? Silakan tinggalkan pesan di komentar.

Salam..