VBA StDev関数について

Question

Excel VBAで偏差値を算出するプログラムを作成しています。
その中の標準偏差の算出についてなのですが、
現在は以下のように

For i = 1 To 100
    標準偏差 = WorksheetFunction.StDev(Range(Cells(1, i), Cells(100, i)))
    (省略)
Next i

ワークシートのセルを範囲指定して算出を行っています。

これを2次元配列を用いた算出方法に変えたいのですがどのようにすればいいのでしょうか。
(そもそもStDev関数に2次元配列を用いれるのでしょうか…？)

皆様のお力をお借りできれば幸いです。
よろしくお願いいたします。

Comments

[Tak1wa]

仰っている２次元配列とはどういうイメージですか？StDevの引数のRangeの話でしょうか？やりたいことのイメージを記載して頂けると

[Alice0225]

>>Tak1waさん
既存のセルの値を用いたStDev関数を、２次元配列の値を用いたStDev関数に書き換えたいのです。
２次元配列はStDevの引数として使用したいのですが実現可能なのでしょうか…？

Answer 1

２次元配列のデータとは、例えば...
9,9,8
7,8,7
9,8,9
という感じのデータを考えられていますか？

rangeは何行あっても大丈夫なので、excel 2010であれば
stdev.p(a1:a3, b1:b3, c1:c3)のように指定可能です。

質問の「２次元配列のデータ」と回答が合っていればいいんですが。

Comments

[Alice0225]

質問がわかりにくい書き方で申し訳ありません。
2次元配列をそのままStDev関数の引数として使いたかったのです。

[Jake]

そちらでしたか～。
「２次元配列をそのまま使う」事が目的ではなくて、２次元配列のデータをとにかくstdevにかけるのが目的であれば、for文で：

For y = yMin To yMax
For x = xMin To xMax
z[cnt] = hoge[x,y]
cnt=cnt+1
Next x
Next y
のようにして１次元にしてしまうのもアリっちゃーアリです。
１次元になってしまえば後は普通にstdev(z)でOKですね。
(計算コストに見合うかは別ですが。)

[Alice0225]

やはり２次元配列をそのまま引数にするのは不可なのですね。
ご回答ありがとうございましたm(_ _)m

Answer 2

こんにちは。
二次元配列を用いるのであれば指定するだけで済むでしょう。
ただ二次元配列を指定した結果どのような値を期待していますか？
おそらく試した感じだと一次元でも多次元でもひとつの集合とみなされるだけですけど。

なお、STDEVは将来的に使えなくなる可能性がありますのでSTDEV.S関数に代用したほうが無難です。

    Dim arg1(8) As Integer
    arg1(0) = 11
    arg1(1) = 22
    arg1(2) = 33
    arg1(3) = 44
    arg1(4) = 55
    arg1(5) = 66
    arg1(6) = 77
    arg1(7) = 88
    arg1(8) = 99
    Cells(1, 1) = WorksheetFunction.StDev_S(arg1)
    
    Dim arg2(2, 2) As Integer
    arg2(0, 0) = 11
    arg2(0, 1) = 22
    arg2(0, 2) = 33
    arg2(1, 0) = 44
    arg2(1, 1) = 55
    arg2(1, 2) = 66
    arg2(2, 0) = 77
    arg2(2, 1) = 88
    arg2(2, 2) = 99
    Cells(1, 2) = WorksheetFunction.StDev_S(arg2)

Comments

[Alice0225]

ご回答頂き、ありがとうございます。
StDev_sを用いたほうが良いのですね。勉強になります。

>Dim arg2(2, 2) As Integer
> arg2(0, 0) = 11
> arg2(0, 1) = 22
> arg2(0, 2) = 33
> arg2(1, 0) = 44
> arg2(1, 1) = 55
> arg2(1, 2) = 66
> arg2(2, 0) = 77
> arg2(2, 1) = 88
> arg2(2, 2) = 99
> Cells(1, 2) = WorksheetFunction.StDev_S(arg2)

提示頂いた上記コードに関して、
arg2(1から100まで,5番目固定)のような指定をすることはできませんか？
当方の質問・補足回答が稚拙な為お手数おかけし申し訳ございません。
イメージとしては
標準偏差 = WorksheetFunction.StDev_s(配列(1, i):配列(100, i))
のようなことがしたいのです。

[Tak1wa]

出来ません。StDev_Sの仕様ではなくVBAの配列仕様の範囲を超えていると思います。ReDimでどうにかやれるかもしれないですが、制限も多いので原始的に、Cellに一度張り付けてRangeで指定するか、For文で回すかになるでしょう。

[Alice0225]

やはりその方法しかないのですね。
元々、「配列→セルに書き出す→標準偏差算出」で行っていたのですが簡単にそのまま配列使えたりしないかな…と思ったのですが残念です。
ご回答頂きありがとうございましたm(_ _)m