[Excel関数]中空直円柱の体積や表面積を計算するRCHOLCYLINDERカスタムワークシート関数群

コード

下記のコードを全てコピーし、標準モジュール等に貼り付けて下さい。下記のコード表示欄の右上に「Copy」ボタンがありますのでご使用下さい。なお、標準モジュールが何だか分からない方は、 Excelのカスタムワークシート関数を使用する方法 を参照して下さい。

' [Excel関数]中空直円柱の体積や表面積を計算するRCHOLCYLINDERカスタムワークシート関数群 
' Copyright (c) 2020-2024  黒箱 
' This software is released under the MIT License;. 
' このソフトウェアはMITライセンスの下でリリースされています。 

'* @fn Public Function RCHOLCYLINDERSUR(ByVal r1 As Variant, ByVal r2 As Variant, ByVal h As Variant) As Variant
'* @brief 中空直円柱の辺の長さ及び高さから中空直円柱の表面積を求めます。
'* @param[in] r1 中空直円柱の内半径を指定します。
'* @param[in] r2 中空直円柱の外半径を指定します。
'* @param[in] h 中空直円柱の高さを指定します。
'* @return Variant 中空直円柱の表面積を返します。
'* @note 関数名の由来：Right Circular HOLlow CYLINDER SURface area
'* @note 中空直円柱とは、正円を底面とした筒状の立体です。
Public Function RCHOLCYLINDERSUR(ByVal r1 As Variant, ByVal r2 As Variant, ByVal h As Variant) As Variant
Const c As Double = 3.14159265358979
    RCHOLCYLINDERSUR = 2 * c * (h * (r1 + r2) + (r2 ^ 2 - r1 ^ 2))
End Function

'* @fn Public Function RCHOLCYLINDERVOL(ByVal r1 As Variant, ByVal r2 As Variant, ByVal h As Variant) As Variant
'* @brief 中空直円柱の辺の長さ及び高さから中空直円柱の体積を求めます。
'* @param[in] r1 中空直円柱の半径を指定します。
'* @param[in] r2 中空直円柱の半径を指定します。
'* @return Variant 中空直円柱の体積を返します。
'* @note 関数名の由来：Right Circular HOLlow CYLINDER VOLume
'* @note 中空直円柱とは、正円を底面とした筒状の立体です。
Public Function RCHOLCYLINDERVOL(ByVal r1 As Variant, ByVal r2 As Variant, ByVal h As Variant) As Variant
Const c As Double = 3.14159265358979
    RCHOLCYLINDERVOL = c * h * (r2 ^ 2 - r1 ^ 2)
End Function