如何在excel中进行年利率、月利率、日利率之间的转换

利率（interest rate）表示一定时期内利息量与本金的比率。

年利率通常用%表示，月利率用‰表示，日利率用万分号表示。

三种利率之间的换算方式是：

月利率=年利率/12

日利率=年利率/360=月利率/30。

央行基准贷款利率是指年利率，比如5年期以上基准贷款利率是4.90%，是指每年利率为4.90%，并不是指5年的总利率。

民间借贷常说的几分利，如没特别说明，通常是指月利率，1分利即月利率1%，算成年利率就是12% 。

有了以上的知识，在excel中可以通过公式或者vba来快速地在这几个利率之间切换。

用公式可以按照上面介绍的换算公式换算，这里介绍一种vba的方法，任意输入日利率、月利率、年利率中的任何一个，都可以快速地计算出另外2个利率。

插入如下工作表Worksheet_Change事件，写入代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Excel.Application.EnableEvents = False
    If Target.Count = 1 And Target.Column < 4 And Target.Row > 1 Then
        Select Case Target.Column
            Case 1
                Target.Offset(0, 1) = VBA.Format(Target * 30, "0.00%")
                Target.Offset(0, 2) = VBA.Format(Target * 360, "0.00%")
            Case 2
                Target.Offset(0, -1) = VBA.Format(Target / 30, "0.00%")
                Target.Offset(0, 1) = VBA.Format(Target * 12, "0.00%")
            Case 3
                Target.Offset(0, -1) = VBA.Format(Target / 12, "0.00%")
                Target.Offset(0, -2) = VBA.Format(Target / 360, "0.00%")
        End Select
    End If
    Excel.Application.EnableEvents = True
End Sub