Excelで仮想通貨の資産管理1 -Excel VBA
今回は全銘柄を合計した資産額を出したいと思います。
これが前回の実行結果です。
・コード
今回の変更は各銘柄の金額の足し算のみになりますのでプログラムの一部を変更するだけとなります。下記が変更した部分となります。
trow = 2
val_sum = 0
For Each CryptoCurrencyNode In CryptoCurrencyJSON
If UCase(Cells(trow, 2)) = CryptoCurrencyNode(arr(2)) Then
For i = 1 To 8
If i = 4 Then
GoTo skip1
Else: End If
tickerSheet.Cells(trow, i) = CryptoCurrencyNode(arr(i))
skip1:
Next
val_jpy = Cells(trow, 3) * Cells(trow, 4)
tickerSheet.Cells(trow, 5) = Application.WorksheetFunction.RoundDown(val_jpy, 0)
val_sum = Cells(trow, 5) + val_sum '資産総額
trow = trow + 1
Else: End If
Next
tickerSheet.Cells(trow, 5) = val_sum
●実行結果
E7のセルに資産総額が表示されました。
Excelで仮想通貨の資産管理3 -Excel VBA
無料・ダウンロード可) 仮想通貨エクセルツール2 各国法定通貨換算可能！仮想通貨価格・時価総額データ表示アプリケーション -Excel VBA
