[Excel関数]正六角柱の体積や表面積を計算するRHEXAPRISMカスタムワークシート関数群

コード

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

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

'* @fn Public Function RHEXAPRISMSUR(ByVal a As Variant, ByVal h As Variant) As Variant
'* @brief 正六角柱の辺の長さ及び高さから正六角柱の表面積を求めます。
'* @param[in] a 正六角柱の辺の長さを指定します。
'* @param[in] h 正六角柱の高さを指定します。
'* @return Variant 正六角柱の表面積を返します。
'* @note 関数名の由来：Regular HEXAgonal PRISM SURface area
'* @note 正六角柱とは、正六角形を底面とし、側面は合同な6つの長方形(または正方形)で構成された立体です。
Public Function RHEXAPRISMSUR(ByVal a As Variant, ByVal h As Variant) As Variant
Const c As Double = 3 * 3 ^ 0.5
    RHEXAPRISMSUR = c * a ^ 2 + 6 * a * h
End Function

'* @fn Public Function RHEXAPRISMVOL(ByVal a As Variant, ByVal h As Variant) As Variant
'* @brief 正六角柱の辺の長さ及び高さから正六角柱の体積を求めます。
'* @param[in] a 正六角柱の辺の長さを指定します。
'* @param[in] h 正六角柱の高さを指定します。
'* @return Variant 正六角柱の体積を返します。
'* @note 関数名の由来：Regular HEXAgonal PRISM VOLume
'* @note 正六角柱とは、正六角形を底面とし、側面は合同な6つの長方形(または正方形)で構成された立体です。
Public Function RHEXAPRISMVOL(ByVal a As Variant, ByVal h As Variant) As Variant
Const c As Double = (3 / 2) * 3 ^ 0.5
    RHEXAPRISMVOL = c * a ^ 2 * h
End Function