{"id":2134,"date":"2023-09-30T03:39:02","date_gmt":"2023-09-30T03:39:02","guid":{"rendered":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/"},"modified":"2023-12-06T06:19:16","modified_gmt":"2023-12-06T06:19:16","slug":"masukkan-kolom","status":"publish","type":"page","link":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/","title":{"rendered":"Bagaimana cara menyisipkan kolom menggunakan vba?"},"content":{"rendered":"<div class=\"excel-before-content\" id=\"excel-2094936386\"><script type=\"text\/javascript\">\r\n\tatOptions = {\r\n\t\t'key' : 'c1158f160081d6540a8409e6925dab94',\r\n\t\t'format' : 'iframe',\r\n\t\t'height' : 250,\r\n\t\t'width' : 300,\r\n\t\t'params' : {}\r\n\t};\r\n<\/script>\r\n<script type=\"text\/javascript\" src=\"\/\/www.highperformanceformat.com\/c1158f160081d6540a8409e6925dab94\/invoke.js\"><\/script><\/div> <p>Pada tutorial ini kita akan melihat cara menyisipkan kolom menggunakan kode VBA di Excel. Kami juga akan mengeksplorasi berbagai cara untuk menulis makro untuk ini.<\/p><h2 class=\"wp-block-heading\"> <strong>Sisipkan satu kolom menggunakan VBA<\/strong><\/h2><p> Untuk menyisipkan kolom menggunakan kode VBA, Anda perlu menggunakan properti \u201cKeseluruhan Kolom\u201d dengan metode \u201cSisipkan\u201d. Dengan properti kolom keseluruhan, Anda bisa mereferensikan seluruh kolom menggunakan sel lalu menyisipkan kolom baru. Secara default, ini akan menyisipkan kolom sebelum sel yang Anda sebutkan. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter size-large is-resized\"><img loading=\"lazy\" decoding=\"async\" class=\"wp-image-54138\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\" sizes=\"auto, \" srcset=\"\" alt=\"masukkan satu kolom menggunakan vba\" width=\"580\" height=\"279\"><\/figure><\/div><ol type=\"1\"><li> Pertama, tentukan sel menggunakan objek rentang.<\/li><li> Sekarang masukkan titik (.) untuk mendapatkan daftar properti dan metode.<\/li><li> Setelah itu, pilih properti \u201cKeseluruhan Kolom\u201d atau ketik.<\/li><li> Terakhir, masukkan titik (.) lagi dan pilih metode \u201cSisipkan\u201d atau ketik.<\/li><\/ol><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Range(\"A1\").EntireColumn.Insert<\/code><\/pre><p> Kode Anda siap di sini untuk menyisipkan kolom. Sekarang ketika Anda menjalankan kode ini, kolom baru langsung dimasukkan sebelum kolom A.<\/p><h2 class=\"wp-block-heading\"> <strong>Sisipkan beberapa kolom<\/strong><\/h2><p> Ada dua cara untuk memasukkan banyak kolom ke dalam spreadsheet yang saya temukan. Yang pertama adalah metode penyisipan yang sama yang kita gunakan pada contoh di atas. Dengan ini, Anda perlu menentukan rentang kolom yang jumlahnya sama dengan nomor kolom yang ingin Anda sisipkan.<\/p><p> Sekarang misalkan Anda ingin menyisipkan 5 kolom setelah kolom C seandainya Anda bisa menggunakan kode seperti ini. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter size-large is-resized\"><img loading=\"lazy\" decoding=\"async\" class=\"wp-image-54139\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/2-inserer-plusieurs-colonnes.png\" sizes=\"auto, \" srcset=\"\" alt=\"masukkan beberapa kolom\" width=\"739\" height=\"301\"><\/figure><\/div><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Range(\"C:G\").EntireColumn.Insert<\/code><\/pre><p> Sejujurnya, menurut saya metode ini tidak terlalu berguna karena Anda harus mengubah rentangnya jika ingin mengubah kodenya sendiri. Nah, inilah cara kedua.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'variables to use in the code Dim iCol As Long Dim iCount As Long Dim i As Long 'to get the number of columns that you want to insert with an input box iCount = InputBox(Prompt:=\"How many column you want to add?\") 'to get the column number where you want to insert the new column iCol = InputBox _ (Prompt:= _ \"After which column you want to add new column? (Enter the column number)\") 'loop to insert new column(s) For i = 1 To iCount Columns(iCol).EntireColumn.Insert Next i<\/code><\/pre><p> Saat Anda menjalankan kode ini, kode ini meminta Anda memasukkan jumlah kolom yang ingin Anda tambahkan dan kemudian nomor kolom tempat Anda ingin menambahkan semua kolom baru ini. Ini menggunakan <a href=\"https:\/\/exceladvisor.org\/id\/untuk-lingkaran\/\">loop FOR (For Next)<\/a> untuk memasukkan jumlah kolom yang Anda sebutkan.<\/p><h2 class=\"wp-block-heading\"> <strong>Sisipkan kolom berdasarkan nilai sel<\/strong><\/h2><p> Jika Anda ingin menyisipkan kolom berdasarkan nilai sel, Anda dapat menggunakan kode berikut.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Dim iCol As Long Dim iCount As Long Dim i As Long iCount = Range(\"A1\").Value iCol = Range(\"B1\").Value For i = 1 To iCount Columns(iCol).EntireColumn.Insert Next i<\/code><\/pre><p> Saat Anda menjalankan makro ini, dibutuhkan jumlah kolom dari sel A1 dan kolom yang ingin Anda tambahi kolom dari sel B1.<\/p><h2 class=\"wp-block-heading\"> <strong>Sisipkan kolom tanpa memformat<\/strong><\/h2><p> Saat Anda menyisipkan kolom yang kolom di atasnya memiliki format tertentu, maka kolom tersebut juga akan memiliki format tersebut secara otomatis. Dan cara termudah untuk menangani situasi ini adalah dengan menggunakan format yang jelas. Perhatikan kode berikut.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Columns(7).EntireColumn.Insert Columns(7).ClearFormats<\/code><\/pre><p> Saat Anda menjalankan kode di atas, ia akan menyisipkan kolom baru sebelum kolom <sup>ke-7<\/sup> . Sekarang yang terjadi adalah ketika Anda menyisipkan kolom sebelum kolom <sup>ke-7<\/sup> , kolom baru ini menjadi kolom <sup>ke-7<\/sup> , lalu baris kode kedua menghapus formatnya.<\/p><h2 class=\"wp-block-heading\"> <strong>Sisipkan kolom yang disalin<\/strong><\/h2><p> Anda juga dapat menggunakan metode yang sama untuk menyalin kolom dan menyisipkannya di tempat lain. Lihat kode berikut.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Application.CutCopyMode = False With Worksheets(\"Data\") .Columns(5).Copy .Columns(9).Insert Shift:=xlShiftDown End With Application.CutCopyMode = True<\/code><\/pre><div class=\"gb-container gb-container-4db6181c gb-container-mt\"> <a class=\"gb-button gb-button-c5897111 gb-button-text gb-button-mt-button\" href=\"https:\/\/exceladvisor.org\/id\/vba\/\">Apa itu VBA<\/a><h2 class=\"gb-headline gb-headline-665e5f6b gb-headline-text gb-headline-mt-heading\"> Tutorial terkait <\/h2><div class=\"gb-grid-wrapper gb-grid-wrapper-a20baf7c gb-grid-wrapper-mt-grid\"><div class=\"gb-grid-column gb-grid-column-65ddf67e\"><div class=\"gb-container gb-container-65ddf67e\"><ul><li> <a href=\"https:\/\/exceladvisor.org\/id\/jumlah-baris\/\">Hitung baris menggunakan VBA di Excel<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/id\/huruf-karakter\/\">Font Excel VBA (warna, ukuran, jenis dan tebal)<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/id\/sembunyikan-tampilkan-baris-kolom\/\">Excel VBA Sembunyikan dan tampilkan kolom atau baris<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/id\/rentang-1\/\">Rentang VBA Excel \u2013 Bekerja dengan Rentang dan Sel<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/id\/perbatasan\/\">Terapkan batas ke sel menggunakan VBA di Excel<\/a> <\/li><\/ul><\/div><\/div><div class=\"gb-grid-column gb-grid-column-50067b57\"><div class=\"gb-container gb-container-50067b57\"><\/div><\/div><\/div><\/div>","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"open","ping_status":"closed","template":"","meta":{"ub_ctt_via":"","footnotes":""},"class_list":["post-2134","page","type-page","status-publish","hentry"],"featured_image_src":null,"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v25.4 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>\u25b7 Bagaimana cara menyisipkan kolom menggunakan VBA di Excel?<\/title>\n<meta name=\"description\" content=\"Untuk menyisipkan kolom menggunakan kode VBA, Anda perlu menggunakan properti \u201cKeseluruhan Kolom\u201d dengan metode \u201cSisipkan\u201d.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/\" \/>\n<meta property=\"og:locale\" content=\"id_ID\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u25b7 Bagaimana cara menyisipkan kolom menggunakan VBA di Excel?\" \/>\n<meta property=\"og:description\" content=\"Untuk menyisipkan kolom menggunakan kode VBA, Anda perlu menggunakan properti \u201cKeseluruhan Kolom\u201d dengan metode \u201cSisipkan\u201d.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/\" \/>\n<meta property=\"og:site_name\" content=\"Excel Advisor\" \/>\n<meta property=\"article:modified_time\" content=\"2023-12-06T06:19:16+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Estimasi waktu membaca\" \/>\n\t<meta name=\"twitter:data1\" content=\"3 menit\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/\",\"url\":\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/\",\"name\":\"\u25b7 Bagaimana cara menyisipkan kolom menggunakan VBA di Excel?\",\"isPartOf\":{\"@id\":\"https:\/\/exceladvisor.org\/id\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#primaryimage\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#primaryimage\"},\"thumbnailUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\",\"datePublished\":\"2023-09-30T03:39:02+00:00\",\"dateModified\":\"2023-12-06T06:19:16+00:00\",\"description\":\"Untuk menyisipkan kolom menggunakan kode VBA, Anda perlu menggunakan properti \u201cKeseluruhan Kolom\u201d dengan metode \u201cSisipkan\u201d.\",\"breadcrumb\":{\"@id\":\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#breadcrumb\"},\"inLanguage\":\"id\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"id\",\"@id\":\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#primaryimage\",\"url\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\",\"contentUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Rumah\",\"item\":\"https:\/\/exceladvisor.org\/id\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Bagaimana cara menyisipkan kolom menggunakan vba?\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/exceladvisor.org\/id\/#website\",\"url\":\"https:\/\/exceladvisor.org\/id\/\",\"name\":\"Excel Advisor\",\"description\":\"Panduan utama Anda untuk mendominasi data!\",\"publisher\":{\"@id\":\"https:\/\/exceladvisor.org\/id\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/exceladvisor.org\/id\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"id\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/exceladvisor.org\/id\/#organization\",\"name\":\"Excel Advisor\",\"url\":\"https:\/\/exceladvisor.org\/id\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"id\",\"@id\":\"https:\/\/exceladvisor.org\/id\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/exceladvisor.org\/id\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png\",\"contentUrl\":\"https:\/\/exceladvisor.org\/id\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png\",\"width\":105,\"height\":36,\"caption\":\"Excel Advisor\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/id\/#\/schema\/logo\/image\/\"}}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"\u25b7 Bagaimana cara menyisipkan kolom menggunakan VBA di Excel?","description":"Untuk menyisipkan kolom menggunakan kode VBA, Anda perlu menggunakan properti \u201cKeseluruhan Kolom\u201d dengan metode \u201cSisipkan\u201d.","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:\/\/exceladvisor.org\/id\/masukkan-kolom\/","og_locale":"id_ID","og_type":"article","og_title":"\u25b7 Bagaimana cara menyisipkan kolom menggunakan VBA di Excel?","og_description":"Untuk menyisipkan kolom menggunakan kode VBA, Anda perlu menggunakan properti \u201cKeseluruhan Kolom\u201d dengan metode \u201cSisipkan\u201d.","og_url":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/","og_site_name":"Excel Advisor","article_modified_time":"2023-12-06T06:19:16+00:00","og_image":[{"url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png","type":"","width":"","height":""}],"twitter_card":"summary_large_image","twitter_misc":{"Estimasi waktu membaca":"3 menit"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/","url":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/","name":"\u25b7 Bagaimana cara menyisipkan kolom menggunakan VBA di Excel?","isPartOf":{"@id":"https:\/\/exceladvisor.org\/id\/#website"},"primaryImageOfPage":{"@id":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#primaryimage"},"image":{"@id":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#primaryimage"},"thumbnailUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png","datePublished":"2023-09-30T03:39:02+00:00","dateModified":"2023-12-06T06:19:16+00:00","description":"Untuk menyisipkan kolom menggunakan kode VBA, Anda perlu menggunakan properti \u201cKeseluruhan Kolom\u201d dengan metode \u201cSisipkan\u201d.","breadcrumb":{"@id":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#breadcrumb"},"inLanguage":"id","potentialAction":[{"@type":"ReadAction","target":["https:\/\/exceladvisor.org\/id\/masukkan-kolom\/"]}]},{"@type":"ImageObject","inLanguage":"id","@id":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#primaryimage","url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png","contentUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png"},{"@type":"BreadcrumbList","@id":"https:\/\/exceladvisor.org\/id\/masukkan-kolom\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Rumah","item":"https:\/\/exceladvisor.org\/id\/"},{"@type":"ListItem","position":2,"name":"Bagaimana cara menyisipkan kolom menggunakan vba?"}]},{"@type":"WebSite","@id":"https:\/\/exceladvisor.org\/id\/#website","url":"https:\/\/exceladvisor.org\/id\/","name":"Excel Advisor","description":"Panduan utama Anda untuk mendominasi data!","publisher":{"@id":"https:\/\/exceladvisor.org\/id\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/exceladvisor.org\/id\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"id"},{"@type":"Organization","@id":"https:\/\/exceladvisor.org\/id\/#organization","name":"Excel Advisor","url":"https:\/\/exceladvisor.org\/id\/","logo":{"@type":"ImageObject","inLanguage":"id","@id":"https:\/\/exceladvisor.org\/id\/#\/schema\/logo\/image\/","url":"https:\/\/exceladvisor.org\/id\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png","contentUrl":"https:\/\/exceladvisor.org\/id\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png","width":105,"height":36,"caption":"Excel Advisor"},"image":{"@id":"https:\/\/exceladvisor.org\/id\/#\/schema\/logo\/image\/"}}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/exceladvisor.org\/id\/wp-json\/wp\/v2\/pages\/2134","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/exceladvisor.org\/id\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/exceladvisor.org\/id\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/exceladvisor.org\/id\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/exceladvisor.org\/id\/wp-json\/wp\/v2\/comments?post=2134"}],"version-history":[{"count":1,"href":"https:\/\/exceladvisor.org\/id\/wp-json\/wp\/v2\/pages\/2134\/revisions"}],"predecessor-version":[{"id":2831,"href":"https:\/\/exceladvisor.org\/id\/wp-json\/wp\/v2\/pages\/2134\/revisions\/2831"}],"wp:attachment":[{"href":"https:\/\/exceladvisor.org\/id\/wp-json\/wp\/v2\/media?parent=2134"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}