２次元配列で考えたいのですが。(excelvba)

質問

何時も助かっています。

今回は、
２次元配列かと思うのですが、次のようなことをやりたいと思っています。

１次元に名前、
２次元に試技４回分の記録を保有し、

例えば、
山田、(２,３,２,２)
田中、(３,３,４,３)
木村、(２,２,１,２)
中野、(５,２,４,５)
（続く）

＜ptn1＞
各人の記録一覧作成

山田さんの記録
１回目　２回
２回目　３回
３回目　２回
４回目　２回
平均　　２．２５回

田中さんの記録
１回目　３回
２回目　３回
３回目　４回
４回目　３回
平均　　３．２５回

木村さんの記録
（続く）

＜ptn２＞
各人の記録検索

木村さんの３回目＝１回
中野さんのベスト＝２回

以上ですが、
(1)どのような定義をし、
(2)どんな扱い方をするのがよいでしょうか。
(3)試技回数は（同じ結果の要素なので）まとめて扱うのはダメでしょうか。
出来れば、まとめて配列に入れておき、参照するときに分解したいのですが。

※配列に必要な要素はシートに書かせることが可能です。
例えば、
Ａ列に名前、Ｂ～Ｅ列に１回～４回分の試技回数。

以上ですが、
ポイントをコードして貰えると助かります。
宜しくお願いします。

windowsXP excel2003

回答No.2

WindFaller · ベストアンサー

こんばんは。

>今回は、
>２次元配列かと思うのですが、次のようなことをやりたいと思っています。
>１次元に名前、
>２次元に試技４回分の記録を保有し、

ご自分の中で、想像する分には一向にかまわないし、それで自分でトライするのは応援しますが、少しでも、ご自分で、VBEに向かって取り組んでほしいものです。一応、今回の質問は、回答者への挑戦として、こちらも、それなりには考えました。

>試技回数は（同じ結果の要素なので）まとめて扱う
この配列のことを「多段配列」と言います。

1行目：山田　　2　　3　　2　　2
　・
　・
　・

'//
Sub Sample01()
　Dim myScore As Variant
　Dim i As Long, j As Long
　Dim buf As Variant
　With Worksheets("Sheet1")
　　j = .Cells(Rows.Count, 1).End(xlUp).Row
　　ReDim myScore(1, j - 1)
　　For i = 1 To j
　　　myScore(0, i - 1) = .Cells(i, 1).Value
　　　buf = .Cells(i, 2).Resize(, 4).Value
　　　myScore(1, i - 1) = Application.Transpose(buf)
　　　.Cells(i, 6).Value = Application.Average(myScore(1, i - 1))　'平均
　　　.Cells(i, 7).Value = Application.Max(myScore(1, i - 1)) 'ベスト
　　Next i
　End With
End Sub
'//

お礼

早速有り難うございました。

＞この配列のことを「多段配列」と言います。
　まさにこれが聞きたかったモノです。

とにかく動かしてみましたが、
未だ内容の理解は全く出来ていません。
これから内容を理解し、コレをベースにやりたいことを拡張していきます。

＞VBEに向かって取り組んでほしいものです。
　仰るとおりで、そのつもりで居ますが、
　いかんせん基本がないモノでして、
　引き金を引いて貰えるとそこからはなんとか、というレベルです。
　一応教えられればナンとかものにでき、その後はそれを足掛かりに進められる、
　というレベルです。
　「一から」というレベルにはほど遠いと思っています。
　これからも宜しくです。

お世話になりました。

回答No.1

kkkkkm

以下のページが参考になるような感じです。
■2次元配列
http://www.excel-vba.net/excel-array-003.html

お礼

早速有り難うございました。
お教えいただいたサイトは日頃参考にしておりまして、
今回も見ております。

お陰様で２次元配列は分かりました。
ただ、複数要素を１箇所にまとめて格納する、
ということがやりたかったので、質問させていただきました。
お世話になりました。