{"id":747,"date":"2021-03-04T19:56:35","date_gmt":"2021-03-04T11:56:35","guid":{"rendered":"https:\/\/indonesiangems.com\/blog\/?p=747"},"modified":"2021-03-16T18:07:44","modified_gmt":"2021-03-16T10:07:44","slug":"membuat-macro-excel-userform","status":"publish","type":"post","link":"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/","title":{"rendered":"Macro untuk Excel UserForm input pembayaran"},"content":{"rendered":"<p class=\"last-updated\">Last updated on March 16th, 2021 at 06:07 pm<\/p>\n<!--more-->\n\n\n\n<p>Setelah pak Adi <a href=\"https:\/\/indonesiangems.com\/blog\/excel-userform-melalui-visual-basic-editor\/\">mendesign Excel UserForm melalui Visual Basic Editor<\/a>, selanjutnya pak Adi membuat kode kode macro Excel untuk UserForm-nya yang diterapkan pada masing masing kontrol.<\/p>\n\n\n\n<p>Sebelum melakukan Copy-Paste, pastikan <a href=\"https:\/\/en.wikipedia.org\/wiki\/Visual_Basic_for_Applications\" target=\"_blank\" rel=\"noreferrer noopener\">Visual Basic of Applications <\/a>editor-nya ada di UserForm dengan cara : pada window Project &#8211; VBAProject, klik(kanan) modul frmBayar, lalu klik(kiri) ViewCode. Seperti yang terlihat pada gambar-1 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-01_macro-for-userform.png\"><img loading=\"lazy\" decoding=\"async\" width=\"774\" height=\"554\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-01_macro-for-userform.png\" alt=\"kode macro excel userform di visual basic editor\" class=\"wp-image-1354\"\/><\/a><figcaption><em>gambar-1<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Baru copy kode macro dibawah ini, lalu paste di bagian kanan VB Editor-nya sehingga hasilnya seperti terlihat pada gambar-1 diatas.<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Dim rgNama\n\nPrivate Sub UserForm_Initialize()\nApplication.EnableEvents = False\nListNota.MultiSelect = 2\nListNota.Font.Size = 9\nListBlnThn.ColumnWidths = 75\n\nWith Sheets(\"PDHD\").PivotTables(\"ptPDHD\")\n.PivotCache.Refresh\n.PivotFields(\"BlnThn\").ClearAllFilters\n.PivotFields(\"NAMA\").ClearAllFilters\n.PivotFields(\"NAMA\").DrillTo \"NAMA\"\nEnd With\n\nCall PD_Click\n\nIf CDbl(Range(\"C4\").Value) &lt; CDbl(Date) Then\n    Range(\"C4\").Value = Format(Date, \"dd mmm yy\")\n    Range(\"E7:F1000\").ClearContents\nEnd If\n\nApplication.EnableEvents = True\nEnd Sub\n\nPrivate Sub PD_Click()\nApplication.EnableEvents = False\nCARI.Value = \"\": CARI.SetFocus\nListBlnThn.Clear: ListNota.Clear\nLblSum = 0\nPD.BackColor = &amp;HC0C0FF 'aktif\nHD.BackColor = &amp;H8000000F&amp; '&amp;H8000000F\nWith Sheets(\"PDHD\").PivotTables(\"ptPDHD\")\n.PivotFields(\"POS\").DataRange.Value = \"PD\"\nSet rgNama = .PivotFields(\"NAMA\").DataRange\nEnd With\nCall PopListNama\nApplication.EnableEvents = True\nEnd Sub\n\nPrivate Sub HD_Click()\nApplication.EnableEvents = False\nCARI.Value = \"\": CARI.SetFocus\nListBlnThn.Clear: ListNota.Clear\nLblSum = 0\nHD.BackColor = &amp;HC0C0FF '&amp;H8000000F 'aktif\nPD.BackColor = &amp;H8000000F&amp;\nWith Sheets(\"PDHD\").PivotTables(\"ptPDHD\")\n.PivotFields(\"POS\").DataRange.Value = \"HD\"\nSet rgNama = .PivotFields(\"NAMA\").DataRange\nEnd With\nCall PopListNama\nApplication.EnableEvents = True\nEnd Sub\n\nPrivate Sub RESET_Click()\nRange(\"B7:F1000\").ClearContents\nCall PD_Click\nEnd Sub\n\nPrivate Sub CARI_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)\nApplication.EnableEvents = False\nCARI.Value = \"\"\nApplication.EnableEvents = True\nEnd Sub\n\nPrivate Sub CARI_Change()\n    Dim MyList As Variant, i As Long\n    MyList = Application.Transpose(rgNama)\n    With ListNama\n        If CARI.Value = \"\" Then\n            .List = MyList\n        Else\n            .Clear\n            For i = LBound(MyList, 1) To UBound(MyList, 1)\n                If LCase(MyList(i)) Like \"*\" &amp; LCase(CARI.Value) &amp; \"*\" Then .AddItem MyList(i)\n            Next i\n        End If\n    End With\nIf ListNama.ListCount = 1 Then ListNama.Selected(0) = True\nEnd Sub\n\nPrivate Sub ListNama_Click()\nApplication.EnableEvents = False\nApplication.ScreenUpdating = False\nWith Sheets(\"TABEL\").PivotTables(\"ptBayar\")\n.PivotFields(\"BlnThn\").ClearAllFilters\n.PivotFields(\"NAMA\").DataRange.Value = Me.ListNama.Value\nEnd With\nMe.Caption = ListNama\nCall PopListNota\nCall PopListBlnThn\nApplication.ScreenUpdating = True\nApplication.EnableEvents = True\nEnd Sub\n\nPrivate Sub ListBlnThn_Click()\nWith Sheets(\"TABEL\").PivotTables(\"ptBayar\").PivotFields(\"BlnThn\")\n    .ClearAllFilters\n    If ListBlnThn.Value &lt;&gt; \"ALL\" Then\n    .PivotFilters.Add Type _\n        :=xlSpecificDate, Value1:=ListBlnThn.Value\n    End If\nEnd With\nCall PopListNota\nEnd Sub\n\nPrivate Sub ListNota_Change()\nDim i As Long, dblSum As Double, dblTotal As Double, cek As Boolean\n    \n    'set boolean check to false\n    cek = False\n    dblTotal = 0\n    dblSum = 0\n    dblCount = 0\n    \n    'iterate through listbox total items\n    '(listbox index starts at 0 and goes up)\n    For i = 0 To Me.ListNota.ListCount - 1\n    \n        'Add each item together and get a total\n        dblTotal = dblTotal + Me.ListNota.List(i, 1)\n        \n        'Check if the item is selected or not\n        If Me.ListNota.Selected(i) Then\n        \n            'set our boolean\/check to true\n            cek = True\n            \n            'Add only selected items together\n            dblSum = dblSum + Me.ListNota.List(i, 1)\n            dblCount = dblCount + 1\n        End If\n        \n    Next i\n    \n    'Check our boolean value\n    If cek = False Then\n        \n        'Change caption to the selected sum values\n        Me.LblSum.Caption = Format(dblTotal, \"#,##0\")\n        \n    Else\n    \n        'Change caption to all of the added values (if no items selected)\n        Me.LblSum.Caption = Format(dblSum, \"#,##0\")\n        \n    End If\nEnd Sub\n\nPrivate Sub PindahNotaSemua_Click()\nIf ListNota.ListCount = 0 Then Exit Sub\ncntListNota = ListNota.ListCount\n\nIf Application.CountA(Range(\"B:B\")) + ListNota.ListCount &gt; 80 Then _\n    MsgBox \"Jumlah nota untuk di input udah mencapai limit\": Exit Sub\nSet c = Range(\"B100000\").End(xlUp).Offset(1, 0)\nc.Resize(ListNota.ListCount, ListNota.ColumnCount).Value = ListNota.List\nSet c = Range(\"E200\").End(xlUp).Offset(1, 0)\nc.Value = ListNama.Value\nc.Offset(0, 1).Value = Format(-LblSum, \"#,##0\")\nEnd Sub\n\nPrivate Sub PindahNotaPilih_Click()\nIf ListNota.ListCount = 0 Then Exit Sub\nIf Application.CountA(Range(\"B:B\")) &gt; 50 Then _\n    MsgBox \"Jumlah nota untuk di input udah mencapai limit\": Exit Sub\nSet c = Range(\"B100000\").End(xlUp).Offset(1, 0)\n        For i = 0 To ListNota.ListCount - 1\n            If ListNota.Selected(i) Then\n                c.Value = ListNota.List(i)\n                c.Offset(0, 1).Value = ListNota.List(i, 1)\n                Set c = c.Offset(1, 0)\n            End If\n        Next i\nSet c = Range(\"E200\").End(xlUp).Offset(1, 0)\nc.Value = ListNama.Value\nc.Offset(0, 1).Value = Format(-LblSum, \"#,##0\")\nEnd Sub\n\nPrivate Sub PindahNotaAbai_Click()\nIf ListNota.ListCount = 0 Then Exit Sub\nIf Application.CountA(Range(\"B:B\")) &gt; 50 Then _\n    MsgBox \"Jumlah nota untuk di input udah mencapai limit\": Exit Sub\nNilaiBayar = Application.InputBox(\"Masukkan total nilai pembayaran-nya\", Type:=1)\n\nApplication.EnableEvents = False\n\nrngNilai = ListNota.List\nhitung = 0\n\njmlnota = UBound(rngNilai)\nFor i = 0 To UBound(rngNilai)\nX = rngNilai(i, 1)\nIf X &lt; 0 Then nilai = -X Else nilai = X\nhitung = hitung + nilai\nIf hitung &gt; NilaiBayar Then\nselisih = hitung - NilaiBayar\n    If X &lt; 0 Then\n    X = X + selisih\n    Else\n    X = X - selisih\n    End If\nSet c = Range(\"B200\").End(xlUp).Offset(1, 0)\nc.Value = rngNilai(i, 0)\nc.Offset(0, 1).Value = X\nSet c = Range(\"E200\").End(xlUp).Offset(1, 0)\nc.Value = ListNama.Value\nc.Offset(0, 1).Value = Format(NilaiBayar, \"#,##0\")\nExit Sub\nElse\nSet c = Range(\"B200\").End(xlUp).Offset(1, 0)\nc.Value = rngNilai(i, 0)\nc.Offset(0, 1).Value = X\nEnd If\nNext\nApplication.EnableEvents = True\nEnd Sub\n\nSub PopListNama()\n    With ListNama\n        .Clear\n        If rgNama.Rows.Count &gt; 1 Then\n        .List = Application.Transpose(rgNama)\n        Else\n        .AddItem Sheets(\"PDHD\").Range(\"A6\").Value\n        End If\n    End With\nEnd Sub\n\nSub PopListBlnThn()\nListBlnThn.Clear\nWith Sheets(\"TABEL\").PivotTables(\"ptBayar\")\n.PivotFields(\"BlnThn\").ClearAllFilters\nSet rg = .PivotFields(\"BlnThn\").DataRange\nEnd With\n\nWith Me.ListBlnThn\nIf Application.CountA(rg) = 1 Then _\n    .AddItem Format(rg(1, 1).Value, \"mmmm yy\"): Exit Sub\n.AddItem \"ALL\"\nFor Each cell In rg.SpecialCells(xlCellTypeConstants)\n.AddItem Format(cell.Value, \"mmmm yy\")\nNext\nEnd With\nEnd Sub\n\nSub PopListNota()\nListNota.Clear\nWith Sheets(\"TABEL\").PivotTables(\"ptBayar\")\nSet rg = .PivotFields(\"NOTA\").DataRange\nEnd With\n\nWith ListNota\n    .Clear\n    .ColumnHeads = False\n    .ColumnCount = 2\n    .Width = 150\n    .ColumnWidths = \"75,65\"\n\nFor Each cell In rg\n        .AddItem cell\n        .List(.ListCount - 1, 1) = Format(cell.Offset(, 1), \"#,##0\")\n\nNext cell\nEnd With\n\nCall ListNota_Change\nEnd Sub\n\nPrivate Sub InputKeData_Click()\nApplication.EnableEvents = False\nSet sby = Sheets(\"BAYAR\")\nSet sdt = Sheets(\"DATA\")\nIf sby.Range(\"c4\").Value = \"\" Or sby.Range(\"b7\").Value = \"\" Then Exit Sub\nSet rgNota = sby.Range(\"b7\", sby.Range(\"b6\").End(xlDown))\ncnt = rgNota.Rows.Count\nSet rgKopi = sby.Range(\"AA7\").Resize(cnt, 13)\nSet rgPaste = sdt.Range(\"B\" &amp; Rows.Count).End(xlUp).Offset(1, 0).Resize(cnt, 13)\nrgPaste.Value = rgKopi.Value\n\n'tandain nota yang lunas\nSet area = sdt.Range(\"C:C\")\nSet hitung = sdt.Range(\"J:J\")\n    For Each cell In rgNota\n        NOTA = cell.Value\n        jml = WorksheetFunction.SumIf(area, NOTA, hitung)\n        If Round(jml, 0) = 0 Then\n        With area\n        .Replace NOTA, True, xlWhole, , False, , False, False\n        .SpecialCells(xlConstants, xlLogical).Offset(, 11).Value = Format(Date, \"yymm\") &amp; \"LUNAS\"\n        .Replace True, NOTA, xlWhole, , False, , False, False\n        End With\n        End If\n    Next cell\n\nSheets(\"PDHD\").PivotTables(\"ptPDHD\").PivotCache.Refresh\n\n'tampilkan pesan bahwa transaksi bayar telah masuk data\nfrmBayar.Hide\nsdt.Select\nrgPaste.Select\nActiveWindow.ScrollRow = ActiveCell.Row\nMsgBox \"Transaksi pembayaran sudah masuk ke data\"\n\nsby.Select\nsby.Range(\"b7:c1000\").ClearContents\nsby.Range(\"b7\").Select\n\nnm = ListNama.Value\nCall PD_Click\nSet c = rgNama.Find(nm, lookat:=xlWhole)\nIf Not c Is Nothing Then ListNama.Value = nm\nfrmBayar.Show\nApplication.EnableEvents = True\nEnd Sub\n\nSub setUserFormControl()\nWith frmBayar\n.Frame1.Height = 150\n.Frame1.Width = 150\n.Frame1.Top = 12\n.Frame1.Left = 12\n.Frame2.Height = 222\n.Frame2.Width = 174\n.Frame2.Top = 12\n.Frame2.Left = 174\n.InputKeData.Height = 24\n.InputKeData.Width = 156\n.InputKeData.Top = 198\n.InputKeData.Left = 12\n.PindahNotaAbai.Height = 24\n.PindahNotaAbai.Width = 156\n.PindahNotaAbai.Top = 174\n.PindahNotaAbai.Left = 12\n\nWith .Frame1\n.PD.Height = 24\n.PD.Width = 30\n.PD.Top = 18\n.PD.Left = 12\n.HD.Height = 24\n.HD.Width = 30\n.HD.Top = 18\n.HD.Left = 42\n.CARI.Height = 16.2\n.CARI.Width = 64.25\n.CARI.Top = 48\n.CARI.Left = 72\n.ListNama.Height = 66.1\n.ListNama.Width = 124.2\n.ListNama.Top = 66.6\n.ListNama.Left = 12\n.RESET.Height = 24\n.RESET.Width = 66\n.RESET.Top = 18\n.RESET.Left = 72\nEnd With\n\nWith .Frame2\n.ListBlnThn.Height = 54.05\n.ListBlnThn.Width = 80\n.ListBlnThn.Top = 12\n.ListBlnThn.Left = 78\n.ListNota.Height = 89.4\n.ListNota.Width = 145.2\n.ListNota.Top = 72\n.ListNota.Left = 12\n.LblSum.Height = 24\n.LblSum.Width = 72\n.LblSum.Top = 24\n.LblSum.Left = 12\n\n.PindahNotaPilih.Height = 24\n.PindahNotaPilih.Width = 74\n.PindahNotaPilih.Top = 180\n.PindahNotaPilih.Left = 84\n\n.PindahNotaSemua.Height = 24\n.PindahNotaSemua.Width = 74\n.PindahNotaSemua.Top = 180\n.PindahNotaSemua.Left = 12\nEnd With\n\nEnd With\nEnd Sub\n<\/code><\/pre>\n\n\n\n<p>Selanjutnya, pada window Project &#8211; VBAProject, klik(kanan) modul Sheet6 (BAYAR), lalu klik(kiri) ViewCode. Akan tampil halaman kosong di bagian kanan-nya. Kopi kode macro dibawah ini, lalu paste di halaman kosong modul Sheet6 (BAYAR) tsb.<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Private Sub Worksheet_Activate()\nCall tmpBayar\nfrmBayar.Show vbModeless\nEnd Sub\n\nPrivate Sub Worksheet_Deactivate()\n For Each uf In VBA.UserForms\n If TypeOf uf Is UserForm Then Unload uf\n Next uf\nEnd Sub\n\nSub tmpBayar()\nApplication.EnableEvents = False\nWith Sheets(\"BAYAR\")\nSet rg = .Range(\"AA7:AA106\")\nrg.Offset(0, 0).Formula = \"=$C$4\"\nrg.Offset(0, 1).Formula = \"=B7\"\nrg.Offset(0, 2).Formula = \"=VLOOKUP(AB7,ListNotaNonLunas,2,FALSE)\"\nrg.Offset(0, 3).Value = \"KAS\"\nrg.Offset(0, 4).Formula = _\n\"=IF(LEFT(AB7,1)=\"\"P\"\",\"\"PD\"\",\"\"HD\"\")\"\nrg.Offset(0, 8).Formula = \"=-C7\"\nrg.Offset(0, 10).Formula = _\n\"=IF(AE7=\"\"PD\"\",\"\"DEBET\"\",\"\"KREDIT\"\")\"\nrg.Offset(0, 11).Formula = _\n\"=DATEVALUE(CONCATENATE(\"\"01-\"\",MID(AB7,6,2),\"\"-\"\",MID(AB7,4,2)))\"\nEnd With\nApplication.EnableEvents = True\nEnd Sub\n<\/code><\/pre>\n\n\n\n<p>Dan yang terakhir, di window Project &#8211; VBAProject, pak Adi memakai cara lain dalam membuka halaman untuk kode dari modul yang di inginkan, yakni cukup dengan double-click modul-nya. Dalam hal ini, pak Adi men double-click modul Sheet2 (DATA), akan tampil halaman kosong di bagian kanan-nya. Kopi kode macro dibawah ini, lalu paste pada halaman kosong modul Sheet2 (DATA) tsb.<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Private Sub Worksheet_Activate()\nWith Sheets(\"DATA\")\n.Range(\"B1:N1\").AutoFilter\nEnd With\nEnd Sub\n\nPrivate Sub Worksheet_Deactivate()\nWith Sheets(\"DATA\")\n.AutoFilterMode = False\nEnd With\nEnd Sub<\/code><\/pre>\n\n\n\n<p>Jadi ada dua cara untuk membuka halaman untuk menulis kode pada  modul yang di inginkan. Terserah pengguna ingin pakai cara yang mana.<\/p>\n\n\n\n<p>Untuk menampilkan UserForm yang baru dibuat, apabila halaman yang sedang aktif adalah halaman &#8220;BAYAR&#8221; namun tidak ada tampilan UserForm-nya, maka kita perlu meng-klik halaman lain, lalu kembali ke halaman &#8220;BAYAR&#8221;. Seperti animasi gambar-2 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-02_open-the-userform.gif\"><img loading=\"lazy\" decoding=\"async\" width=\"847\" height=\"621\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-02_open-the-userform.gif\" alt=\"menampilkan userform di halaman excel\" class=\"wp-image-1392\"\/><\/a><figcaption><em>gambar-2<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Selesai sudah pak Adi membuat kode kode macro untuk Excel UserForm input pembayaran-nya. Dan tuntas pula keseluruhan persiapan pak Adi dalam <a href=\"https:\/\/indonesiangems.com\/blog\/membuat-laporan-hutang-piutang-dan-stok-di-excel\/\" target=\"_blank\" rel=\"noreferrer noopener\">membuat laporan hutang piutang di Excel<\/a>. Selanjutnya pak Adi tinggal menggunakan aplikasi tsb pada transaksi jual beli toko UD. MAJU JAYA dia. <\/p>\n\n\n\n<p>Berikut keterangan mengenai kontrol kontrol yang terdapat di UserForm ini :<\/p>\n\n\n\n<p>Klik tombol <mark>PD<\/mark>, box ListNama akan menampilkan daftar piutang dagang (PD) yakni para customer yang masih punya hutang. Klik tombol <mark>HD<\/mark>, daftar hutang dagang (HD), yakni para supplier yang pak Adi masih berhutang ke mereka akan ditampilkan di box ListNama. Seperti yang terlihat pada animasi gambar-3 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-03_customer-supplier-button.gif\"><img loading=\"lazy\" decoding=\"async\" width=\"605\" height=\"441\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-03_customer-supplier-button.gif\" alt=\"Tombol Customer dan Supplier\" class=\"wp-image-1393\"\/><\/a><figcaption><em>gambar-3<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Apabila kita klik salah satu nama di box ListNama, maka di box ListBlnThn akan ditampilkan Bulan dan Tahun apa saja nota nota si nama di klik tsb yang belum dibayar. <\/p>\n\n\n\n<p>Di sebelah kiri box ListBlnThn, akan terlihat jumlah total hutang si nama yang di klik tsb, sedangkan di box ListNota tampil semua invoice invoice (nomor nomor nota) beserta nilai per tiap invoice-nya.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-04_customer-invoice-number-list.gif\"><img loading=\"lazy\" decoding=\"async\" width=\"605\" height=\"441\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-04_customer-invoice-number-list.gif\" alt=\"memfilter nama dari piutang dagang ataupun hutang dagang untuk melihat invoice invoicenya.\" class=\"wp-image-1394\"\/><\/a><figcaption><em>gambar-4<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Pada contoh animasi diatas, diketahui bahwa customer (piutang dagang) bernama Pak Adam punya hutang hanya pada nota nota Januari 2021 sebesar Rp 2.181.500. Pak Adi lama sekali tidak bayar bayar utangnya, sejak bulan Desember 2019 sebesar Rp 1.876.200, dlsb.<\/p>\n\n\n\n<p>Selanjutnya, apabila salah satu item di box ListBlnThn di klik, maka box ListNama menampilkan daftar invoice terkait bulan yang di klik tsb. Sedangkan jumlah total hutang di bulan yang di klik tsb, tampil di sebelah kiri box ListBlnThn. Seperti pada animasi dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-05_example-customer-invoice.gif\"><img loading=\"lazy\" decoding=\"async\" width=\"605\" height=\"441\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-05_example-customer-invoice.gif\" alt=\"\" class=\"wp-image-1395\"\/><\/a><figcaption><em>gambar-5<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Pada animasi gambar-5 diatas, kita melakukan pencarian nama dengan mengetik nama yang kita cari di box CARI. DI animasi bisa kita lihat bahwa customer Inem mempunyai total hutang Rp 11.390.900 terdiri dari nota nota Februari 2020 dan Maret 2020. Hutang si Inem di bulan Februari 2020 adalah sebesar Rp 3.583.700 dan hutang Maret 2020 sebesar Rp 7.807.200.<\/p>\n\n\n\n<p>Singkatnya, dalam hal seperti diatas, ini sama seperti saat kita melihat halaman PDHD. Beda hanya di perihal tampilan dan cara pem-filteran-nya saja.<\/p>\n\n\n\n<p>Selanjutnya adalah mengenai tombol <mark>Ketik Nilai Bayar<\/mark>, <mark>Semua Nota<\/mark> dan <mark>Nota Dipilih<\/mark>. Fungsi masing masing tombol ini terkait dengan model pembayaran-nya, seperti yang sudah dibahas <a href=\"https:\/\/indonesiangems.com\/blog\/excel-userform-melalui-visual-basic-editor\/\">di part-5<\/a>. Dimana apabila tombol tsb di klik, maka nomor nomor nota yang terdapat di box ListNota akan di kopi ke halaman BAYAR, dibawah header NOTA (kolom C) baris kosong yang terakhir.<\/p>\n\n\n\n<p>Di halaman kedua pada topik ini, pak Adi akan test-run untuk mengetahui apakah kode kode macro untuk Excel UserForm yang selanjutnya berjalan dengan sesuai yang diharapkan.<\/p>\n\n\n\n<!--nextpage-->\n\n\n\n<p><strong><span style=\"text-decoration: underline;\">Contoh Pertama:<\/span><\/strong><br>A. Mbak Inem membayar hutangnya sebesar Rp 3.000.000 tanpa perduli nomor invoice\/nota-nya. Seperti yang terlihat pada gambar-5 pada halaman 1 topik ini, diketahui bahwa total hutang mbak ini adalah Rp 11.390.000. Jadi pada kasus seperti ini, yang digunakan adalah tombol <mark>Ketik Nilai Bayar<\/mark>, dimana nilai tiga juta ini diketik tanpa titik tanpa koma. Seperti pada animasi gambar-6 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-06.gif\"><img decoding=\"async\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-06.gif\" alt=\"test run macro userform excel invoice piutang bayar\" class=\"wp-image-773\"\/><\/a><figcaption><em>gambar-6<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Seperti yang terlihat pada animasi gambar-6 diatas, kode menyalin dua buah nomor nota dari UserForm ke baris dibawah kolom NOTA halaman BAYAR. Proses kode dalam hal ini adalah mengambil mulai dari nomor nota tertua.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-07.gif\"><img decoding=\"async\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-07.gif\" alt=\"test run input userform excel macro untuk hutang bayar\" class=\"wp-image-774\"\/><\/a><figcaption><em>gambar-7<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Terlihat pada gambar-7, bahwa dua nomor nota yang diambil kode tsb adalah nota bulan Februari. Pada halaman BAYAR, nota yang pertama (PA-200224018) senilai Rp 1.816.600 dibayar penuh. Nota yang kedua (PB-200228006) tidak dibayar penuh, melainkan dibayar sebesar Rp 1.183.400. Total utang mbak Inem nanti akan menjadi Rp 8.390.000, dimana nomor nota PB-200228006 nya tidak lagi senilai Rp 1.767.100, melainkan senilai Rp 1.767.100 &#8211; Rp 1.183.400 = Rp 583.700,-<\/p>\n\n\n\n<p><strong><span style=\"text-decoration: underline;\">Contoh Kedua:<\/span><\/strong><br>Ko Ahok membayar hutang-nya sebesar Rp 882.000. Dia bilang ke pak Adi : <em>&#8220;Pak, ini saya bayar satu nota yang bulan Januari 2021 dulu ya. Nota yang paling kecil nilainya, yakni nota PB-210126008. Lagi bokek soalnya nih&#8221;<\/em>. Pada kasus seperti ini, maka yang digunakan adalah tombol <mark>Nota Dipilih<\/mark>. Seperti pada gambar-8 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-08.gif\"><img decoding=\"async\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-08.gif\" alt=\"\" class=\"wp-image-777\"\/><\/a><\/figure><\/div>\n\n\n\n<p>Total utang ko Ahok nanti menjadi Rp 20.023.500 &#8211; Rp 882.000 = Rp 19.141.500,-. Dan terlihat nota PB-210126008 ko ahok ada di halaman BAYAR.<\/p>\n\n\n\n<p><strong>Contoh Ketiga:<\/strong><br>Ncek Jet Lee bilang ke pak Adi : <em>&#8220;Pak Adi, ngai bayal semua nota yang bulan Januali 2020 ya. Totalnya 8.187.670 lupiah.&#8221;<\/em> Maka dalam hal ini, yang digunakan adalah tombol <mark>Semua Nota<\/mark>, dimana dipilih item &#8220;January 2020&#8221; pada box BlnThn. Seperti pada gambar-9 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-09.gif\"><img decoding=\"async\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-09.gif\" alt=\"\" class=\"wp-image-778\"\/><\/a><figcaption><em>gambar-9<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Total utang ncek Jet Lee nanti menjadi Rp 26.525.320 &#8211; Rp 8.187.670 = Rp 18.337.650,-. Dan terlihat semua nota Januari 2020 ncek Jet Lee ada di halaman BAYAR.<\/p>\n\n\n\n<p><strong>Contoh Ke-empat:<\/strong><br>Bolot bilang ke pak Adi :<em> &#8220;Di, gue bayar Rp 1.485.000 untuk dua nota dulu ya. Satu nota yang bulan Desember 2020, satu lagi nota yang bulan Januari 2021. Dua duanya yang nilainya dibawah satu juta itu loch.&#8221; <\/em>Disini kembali digunakan tombol <mark>Nota Dipilih<\/mark>. Namun karena nomor nota-nya yang dibayar itu loncat, maka perlu tekan Ctrl pada keyboard sambil memilih satu persatu kedua nota yang nomor-nya loncat tsb dengan mouse. Seperti yang terlihat pada gambar-10 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-10.gif\"><img decoding=\"async\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-10.gif\" alt=\"\" class=\"wp-image-779\"\/><\/a><figcaption><em>gambar-10<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Total hutang Bolot nanti akan menjadi Rp 4.769.100 &#8211; Rp 1.485.000 = Rp 3.284.100. Terlihat pula dua nota yang Bolot bayarkan berada di dua baris terakhir pada halaman BAYAR.<\/p>\n\n\n\n<p><strong>Contoh Kelima:<\/strong><br>Mak Lampir bilang ke pak Adi : <em>&#8220;iiii hihihihiiii&#8230;. hai Adi, utang Maret 2020 ku kan ada 7 nota. Aku bayar sampai yang tanggal 18 Maret dulu ya. Jadi sisa utang Maret-ku tinggal dua nota, tanggal 21 dan 28 Maret. Iiiii hihihihihiiii&#8230;.&#8221;<\/em> Kembali lagi disini digunakan tombol <mark>Nota Dipilih<\/mark>. Dan karena nomor nota-nya ber-urut, pak Adi tinggal memilih lima nota pertama bulan Maret si emak dengan cara menyeret. Seperti yang terlihat di gambar-11 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-11.gif\"><img decoding=\"async\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-11.gif\" alt=\"\" class=\"wp-image-785\"\/><\/a><figcaption>gambar-11<\/figcaption><\/figure><\/div>\n\n\n\n<p>Total utang mak Lampir nanti menjadi Rp 7.989.060 &#8211; Rp 1.517.200 = Rp 6.471.860. Terlihat lima buah invoice Maret mak Lampir di lima baris terakhir halaman BAYAR.<\/p>\n\n\n\n<p>Sampai disini pak Adi cukup puas atas hasil membuat macro userform Excel-nya, karena macro bekerja sesuai yang dia harapkan. Hal selanjutnya adalah meng-input nota nota yang berada di halaman BAYAR tsb ke data utama. Ada baik-nya halaman berikutnya dibuka pada tab browser baru, agar mudah untuk mengecek\/membandingkan hasil kerja kode macro-nya sama atau kagak dengan perhitungan manual nilai nilai sisa hutang para customer yang membayar diatas tadi.<\/p>\n\n\n\n<p>Kini saatnya pak Adi meng-input nota nota yang terdapat di halaman BAYAR tsb ke halaman DATA.<\/p>\n\n\n\n<!--nextpage-->\n\n\n\n<p>Setelah pak Adi menekan tombol <mark>Input Ke Data<\/mark>, kode memindahkan nomor2 nota (dan nilainya masing2) yang terdapat di halaman BAYAR ke halaman DATA. Seperti yang terlihat pada gambar-12 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-12.png\"><img loading=\"lazy\" decoding=\"async\" width=\"957\" height=\"500\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-12.png\" alt=\"\" class=\"wp-image-977\"\/><\/a><figcaption><em>gambar-12<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Seperti yang kita lihat pada gambar-12 diatas, pada halaman DATA, kode memberi tanda 2103LUNAS (artinya : lunas di bulan Maret 2021) untuk nota2 yang lunas. Terlihat pula nota nomor PB-200228006 milik mbak Inem tidak terdapat tanda lunas karena nomor nota ini ya emang belon seluruhnya lunas, baru Rp 1.183.400 yang lunas.<\/p>\n\n\n\n<p>Setelah pak Adi klik OK pada window &#8220;pesan&#8221; yang muncul tsb, kode akan kembali ke halaman BAYAR dimana sekarang baris2 dibawah kolom NOTA dan kolom NILAI kosong, siap untuk mengumpulkan nota nota yang akan pak Adi pindahkan berikutnya (apabila ada).  Seperti yang terlihat pada gambar-13 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-13.png\"><img loading=\"lazy\" decoding=\"async\" width=\"508\" height=\"417\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-13.png\" alt=\"\" class=\"wp-image-978\"\/><\/a><figcaption><em>gambar-13<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Pada gambar-13 diatas, terlihat baris2 dibawah kolom NAMA dan kolom BAYAR masih terisi. Guna dari dua kolom ini adalah untuk memantau <em>&#8220;pada hari ini, tanggal 6 Maret, pak Adi sudah masukin pembayaran dari siapa siapa saja&#8221;<\/em>. Anyway, semisal-nya pak Adi tidak lagi membutuhkan informasi dibawah kolom NAMA dan kolom BAYAR tsb, maka pak Adi menekan tombol RESET. Sehingga hasilnya seperti pada gambar-14 dibawah ini.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-14.png\"><img loading=\"lazy\" decoding=\"async\" width=\"515\" height=\"416\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-14.png\" alt=\"\" class=\"wp-image-979\"\/><\/a><figcaption><em>gambar-14<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Selanjutnya pak Adi nge-cek apakah program kode macro-nya berjalan sesuai dgn harapan. So, yang pertama di cek adalah customer mbak Inem. <\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-15.png\"><img loading=\"lazy\" decoding=\"async\" width=\"603\" height=\"408\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-15.png\" alt=\"\" class=\"wp-image-980\"\/><\/a><figcaption><em>gambar-15<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Pada gambar-15 diatas, hasilnya benar. Saldo hutang mbak Inem sekarang adalah Rp 8.390.900, dimana sisa nilai hutang nomor nota PB200228006 adalah Rp 583.700.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-16.png\"><img loading=\"lazy\" decoding=\"async\" width=\"603\" height=\"408\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-16.png\" alt=\"\" class=\"wp-image-981\"\/><\/a><figcaption><em>gambar-16<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Pada gambar-16 diatas, hasilnya benar. Hutang koh Ahok yang senilai Rp 882.000 tidak ada lagi di UserForm.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-17.png\"><img loading=\"lazy\" decoding=\"async\" width=\"603\" height=\"408\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-17.png\" alt=\"\" class=\"wp-image-982\"\/><\/a><figcaption><em>gambar-17<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Pada gambar-17 diatas, hasilnya benar. Di UserForm tidak ada lagi nota2 hutang ncek Jet Lee yang bulan January 2020.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-18.png\"><img loading=\"lazy\" decoding=\"async\" width=\"603\" height=\"408\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-18.png\" alt=\"\" class=\"wp-image-983\"\/><\/a><figcaption><em>gambar-18<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Pada gambar-18 diatas, hasilnya benar. Nota nota hutang si Bolot sekarang tinggal tiga nota dari yang sebelumnya ada lima nota.<\/p>\n\n\n\n<div class=\"wp-block-image\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-19.png\"><img loading=\"lazy\" decoding=\"async\" width=\"603\" height=\"408\" src=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06-19.png\" alt=\"\" class=\"wp-image-984\"\/><\/a><figcaption><em>gambar-19<\/em><\/figcaption><\/figure><\/div>\n\n\n\n<p>Pada gambar-18 diatas, hasilnya benar. Hutang bulan Maret 2020 mak Lampir tinggal dua nota dari yang sebelum di input ke data ada tujuh nota.<\/p>\n\n\n\n<p>Jadi setelah test run, pak Adi sudah merasa cukup yakin bahwa kode kode macro untuk Excel UserForm yang dia buat sekarang sudah bisa di aplikasikan ke pembayaran pembayaran yang berkaitan dengan usaha toko-nya.<\/p>\n\n\n\n<p>Apabila ada pembaca yang tidak jelas ataupun ada yang ingin ditanyakan terkait topik ini, silahkan tulis di kolom Comment. Saya akan berusaha untuk bisa menjawabnya.<\/p>\n\n\n\n<div style=\"max-width:800px;text-align:right;\"><button style=\"width:auto\"><a style=\"color:white;\" href=\"https:\/\/www.indonesiangems.com\/blog\/download\/count.php?nm=Sample05\">Download Aplikasi Hutang Piutang Excel<\/a><\/button><\/div>\n","protected":false},"excerpt":{"rendered":"<p>Last updated on March 16th, 2021 at 06:07 pm<\/p>\n","protected":false},"author":1,"featured_media":969,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11,10],"tags":[],"class_list":["post-747","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-aplikasi-excel-id","category-id","tw-post-has-image-20-9","tw-meta-no-icon"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v15.8 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>Macro untuk Excel UserForm input pembayaran - part 6<\/title>\n<meta name=\"description\" content=\"Membuat kode macro untuk excel userform. Tinggal copy paste. Cocok untuk pemula. Gratis download contoh file Excel UserForm dengan macro-nya.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/\" \/>\n<link rel=\"next\" href=\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/2\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Macro untuk Excel UserForm input pembayaran - part 6\" \/>\n<meta property=\"og:description\" content=\"Membuat kode macro untuk excel userform. Tinggal copy paste. Cocok untuk pemula. Gratis download contoh file Excel UserForm dengan macro-nya.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/\" \/>\n<meta property=\"og:site_name\" content=\"Indonesian Gems Blog\" \/>\n<meta property=\"article:published_time\" content=\"2021-03-04T11:56:35+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2021-03-16T10:07:44+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06feature.jpg\" \/>\n\t<meta property=\"og:image:width\" content=\"800\" \/>\n\t<meta property=\"og:image:height\" content=\"200\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Est. reading time\">\n\t<meta name=\"twitter:data1\" content=\"17 minutes\">\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebSite\",\"@id\":\"https:\/\/indonesiangems.com\/blog\/#website\",\"url\":\"https:\/\/indonesiangems.com\/blog\/\",\"name\":\"Indonesian Gems Blog\",\"description\":\"just want to share what I&#039;ve done so far\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":\"https:\/\/indonesiangems.com\/blog\/?s={search_term_string}\",\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"en-US\"},{\"@type\":\"ImageObject\",\"@id\":\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/#primaryimage\",\"inLanguage\":\"en-US\",\"url\":\"https:\/\/indonesiangems.com\/blog\/wp-content\/uploads\/2021\/03\/06feature.jpg\",\"width\":800,\"height\":200},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/#webpage\",\"url\":\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/\",\"name\":\"Macro untuk Excel UserForm input pembayaran - part 6\",\"isPartOf\":{\"@id\":\"https:\/\/indonesiangems.com\/blog\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/#primaryimage\"},\"datePublished\":\"2021-03-04T11:56:35+00:00\",\"dateModified\":\"2021-03-16T10:07:44+00:00\",\"author\":{\"@id\":\"https:\/\/indonesiangems.com\/blog\/#\/schema\/person\/96961e74ef7272e067370a6e6c4d0efd\"},\"description\":\"Membuat kode macro untuk excel userform. Tinggal copy paste. Cocok untuk pemula. Gratis download contoh file Excel UserForm dengan macro-nya.\",\"breadcrumb\":{\"@id\":\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"item\":{\"@type\":\"WebPage\",\"@id\":\"https:\/\/indonesiangems.com\/blog\/\",\"url\":\"https:\/\/indonesiangems.com\/blog\/\",\"name\":\"Home\"}},{\"@type\":\"ListItem\",\"position\":2,\"item\":{\"@type\":\"WebPage\",\"@id\":\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/\",\"url\":\"https:\/\/indonesiangems.com\/blog\/membuat-macro-excel-userform\/\",\"name\":\"Macro untuk Excel UserForm input pembayaran - part 6\"}}]},{\"@type\":\"Person\",\"@id\":\"https:\/\/indonesiangems.com\/blog\/#\/schema\/person\/96961e74ef7272e067370a6e6c4d0efd\",\"name\":\"admin\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"https:\/\/indonesiangems.com\/blog\/#personlogo\",\"inLanguage\":\"en-US\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/73e0be4b74509a0250ea0115a8fb8b5a132592a52df5ccc0013ac50eb087f578?s=96&d=mm&r=g\",\"caption\":\"admin\"},\"sameAs\":[\"https:\/\/indonesiangems.com\/blog\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","_links":{"self":[{"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/posts\/747","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/comments?post=747"}],"version-history":[{"count":36,"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/posts\/747\/revisions"}],"predecessor-version":[{"id":1396,"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/posts\/747\/revisions\/1396"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/media\/969"}],"wp:attachment":[{"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/media?parent=747"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/categories?post=747"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/indonesiangems.com\/blog\/wp-json\/wp\/v2\/tags?post=747"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}