[[20060216092025]]　『√の公式教えてください。』（ゆうこ）　ページの最後に飛ぶ

『√の公式教えてください。』（ゆうこ）

a+b+c/2=s

S=√(s*(s-a)*(s-b)*(s-c))

上記の公式をエクセルに組み込みたいのですが、

どなたかお判りになる方いらっしゃいましたら、

教えてください。

 三角形の各辺の長さを各、A1、B1、C1に入力するものとしますと、このようなことではないでしょうか？

 =((A1+B1+C1)*0.5*((A1+B1+C1)*0.5-A1)*((A1+B1+C1)*0.5-B1)*((A1+B1+C1)*0.5-C1))^0.5　　　(LOOKUP)

 UDFです

 1) Excel画面より ALT＋F11 でVBEを起動
 2) 挿入->標準モジュール　で下記コードを右空白部分に貼り付ける。
 3) x をクリックしてExcel画面に戻る。

 セルに
 =s(3,4,5) または =s(a1,a2,a3) 等で使用

 Function s(a As Double, b As Double, c As Double) As Double
 s = (a + b + c) / 2
 s = Sqr(s * (s - a) * (s - b) * (s - c))
 End Function
 (seiya)

 ヘロンの公式ですか、懐かしい。(^^)
 A1、A2、A3 に各辺の長さが入ってるとして、A4 に、=SUM(A1:A3)/2  これが S
 で、そのまま式にすれば、　=SQRT(A4*(A4-A1)*(A4-A2)*(A4-A3))
（純丸）(o^-')b

どうもありがとうございました。
数学がとっても苦手で、助かりました。ｍ（＿＿）ｍ

コメント返信：