スポンサーリンク

[Excel関数]直方体の体積や表面積などを計算するRECTPRISMカスタムワークシート関数群

2020年12月13日

説明

RECTPRISMSカスタムワークシート関数群は、直方体の体積や表面積などを計算します。直方体とは、全ての面が長方形(または正方形)で構成された四角い立体です。

カスタムワークシート関数群には、下記の関数が含まれます。ワークシート関数だけで(VBAを使用せずに)同じことをしたい場合はコチラの記事を参照して下さい。

関数名機能関数名の由来
RECTPRISMDIA直方体の辺から、直方体の対角線を計算します。RECTangular PRISM DIAgonal
RECTPRISMSUR直方体の辺から、直方体の表面積を計算します。RECTangular PRISM SURface area
RECTPRISMVOL直方体の辺から、直方体の体積を計算します。RECTangular PRISM VOLume

動作例

計算式

項目計算式
$$ 対角線(d) $$$$ d = \sqrt{a^2+b^2+c^2} $$
$$ 表面積(S) $$$$ S= 2(ab + ac + bc) $$
$$ 体積(V) $$$$ V=abc $$

構文

関数名第1引数第2引数第3引数戻り値
RECTPRISMDIA辺の長さ1辺の長さ2辺の長さ3対角線
RECTPRISMSUR辺の長さ1辺の長さ2辺の長さ3表面積
RECTPRISMVOL辺の長さ1辺の長さ2辺の長さ3体積
引数説明引数の指定既定値
辺の長さ1直方体の1つ目の辺の長さを数値で指定します。必須(無し)
辺の長さ2直方体の2つ目の辺の長さを数値で指定します。必須(無し)
辺の長さ3直方体の3つ目の辺の長さを数値で指定します。必須(無し)

コード

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

'[Excel関数]直方体の体積や表面積などを計算するRECTPRISMカスタムワークシート関数群
'Copyright (c) 2020 黒い箱の中 All Rights Reserved.
'This software is released under the MIT License<https://opensource.org/licenses/MIT>.
'このソフトウェアはMITライセンスの下でリリースされています<https://opensource.org/licenses/MIT>。


'* @fn Public Function RECTPRISMDIA(ByVal a As Variant, ByVal b As Variant, ByVal c As Variant) As Variant
'* @brief 直方体の辺の長さから直方体の対角線の長さを求めます。
'* @param[in] a 直方体の1つ目の辺の長さを指定します。
'* @param[in] b 直方体の2つ目の辺の長さを指定します。
'* @param[in] c 直方体の3つ目の辺の長さを指定します。
'* @return Variant 直方体の対角線の長さを返します。
'* @note 関数名の由来:RECTPRISM DIAgonal
'* @note 直方体とは、全ての面が長方形(または正方形)で構成された四角い立体です。
Public Function RECTPRISMDIA(ByVal a As Variant, ByVal b As Variant, ByVal c As Variant) As Variant
    RECTPRISMDIA = (a ^ 2 + b ^ 2 + c ^ 2) ^ 0.5
End Function

'* @fn Public Function RECTPRISMSUR(ByVal a As Variant, ByVal b As Variant, ByVal c As Variant) As Variant
'* @brief 直方体の辺の長さから直方体の表面積を求めます。
'* @param[in] a 直方体の1つ目の辺の長さを指定します。
'* @param[in] b 直方体の2つ目の辺の長さを指定します。
'* @param[in] c 直方体の3つ目の辺の長さを指定します。
'* @return Variant 直方体の表面積を返します。
'* @note 関数名の由来:RECTPRISM SURface area
'* @note 直方体とは、全ての面が長方形(または正方形)で構成された四角い立体です。
Public Function RECTPRISMSUR(ByVal a As Variant, ByVal b As Variant, ByVal c As Variant) As Variant
    RECTPRISMSUR = 2 * (a * b + a * c + b * c)
End Function


'* @fn Public Function RECTPRISMVOL(ByVal a As Variant, ByVal b As Variant, ByVal c As Variant) As Variant
'* @brief 直方体の辺の長さから直方体の体積を求めます。
'* @param[in] a 直方体の1つ目の辺の長さを指定します。
'* @param[in] b 直方体の2つ目の辺の長さを指定します。
'* @param[in] c 直方体の3つ目の辺の長さを指定します。
'* @return Variant 直方体の体積を返します。
'* @note 関数名の由来:RECTPRISM VOLume
'* @note 直方体とは、全ての面が長方形(または正方形)で構成された四角い立体です。
Public Function RECTPRISMVOL(ByVal a As Variant, ByVal b As Variant, ByVal c As Variant) As Variant
    RECTPRISMVOL = a * b * c
End Function

プログラムの利用について

本プログラムのライセンスは「The MIT License」を適用しています。

本プログラムは無償で利用できますが、本プログラム内の著作権表示及びライセンス表示は削除せずに表示しておいて下さい。

必須ではございませんが、本ホームページのプログラムを書籍またはホームページ等で一般公開したい方は、お問い合わせフォームよりご連絡頂けると幸いです。

スポンサーリンク