[Excel関数]正四角錐(ピラミッド型)の体積や表面積を計算するRSQPYRAMIDカスタムワークシート関数群

コード

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

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

'* @fn Public Function RSQUPYRAMIDHGT(ByVal a As Variant, ByVal b As Variant) As Variant
'* @brief 正四角錐の底辺と斜辺から正四角錐の高さを求めます。
'* @param[in] a 正四角錐の底辺の長さを指定します。
'* @param[in] e 正四角錐の斜辺の長さを指定します。
'* @return Variant 正四角錐の高さを返します。
'* @note 関数名の由来：RSQUPYRAMID HeiGhT
Public Function RSQUPYRAMIDHGT(ByVal a As Variant, ByVal e As Variant) As Variant
    RSQUPYRAMIDHGT = (4 * e ^ 2 - 2 * a ^ 2) ^ 0.5 * 0.5
End Function


'* @fn Public Function RSQUPYRAMIDEDG(ByVal a As Variant, ByVal h As Variant) As Variant
'* @brief 正四角錐の底辺と高さから正四角錐の斜辺の長さを求めます。
'* @param[in] a 正四角錐の底辺の長さを指定します。
'* @param[in] h 正四角錐の高さを指定します。
'* @return Variant 正四角錐の斜辺の長さを返します。
'* @note 関数名の由来：RSQUPYRAMID EDGe
Public Function RSQUPYRAMIDEDG(ByVal a As Variant, ByVal h As Variant) As Variant
    RSQUPYRAMIDEDG = (0.5 * a ^ 2 + h ^ 2) ^ 0.5
End Function


'* @fn Public Function RSQUPYRAMIDSUR(ByVal a As Variant, ByVal h As Variant) As Variant
'* @brief 正四角錐の底辺と高さから正四角錐の表面積を求めます。
'* @param[in] a 正四角錐の底辺の長さを指定します。
'* @param[in] h 正四角錐の高さを指定します。
'* @return Variant 正四角錐の表面積を返します。
'* @note 関数名の由来：RSQUPYRAMID SURface area
Public Function RSQUPYRAMIDSUR(ByVal a As Variant, ByVal h As Variant) As Variant
    RSQUPYRAMIDSUR = a ^ 2 + a * (a ^ 2 + 4 * h ^ 2) ^ 0.5
End Function


'* @fn Public Function RSQUPYRAMIDVOL(ByVal a As Variant, ByVal h As Variant) As Variant
'* @brief 正四角錐の底辺と高さから正四角錐の体積を求めます。
'* @param[in] a 正四角錐の底辺の長さを指定します。
'* @param[in] h 正四角錐の高さを指定します。
'* @return Variant 正四角錐の体積を返します。
'* @note 関数名の由来：RSQUPYRAMID VOLume
Public Function RSQUPYRAMIDVOL(ByVal a As Variant, ByVal h As Variant) As Variant
Const c As Double = 1 / 3
    RSQUPYRAMIDVOL = c * a ^ 2 * h
End Function