| |
▼ka1 さん：
変数名に変数を組み合わせて使うことはできないと思います。
以下ではいかがでしょう。
getNum(1) とか GetNum(5) といった感じで参照します。
以下のコードではグループの数や、その人数をとりあえず固定で作成していますが
シートのどこかにリストでもっておいて、それを取り込むのがいいかもしれませんね。
Option Explicit
Const nmax As Long = 10 'グループ数
Dim v(1 To nmax) As Long
Dim done As Boolean
Sub Test()
MsgBox getNum(1)
MsgBox getNum(8)
MsgBox getNum(100)
End Sub
Private Function getNum(idx As Long) As Long
If Not done Then
v(1) = 3
v(2) = 8
v(3) = 5
v(4) = 10
v(5) = 20
v(6) = 30
v(7) = 40
v(8) = 50
v(9) = 60
v(10) = 70
End If
done = True
If idx > UBound(v) Then Exit Function
getNum = v(idx)
End Function
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
