スポンサーリンク

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

2020年12月22日

説明

RCHOLCYLINDERカスタムワークシート関数群は、中空直円柱の体積や表面積などを計算します。中空直円柱とは、直円柱の中心に直円柱型の空洞が空いた立体です。

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

関数名機能関数名の由来
RCHOLCYLINDERSUR中空直円柱の内半径、外半径及び高さから、中空直円柱の表面積を計算します。Right Circular HOLlow CYLINDER SURface area
RCHOLCYLINDERVOL中空直円柱の内半径、外半径及び高さから、中空直円柱の体積を計算します。Right Circular HOLlow CYLINDER VOLume

動作例

計算式

項目計算式補足
$$ 表面積(S) $$$$ S= 2 \pi (h (r_2 + r_1) + ({r_2} ^ 2 – {r_1} ^ 2)) $$
$$ 体積(V) $$$$ V=\pi h({r_2}^2-{r_1}^2) $$

構文

関数名第1引数第2引数第3引数戻り値
RCHOLCYLINDERSUR内半径外半径高さ表面積
RCHOLCYLINDERVOL内半径外半径高さ体積
引数説明引数の指定既定値
内半径中空直円柱の内半径を数値で指定します。必須(無し)
外半径中空直円柱の外半径を数値で指定します。必須(無し)
高さ中空直円柱の高さを数値で指定します。必須(無し)

コード

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

'[Excel関数]中空直円柱の体積や表面積を計算するRCHOLCYLINDERカスタムワークシート関数群
'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 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

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

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

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

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

スポンサーリンク