Cara Menampilkan Daftar Harga Cryptocurrency 10 Besar CoinMarketCap di Microsoft Excel 2016

Buat Anda seorang investor Cryptocurrency dan ingin mamantau hasil investasi Anda atau juga Anda ingin membuat sebuah tabel transaksi pembelian dan penjualan Cryptocurrency, artikel ini sangat cocok buat Anda yang ingin membuat transaksi penjualan dan pembelian Cryipto yang di buat melalui Microsoft Excel 2016.

Kenapa kita membuatnya di  Microsoft Excel?

Dengan menampilkan daftar harga cryptocurrency di Excel, kamu bisa:

• Memantau pergerakan harga 
• Menggabungkan data crypto dengan data finansial lain
• Melakukan analisis sederhana tanpa aplikasi tambahan

Tabel Crypto di Excel

Berikut dibawah ini adalah langkah-langkah Cara Menampilkan Daftar Harga Cryptocurrency 10 Besar CoinMarketCap di Microsoft Excel 2016 :

Persiapan :

1. Download file JsonConverter "https://github.com/VBA-tools/VBA-JSON"
2. Anda akan diarahkan ke halaman Github
3. Pada bagian Code warna hijau Klik dan pilih Download Zip
4. Extract file tersebut cari file JsonConverter.bas

Sekarang Kita ke Excel 

1. Buka Ms Excel Anda
2. Pilih  Developer pada Menu Bar dan pilih Visual Basic atau tekan langsung pada Sheet ALT+F11,
Jendela Microsoft Visual Basic akan terbuka
4. Sekarang tanbahkan Module dengan cara : Insert - Module, maka jendela module akan terbuka dengan nama Module1.
5. Tambahkan File JsonConverter yang kita sudah download dan Extract tadi dengan cara : File - Import File - Pilih file JsonConverter dan Open

Susunan Properties yang benar :

6. Didalam Module1 Copy-Paste kode dibawah ini :

Public NextRun As Date

Sub GetCryptoTop10()

    Dim http As Object

    Dim json As Object

    Dim i As Integer

    

    Set http = CreateObject("MSXML2.XMLHTTP")

    http.Open "GET", "https://api.coingecko.com/api/v3/coins/markets?vs_currency=idr&order=market_cap_desc&per_page=10&page=1", False

    http.Send

    

    Set json = JsonConverter.ParseJson(http.responseText)

    

    Cells.ClearContents

    Cells(1, 1) = "Nama"

    Cells(1, 2) = "Symbol"

    Cells(1, 3) = "Harga IDR"

    

    i = 2

    For Each Item In json

        Cells(i, 1) = Item("name")

        Cells(i, 2) = UCase(Item("symbol"))

        Cells(i, 3) = Item("current_price")

        i = i + 1

    Next Item

End Sub

Sub StartAutoUpdate()

    Call GetCryptoTop10

    NextRun = Now + TimeValue("00:01:00") ' update tiap 1 menit

    Application.OnTime NextRun, "StartAutoUpdate"

End Sub

Sub StopAutoUpdate()

    On Error Resume Next

    Application.OnTime NextRun, "StartAutoUpdate", , False

End Sub

Tambahkan References :

7. Selanjtnya masih di jendela Visual Basic aktifkan References dengan cara : Tools - References kemudian Centang ✅ Microsoft Scripting Runtime dan klik OK

Jalankan Macro :

1. Tutup jendela Visual Basic Editor dan kembali ke Excel

2. Lalu tekan ALT+F8 atau Macros pada Menu Bar

3. Pada jendela Macro pilih GetCryptoTop10 dan tekan Run

4. Upadate otomatis :Supaya bisa upadate 1 menit sekali pilih Macros dan pilih StarAutoUpdate

Itulah tutorial langkah-langkah Menampilkan Daftar Harga Cryptocurrency 10 Besar CoinMarketCap di Microsoft Excel 2016, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil