あるかもしれませんが、使ったことはないです。で、作ってみましょう。
Rnがどういう規則性か分からないので、iの初期値(kamoshika333さんの例では0)とMAX値(同じくn)とαの三つを入力すれば答えの出てくる関数SIGMA(StartVal,EndVal,ALPHA)を作成します。VBAの標準モジュールに、以下を貼り付けてください。
Function SIGMA(StartVal As Integer, EndVal As Integer, ALPHA As Double)
SIGMA = 0
For i# = StartVal To EndVal
SIGMA = SIGMA + ALPHA ^ i
Next i
End Function
さて、シートに戻って、任意のセルに
=SIGMA(0,10,2)と入力してみてください。2047が出てきましたね。当然セル参照もできますよ。
=SIGMA(A1,A2,A3)と入力して、A1、A2、A3に任意の数を入れて試してみてください。
Rnも数式で表すことができるのなら、上の
SIGMA = SIGMA + ALPHA ^ i
の部分に追記してください。
成功しましたか?で、ここからが重要です。せっかく作ったこの数式をどのブックでも利用できるようにしましょう。
出来上がったファイルを保存します。その際、ファイルの種類を「Microsoft Excelアドイン (*.xla)」にします。ファイル名はなんでも結構です(後で分かりやすい名前にしておいた方がいいですが)。保存先が「AddIns」になっていたら変えないでください。
さて、Excelの「ツール(T)-アドイン(I)」でアドインダイアログを開き、参照ボタンをクリックしてください。先ほど保存したファイルが登場するはずです。これを選択すると、任意のブックで自作したSIGMA関数が利用できます。
お礼
恐れ入りました(__) 望んでいた以上のことを教えて頂き感謝感激です。モジュールの内容は小生にはさっぱり分かりませんが、結果はバッチリです! ありがとうございます。 EXCELは奥が深いですねぇ。