[Excel関数]アレニウスの式により2つの温度間の化学反応速度の比を計算するカスタムワークシート関数

コード

' [Excel関数]アレニウスの式により2つの温度間の化学反応速度の比を計算するカスタムワークシート関数 
' Copyright (c) 2020-2024  黒箱 
' This software is released under the MIT License;. 
' このソフトウェアはMITライセンスの下でリリースされています。 

'* @fn Public Function ARRHENIUSRATIO(ByVal T1 As Double, ByVal T2 As Double, ByVal Ea As Double, Optional ByVal EaUnits As Long = 1) As Variant
'* @brief アレニウスの式より、2つの温度間の化学反応速度の比を求めます。
'* @param[in] T1 基準となる温度を熱力学温度(絶対温度)で指定します。セルシウス度(℃)を熱力学温度に変換する場合は、セルシウス度に273.15を加算して下さい。
'* @param[in] T2 比較する温度を熱力学温度(絶対温度)で指定します。セルシウス度(℃)を熱力学温度に変換する場合は、セルシウス度に273.15を加算して下さい。
'* @param[in] Ea 'Ea 1molあたりの活性化エネルギーを指定します。単位はJ/molです。
'* @return Double 化学反応速度の比率を返します。
'* @details
'*
Public Function ARRHENIUSRATIO(ByVal T1 As Double, ByVal T2 As Double, ByVal Ea As Double, Optional ByVal EaUnits As Long = 1) As Variant
Const RInv As Double = 1 / 8.31446261815324 '気体定数の逆数
Const KBInv As Double = 1 / (1.380649 * 10 ^ (-23)) 'ボルツマン定数の逆数

    Dim c As Double
    
    Select Case (EaUnits)
    Case 1: c = RInv
    Case 2: c = KBInv
    Case Else
        ARRHENIUSRATIO = CVErr(2036) '#NUM!
        Exit Function
    End Select

    ARRHENIUSRATIO = Exp(Ea * c * (1 / T1 - 1 / T2))
End Function