Sub Sample() Dim cost As Long, life As Integer, period As Integer cost = 600000 life = 5 period = 1 MsgBox SYD(cost, cost * 0.1, life, period) '180000を表示します End Sub