今回は投資額と損益額を表示したいと思います。各銘柄分と総額で出したいと思います。
まずは、B列に銘柄のシンボルを入力、D列には保有通貨量を入力、G列には投資額(元本)を入力します。合計額は自動で出されるので入力不要です。その他の列は入力しなくてOKです。
・コード
下記の赤字部分を変更しました。
back1:
For Each CryptoCurrencyNode In CryptoCurrencyJSON
If UCase(Cells(trow, 2)) = CryptoCurrencyNode(arr(2)) Then
For i = 1 To 11
If i <> 4 And i <> 7 And i <> 8 Then
tickerSheet.Cells(trow, i) = CryptoCurrencyNode(arr(i))
Else
End If
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
'profit and loss
tickerSheet.Cells(trow, 8) = Cells(trow, 5) - Cells(trow, 7)
ivm = Cells(trow, 7) + ivm
pl = Cells(trow, 8) + pl
trow = trow + 1
GoTo back1:
Else: End If
Next
'total, profit and loss
tickerSheet.Cells(trow, 5) = val_sum
tickerSheet.Cells(trow, 7) = ivm
tickerSheet.Cells(trow, 8) = pl
col = i
For i = 2 To trow - 1
tickerSheet.Cells(i, 6) = Cells(i, 5) / val_sum
tickerSheet.Cells(i, 6).NumberFormatLocal = "0.0%"
Next
●実行結果
G列に投資額、H列に損益額が表示されました。
