![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?e8efa67)
No.3ベストアンサー
- 回答日時:
階乗については、
Function Fact(n) as long
Fact = 1
for i = 1 to n
Fact = Fact * i
next i
End Function
で最低限のものは実現できます。 最低限という意味は、エラーが起きたときの対応ができていないということです。
例えば、負の数を引き渡したときは、1が返されます。
また、171以上の数を引き渡すと、オーバーフローしますし、
longの定義上正確に計算できるのは、17までだと思います。
組み合わせについても、
Function Combi(n,r) as long
Combi = Fact(n)/(Fact(r)*Fact(n-r))
End Function
で最低限のものは作れますが、やはりFactの制限に引っかかります。
factというファンクションを使わなければ、
ループを使い
n(n-1)(n-2)(n-3)・・・(n-r+1)/r!
を計算することによって、多少は上限が増えますが、どの時点で正確でなくなるのか、どの時点でオーバーフローするのかなどを検証しておく必要はあります。
それよりも完成度の高いものを目指す場合は、数自体の構造体を自分で作り、それらを演算させるプログラムを組まなくてはいけません。演算する速度は遅くなりますが、VBAで作れないわけではありません。
何にしても、計算の上限値はどこかに設定しておかなくてはいけませんし、上限を越した際のエラー処理の方法を考えておく必要があります。
No.2
- 回答日時:
順列。
組み合わせともに公式に、階乗が現れてきます。階乗は
Sub test01()
n = 1
For i = 1 To 17
n = n * i
Cells(i, "A") = n
Next i
End Sub
のようにすれば計算されますが、エクセルの画面のセルに表示は上記ぐらいが限度です。
ですから用途については、非常に限られています。エクセルは不向きでしょう。
これ以上を考えるなら、数学的アルゴリズムの考察が難しく、この質問振りからでは、そちらの知識のほうが追いつかないのでは。
ーー
質問が漠然としすぎ。
多桁、近似の計算のアルゴリズムなどに習熟しているか
まず後者の習得でしょう。
私は知らないが、理系の研究などでは、既成の専門ソフトを使うのでは。
素人が安易に作ると危ない。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_03.png?e8efa67)
No.1
- 回答日時:
まず大事なのは、階乗・順列・組合せの計算を具体的に記述することです。
それが出来れば、後はその考え方をコードにするだけです。
例:(あくまでも一例)
Public Sub kaijo()
Dim i As Integer
Dim j As Long
j = 1
For i = Cells(1, 1).Value To 1 Step -1
j = j * i
Next i
Cells(1, 2).Value = j
End Sub
これで、A1に入っている数字の階乗の計算結果をB1に表示できます。
見本にもなっていませんが、こういう感じで作っていけばいいかと…。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
階乗のマクロ
Visual Basic(VBA)
-
0から12までの値nを入力し、nと階乗n!の値を表示しなさいという問題
Visual Basic(VBA)
-
VB.NETで階乗を求めるプログラムを作成する
Visual Basic(VBA)
-
-
4
2から100までの自然数について素数であるか判定したいです。シートのA列には自然数の値、B列には判定
Excel(エクセル)
-
5
東京都立大学に行かれると恥ずかしいと母親に言われて困ってます。せめて旧帝にでも、と。 放射線技師にな
大学受験
-
6
VBAでの素数の求め方
Visual Basic(VBA)
-
7
ExcelのVBAで再帰処理を使って、1〜10までの整数の和と10の階乗の計算をしたいです。どなたか
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Flash Lite1.1 計算の誤差
-
趣味で「乗換案内」みたいなソ...
-
60進数の四則計算
-
絶対ち
-
継承元と継承先での変数
-
C言語で電卓を作成する。修正お...
-
変化させるセルが変化しない
-
Scilabでのプログラミング
-
剰余の計算方法
-
65536は2の何乗なのでしょうか?
-
最適円順列を求めるアルゴリズ...
-
C言語で N行*M列 の逆行列を求...
-
引き放し法による除算アルゴリ...
-
VB6.0でのバイナリデータの扱い...
-
EXCELなどで「返す」という表現
-
Javaでのある数の小数点乗に...
-
階乗のマクロ
-
VB6で 1-0.1*10 の計算結果が...
-
逆行列求めたい
-
VBAの再計算が反映されない件に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
65536は2の何乗なのでしょうか?
-
パソコン
-
VBAで関数をつくる
-
階乗のマクロ
-
EXCELなどで「返す」という表現
-
排他的論理和 BCC(水平パリテ...
-
バッチファイルでウインドウを...
-
変化させるセルが変化しない
-
VBAの再計算が反映されない件に...
-
引き放し法による除算アルゴリ...
-
モジュラス103の計算とは何でし...
-
Visual C++でdebugとreleaseで...
-
エクセルで特定のセルのみを任...
-
数値計算の高速化 (cos, sin, exp)
-
傾いた四角形内の範囲の条件式
-
VBでReplace
-
骨折リスク評価のFRAXについて...
-
アドオン利率を実質年率に変換
-
入射角反射角
-
C言語についてです。 再帰を使...
おすすめ情報