エクセルvbaの円周率

最近の書き込み件数：今日 0件、昨日 0件
未読分：1件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#1 2014年12月26日(金)09時37分
From: 後ろ指

返事削除変更

エクセルVBAのマクロについてです。
円周率を球の体積を用いてモンテカルロ法によって求めるプログラムを教えていただきたいです。
ヒントとして、球の体積ではなく、円の面積から求めるプログラムは教えてもらったのですが、
無知なものでさっぱりわかりませんでした。
ご教授願いたく質問させていただきました。
以下に書きますのがヒントのものです。

Sub 円周率()
Dim xx As Double
Dim yy As Double
Dim rr As Double
Dim nn As Long
Dim ii As Long
Dim nmax As Long
Dim ens As Double
nmax = InputBox("最大試行回数")
MsgBox ("saidai" & nmax)
ii = 0
For nn = 1 To nmax
xx = Rnd(1)
yy = Rnd(2)
rr = xx * xx + yy * yy
If Sqr(rr) <= 1# Then
ii = ii + 1
Else: ii = ii
End If
Next nn
MsgBox ("current ii" & ii)
MsgBox ("nmax" & nmax)
ens = 4# * CDbl(ii) / CDbl(nmax)
MsgBox ("円周率" & ens)
End Sub

何卒よろしくお願いいたします。

補足
ヒントのプログラムの内容を少しいじって体積から円周率を求めよ、とのことでした。
言葉足らずで申し訳ございません。