{"id":4477,"date":"2023-07-10T19:14:02","date_gmt":"2023-07-10T19:14:02","guid":{"rendered":"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/"},"modified":"2023-07-10T19:14:02","modified_gmt":"2023-07-10T19:14:02","slug":"diagram-lingkaran-vba","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/","title":{"rendered":"Cara membuat diagram lingkaran di vba (dengan contoh)"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">Anda dapat menggunakan sintaks dasar berikut untuk membuat diagram lingkaran di Excel menggunakan VBA:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">SubCreatePieChart<\/span> ()\n\n    <span style=\"color: #0000ff;\">Dim<\/span> MyChart <span style=\"color: #0000ff;\">As<\/span> ChartObject\n    \n    ' <span style=\"color: #008000;\">get input range from user<\/span>\n    Set Rng = Application.InputBox(Prompt:=\" <span style=\"color: #ff0000;\">Select chart input range<\/span> \", Type:=8)\n    \n    <span style=\"color: #008000;\">'create pie chart<\/span>\n    <span style=\"color: #0000ff;\">Set<\/span> MyChart = Worksheets(\" <span style=\"color: #ff0000;\">Sheet1<\/span> \").ChartObjects.Add(Left:=ActiveCell.Left, _\n    Width:=400, Top:=ActiveCell.Top, Height:=300)\n    \n    MyChart.Chart.SetSourceDataSource:=Rng\n    MyChart.Chart.ChartType = xlPie\n\n<span style=\"color: #0000ff;\">End Sub\n<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Makro khusus ini akan menanyakan rentang masukan kepada pengguna dan kemudian secara otomatis membuat diagram lingkaran menggunakan rentang masukan dan memasukkannya ke dalam lembar bernama <strong>Sheet1<\/strong> dengan sudut kiri atas bagan terletak di sel yang sedang aktif.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Contoh berikut menunjukkan cara menggunakan makro ini dalam praktiknya.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Contoh: Cara Membuat Diagram Lingkaran di VBA<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Misalkan kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang poin yang dicetak oleh berbagai pemain bola basket:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-34559 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vbar1.jpg\" alt=\"\" width=\"505\" height=\"391\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Katakanlah kita ingin menggunakan VBA untuk menghasilkan diagram lingkaran menggunakan kumpulan data ini.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Kita dapat membuat makro berikut untuk melakukan ini:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">SubCreatePieChart<\/span> ()\n\n    <span style=\"color: #0000ff;\">Dim<\/span> MyChart <span style=\"color: #0000ff;\">As<\/span> ChartObject\n    \n    ' <span style=\"color: #008000;\">get input range from user<\/span>\n    Set Rng = Application.InputBox(Prompt:=\" <span style=\"color: #ff0000;\">Select chart input range<\/span> \", Type:=8)\n    \n    <span style=\"color: #008000;\">'create pie chart<\/span>\n    <span style=\"color: #0000ff;\">Set<\/span> MyChart = Worksheets(\" <span style=\"color: #ff0000;\">Sheet1<\/span> \").ChartObjects.Add(Left:=ActiveCell.Left, _\n    Width:=400, Top:=ActiveCell.Top, Height:=300)\n    \n    MyChart.Chart.SetSourceDataSource:=Rng\n    MyChart.Chart.ChartType = xlPie\n\n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Untuk menjalankan makro ini, kita dapat mengklik tab <strong>Pengembang<\/strong> di sepanjang pita atas di Excel lalu klik <strong>Makro<\/strong> .<\/span><\/p>\n<p> <span style=\"color: #000000;\">Kita kemudian dapat mengklik yang berlabel <strong>CreatePieChart<\/strong> lalu klik <strong>Run<\/strong> :<\/span><\/p>\n<p> <span style=\"color: #000000;\">Setelah kita mengklik <strong>Run<\/strong> , kita akan diminta memasukkan rentang input untuk diagram batang kita:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-34561 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vbar3.jpg\" alt=\"\" width=\"550\" height=\"425\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Kita ketik <strong>A1:B7<\/strong> , lalu tekan <strong>OK<\/strong> .<\/span><\/p>\n<p> <span style=\"color: #000000;\">Diagram lingkaran berikut secara otomatis akan dibuat dan ditampilkan dengan sudut kiri atas diagram terletak di sel yang sedang aktif, yaitu sel <strong>D2<\/strong> :<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-35035 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/pievba2.png\" alt=\"\" width=\"498\" height=\"386\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\"><strong>Catatan<\/strong> : Anda dapat mengubah nilai argumen <strong>Lebar<\/strong> dan <strong>Tinggi<\/strong> di fungsi <strong>ChartObjects.Add()<\/strong> untuk menyesuaikan lebar dan tinggi diagram lingkaran.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Sumber daya tambahan<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:<\/span><\/p>\n<p> <a href=\"https:\/\/statorials.org\/id\/diagram-batang-vba\/\" target=\"_blank\" rel=\"noopener\">Cara Membuat Diagram Batang di VBA<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/ikhtisar-vba\/\" target=\"_blank\" rel=\"noopener\">Cara membulatkan nilai di VBA<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/vba-dibulatkan-ke-bawah\/\" target=\"_blank\" rel=\"noopener\">Cara membulatkan nilai di VBA<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Anda dapat menggunakan sintaks dasar berikut untuk membuat diagram lingkaran di Excel menggunakan VBA: SubCreatePieChart () Dim MyChart As ChartObject &#8216; get input range from user Set Rng = Application.InputBox(Prompt:=&#8221; Select chart input range &#8220;, Type:=8) &#8216;create pie chart Set MyChart = Worksheets(&#8221; Sheet1 &#8220;).ChartObjects.Add(Left:=ActiveCell.Left, _ Width:=400, Top:=ActiveCell.Top, Height:=300) MyChart.Chart.SetSourceDataSource:=Rng MyChart.Chart.ChartType = xlPie End Sub [&hellip;]<\/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":"<!-- This site is optimized with the Yoast SEO plugin v21.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>Cara Membuat Diagram Lingkaran di VBA (dengan Contoh) - Statorial<\/title>\n<meta name=\"description\" content=\"Tutorial ini menjelaskan cara membuat diagram lingkaran di Excel menggunakan VBA, beserta contohnya.\" \/>\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\/diagram-lingkaran-vba\/\" \/>\n<meta property=\"og:locale\" content=\"id_ID\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Cara Membuat Diagram Lingkaran di VBA (dengan Contoh) - Statorial\" \/>\n<meta property=\"og:description\" content=\"Tutorial ini menjelaskan cara membuat diagram lingkaran di Excel menggunakan VBA, beserta contohnya.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-10T19:14:02+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vbar1.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\/diagram-lingkaran-vba\/\",\"url\":\"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/\",\"name\":\"Cara Membuat Diagram Lingkaran di VBA (dengan Contoh) - Statorial\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/id\/#website\"},\"datePublished\":\"2023-07-10T19:14:02+00:00\",\"dateModified\":\"2023-07-10T19:14:02+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\"},\"description\":\"Tutorial ini menjelaskan cara membuat diagram lingkaran di Excel menggunakan VBA, beserta contohnya.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/#breadcrumb\"},\"inLanguage\":\"id\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/statorials.org\/id\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Cara membuat diagram lingkaran di vba (dengan contoh)\"}]},{\"@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":"Cara Membuat Diagram Lingkaran di VBA (dengan Contoh) - Statorial","description":"Tutorial ini menjelaskan cara membuat diagram lingkaran di Excel menggunakan VBA, beserta contohnya.","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\/diagram-lingkaran-vba\/","og_locale":"id_ID","og_type":"article","og_title":"Cara Membuat Diagram Lingkaran di VBA (dengan Contoh) - Statorial","og_description":"Tutorial ini menjelaskan cara membuat diagram lingkaran di Excel menggunakan VBA, beserta contohnya.","og_url":"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/","og_site_name":"Statorials","article_published_time":"2023-07-10T19:14:02+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vbar1.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\/diagram-lingkaran-vba\/","url":"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/","name":"Cara Membuat Diagram Lingkaran di VBA (dengan Contoh) - Statorial","isPartOf":{"@id":"https:\/\/statorials.org\/id\/#website"},"datePublished":"2023-07-10T19:14:02+00:00","dateModified":"2023-07-10T19:14:02+00:00","author":{"@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81"},"description":"Tutorial ini menjelaskan cara membuat diagram lingkaran di Excel menggunakan VBA, beserta contohnya.","breadcrumb":{"@id":"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/#breadcrumb"},"inLanguage":"id","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/id\/diagram-lingkaran-vba\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/statorials.org\/id\/"},{"@type":"ListItem","position":2,"name":"Cara membuat diagram lingkaran di vba (dengan contoh)"}]},{"@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\/4477"}],"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=4477"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4477\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/media?parent=4477"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/categories?post=4477"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/tags?post=4477"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}