{"id":4415,"date":"2023-07-11T07:11:28","date_gmt":"2023-07-11T07:11:28","guid":{"rendered":"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/"},"modified":"2023-07-11T07:11:28","modified_gmt":"2023-07-11T07:11:28","slug":"vba-hapus-lembar-jika-ada-namanya","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/","title":{"rendered":"Vba: hapus lembar jika nama berisi teks tertentu"},"content":{"rendered":"

<\/p>\n

\n

Anda bisa menggunakan sintaks berikut di VBA untuk menghapus setiap lembar di buku kerja Excel yang berisi teks tertentu:<\/span><\/p>\n

 SubDeleteSheets<\/span> ()\n\n    Dim<\/span> TextToFind As<\/span> String\n    Dim<\/span> TextWildcard As<\/span> String\n    Dim<\/span> Ws As<\/span> Worksheet\n    Dim<\/span> i As<\/span> Integer\n    \n    'prompt user for text to search for in sheet names<\/span>\n    TextToFind = Application.InputBox(\" Delete Sheets That Contain:<\/span> \", _\n                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)\n                                    \n    TextWildcard = \" *<\/span> \" & TextToFind & \" *<\/span> \"\n    Application.DisplayAlerts = False\n    \n    'loop through sheets and delete each sheet that contains text<\/span>\n    i = 0\n    For<\/span> Each Ws In<\/span> ThisWorkbook.Sheets\n        If<\/span> Ws.Name Like<\/span> TextWildcard Then<\/span>\n            Ws.Delete\n            i = i + 1\n        End If<\/span>\n    Next<\/span> Ws\n    \n    Application.DisplayAlerts = True\n    \nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n
 Saat Anda menjalankan makro khusus ini, kotak input akan muncul di mana Anda dapat memasukkan string teks tertentu.<\/span><\/p>\n
 Setelah Anda menekan Enter, setiap lembar di buku kerja Excel yang berisi teks tertentu akan dihapus secara otomatis.<\/span><\/p>\n
 Catatan<\/strong> : Baris Application.DisplayAlerts=False<\/strong> memberitahu VBA untuk tidak menampilkan proses penghapusan sheet, sehingga mempercepat eksekusinya.<\/span><\/p>\n
 Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.<\/span><\/p>\n
 Contoh: Gunakan VBA untuk menghapus lembar yang berisi teks tertentu<\/strong><\/span><\/h2>\n
 Misalkan kita memiliki buku kerja Excel berikut yang berisi empat lembar:<\/span> <\/p>\n
\"\"<\/p>\n
 Sekarang katakanlah kita ingin menghapus setiap sheet yang memiliki “Tim” di nama sheetnya.<\/span><\/p>\n
 Kita dapat membuat makro berikut untuk melakukan ini:<\/span><\/p>\n
 SubDeleteSheets<\/span> ()\n\n    Dim<\/span> TextToFind As<\/span> String\n    Dim<\/span> TextWildcard As<\/span> String\n    Dim<\/span> Ws As<\/span> Worksheet\n    Dim<\/span> i As<\/span> Integer\n    \n    'prompt user for text to search for in sheet names<\/span>\n    TextToFind = Application.InputBox(\" Delete Sheets That Contain:<\/span> \", _\n                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)\n                                    \n    TextWildcard = \" *<\/span> \" & TextToFind & \" *<\/span> \"\n    Application.DisplayAlerts = False\n    \n    'loop through sheets and delete each sheet that contains text<\/span>\n    i = 0\n    For<\/span> Each Ws In<\/span> ThisWorkbook.Sheets\n        If<\/span> Ws.Name Like<\/span> TextWildcard Then<\/span>\n            Ws.Delete\n            i = i + 1\n        End If<\/span>\n    Next<\/span> Ws\n    \n    Application.DisplayAlerts = True\n    \nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Saat kita menjalankan makro ini, kotak input muncul di mana kita bisa memasukkan teks yang ingin kita cari di nama sheet:<\/span> <\/p>\n
\"\"<\/p>\n
 Setelah kita mengetik “Tim” dan menekan OK<\/strong> , nama sheet yang berisi “Tim” di mana pun dalam namanya akan otomatis terhapus:<\/span> <\/p>\n
\"\"<\/p>\n
 Perhatikan bahwa dua lembar dengan “Tim” di nama lembarnya telah dihapus.<\/span><\/p>\n
 Lembar apa pun yang tidak berisi “Tim” tidak disentuh.<\/span><\/p>\n
 Sumber daya tambahan<\/strong><\/span><\/h2>\n
 Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:<\/span><\/p>\n
 VBA: Cara menghitung jumlah lembar dalam buku kerja<\/a>
 VBA: Cara mengekstrak data dari buku kerja lain
 VBA: cara menyisipkan banyak baris<\/a><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"
Anda bisa menggunakan sintaks berikut di VBA untuk menghapus setiap lembar di buku kerja Excel yang berisi teks tertentu: SubDeleteSheets () Dim TextToFind As String Dim TextWildcard As String Dim Ws As Worksheet Dim i As Integer ‘prompt user for text to search for in sheet names TextToFind = Application.InputBox(” Delete Sheets That Contain: “, […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\nVBA: Hapus lembar jika nama berisi teks tertentu \u2013 Statorial<\/title>\n<meta name=\"description\" content=\"Tutorial ini menjelaskan cara menghapus sheet di Excel jika berisi teks tertentu, beserta sebuah contoh.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/\" \/>\n<meta property=\"og:locale\" content=\"id_ID\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA: Hapus lembar jika nama berisi teks tertentu \u2013 Statorial\" \/>\n<meta property=\"og:description\" content=\"Tutorial ini menjelaskan cara menghapus sheet di Excel jika berisi teks tertentu, beserta sebuah contoh.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-11T07:11:28+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/ds1.jpg\" \/>\n<meta name=\"author\" content=\"Benjamin anderson\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Ditulis oleh\" \/>\n\t<meta name=\"twitter:data1\" content=\"Benjamin anderson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Estimasi waktu membaca\" \/>\n\t<meta name=\"twitter:data2\" content=\"2 menit\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/\",\"url\":\"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/\",\"name\":\"VBA: Hapus lembar jika nama berisi teks tertentu \u2013 Statorial\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/id\/#website\"},\"datePublished\":\"2023-07-11T07:11:28+00:00\",\"dateModified\":\"2023-07-11T07:11:28+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\"},\"description\":\"Tutorial ini menjelaskan cara menghapus sheet di Excel jika berisi teks tertentu, beserta sebuah contoh.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/#breadcrumb\"},\"inLanguage\":\"id\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/statorials.org\/id\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vba: hapus lembar jika nama berisi teks tertentu\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/id\/#website\",\"url\":\"https:\/\/statorials.org\/id\/\",\"name\":\"Statorials\",\"description\":\"Panduan anda untuk kompetensi statistik!\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/id\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"id\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\",\"name\":\"Benjamin anderson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"id\",\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/image\/\",\"url\":\"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"caption\":\"Benjamin anderson\"},\"description\":\"Halo, saya Benjamin, pensiunan profesor statistika yang menjadi guru Statorial yang berdedikasi. Dengan pengalaman dan keahlian yang luas di bidang statistika, saya ingin berbagi ilmu untuk memberdayakan mahasiswa melalui Statorials. Baca selengkapnya\",\"sameAs\":[\"http:\/\/statorials.org\/id\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"VBA: Hapus lembar jika nama berisi teks tertentu \u2013 Statorial","description":"Tutorial ini menjelaskan cara menghapus sheet di Excel jika berisi teks tertentu, beserta sebuah contoh.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/","og_locale":"id_ID","og_type":"article","og_title":"VBA: Hapus lembar jika nama berisi teks tertentu \u2013 Statorial","og_description":"Tutorial ini menjelaskan cara menghapus sheet di Excel jika berisi teks tertentu, beserta sebuah contoh.","og_url":"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/","og_site_name":"Statorials","article_published_time":"2023-07-11T07:11:28+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/ds1.jpg"}],"author":"Benjamin anderson","twitter_card":"summary_large_image","twitter_misc":{"Ditulis oleh":"Benjamin anderson","Estimasi waktu membaca":"2 menit"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/","url":"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/","name":"VBA: Hapus lembar jika nama berisi teks tertentu \u2013 Statorial","isPartOf":{"@id":"https:\/\/statorials.org\/id\/#website"},"datePublished":"2023-07-11T07:11:28+00:00","dateModified":"2023-07-11T07:11:28+00:00","author":{"@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81"},"description":"Tutorial ini menjelaskan cara menghapus sheet di Excel jika berisi teks tertentu, beserta sebuah contoh.","breadcrumb":{"@id":"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/#breadcrumb"},"inLanguage":"id","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/id\/vba-hapus-lembar-jika-ada-namanya\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/statorials.org\/id\/"},{"@type":"ListItem","position":2,"name":"Vba: hapus lembar jika nama berisi teks tertentu"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/id\/#website","url":"https:\/\/statorials.org\/id\/","name":"Statorials","description":"Panduan anda untuk kompetensi statistik!","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/id\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"id"},{"@type":"Person","@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81","name":"Benjamin anderson","image":{"@type":"ImageObject","inLanguage":"id","@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/image\/","url":"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","contentUrl":"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","caption":"Benjamin anderson"},"description":"Halo, saya Benjamin, pensiunan profesor statistika yang menjadi guru Statorial yang berdedikasi. Dengan pengalaman dan keahlian yang luas di bidang statistika, saya ingin berbagi ilmu untuk memberdayakan mahasiswa melalui Statorials. Baca selengkapnya","sameAs":["http:\/\/statorials.org\/id"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4415"}],"collection":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/comments?post=4415"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4415\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/media?parent=4415"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/categories?post=4415"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/tags?post=4415"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}