'合格者の配列と受講台帳のセル範囲で照合する
Function myAddr(arGou, rAddress As Range)
Dim ar() 'Rangeの範囲のデータを入れる動的配列
ar = rAddress 'こちらは全部の値をチェックする
Dim i As Integer, j As Integer, k As Integer
j = 1 'For文の中で使い始めで0だと飛ぶため。
ReDim arr(1 To UBound(ar, 1), 1 To UBound(ar, 2)) 'データ以上になることは無い
Dim iii As Integer 'arrの行番号用、列はjを使う
For i = 1 To UBound(ar, 1) '２次元配列の１番目、行。１から始めるのはｒがRangeだから
For k = 1 To UBound(ar, 1) 'iの各行に全arGouの名前と照合するために繰り返す
If arGou(i, 2) = ar(k, 4) Then 'arGouの２列目とarの４列を比較
iii = iii + 1 'スタートが１なので先に１にしておく
For j = 1 To UBound(ar, 2) '２次元配列の２番目、列
arr(iii, j) = ar(k, j) 'iではなくk
Next
End If
Next
Next
myAddr = arr
End Function
'=myAddr(myGoukaku(テーブル3),テーブル12)
'2つの２次元配列から転移目的の関数の完成です
Function myTennki(arTest, arAddress)
Dim i As Integer, j As Integer, k As Integer
If UBound(arTest, 1) > UBound(arAddress, 1) Then
i = UBound(arTest, 1)
Else
i = UBound(arAddress, 1)
End If
If UBound(arTest, 2) > UBound(arAddress, 2) Then
j = UBound(arTest, 2)
Else
j = UBound(arAddress, 2)
End If
ReDim arr(1 To i, 1 To j) '２つの引数の最大でメモリを確保
j = 1 'For文の中で使い始めで0だと飛ぶため。
Dim iii As Integer 'arrの行番号用、列はjを使う
For i = 1 To UBound(arTest, 1) 'rTestの方の行処理
For k = 1 To UBound(arAddress, 1) 'ｒAddreの方の行の処理
If arTest(i, 2) = arAddress(k, 4) Then '名前が一致するか
iii = iii + 1 'スタートが１なので先に１にしておく
arr(iii, 1) = arAddress(i, 2) 'クラス番号
arr(iii, 2) = arAddress(i, 3) '出席番号
arr(iii, 3) = arAddress(i, 4) '名前
arr(iii, 4) = arTest(k, 3) '設備
arr(iii, 5) = arTest(k, 4) '取扱
arr(iii, 6) = arTest(k, 5) '法規
End If
If VBA.IsEmpty(arTest(i, 1)) Then Exit For
If VBA.IsEmpty(arAddress(k, 1)) Then Exit For
Next
Next
myTennki = arr
End Function
'myTennki(myGoukaku(rTest), myAddr(myGoukaku(rTest), rAddress))
'使いやすくする。ラッパー関数。２つのテーブルを引数にする
Function myKansei(rTest As Range, rAddress As Range)
myKansei = myTennki(myGoukaku(rTest), myAddr(myGoukaku(rTest), rAddress))
End Function
'とにかく合の人だけを返す
Function myGoukaku(rTest As Range)
Dim ar() 'Rangeの範囲のデータを入れる動的配列
ar = rTest 'セルの値が入る
Dim i As Integer, j As Integer
j = 1 'For文の中で使い始めで0だと飛ぶため。
ReDim arr(1 To UBound(ar, 1), 1 To UBound(ar, 2)) 'データ以上になることは無い
Dim ii As Integer 'arrの行番号用、列はjを使う
For i = 1 To UBound(ar, 1) '２次元配列の１番目、行。１から始めるのはｒがRangeだから
If "合" = ar(i, 6) Then '６列目に合か否かがある
ii = ii + 1 'スタートが１なので先に１にしておく
For j = 1 To UBound(ar, 2) '２次元配列の２番目、列
arr(ii, j) = ar(i, j)
Next
End If
Next
myGoukaku = arr
End Function
Function hanntei(setu, tori, hou)
If setu + tori + hou ＜180 Then
hanntei = "不"
Else
hanntei = "合" '以下の判定前にとりあえず合
If setu ＜ 40 Then hanntei = "不" 'Thenの内容が簡素なら一行の方が見やすい
If tori ＜40 Then hanntei = "不"
If hou ＜ 40 Then hanntei = "不"
End If
End Function
