Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11503 / 76734

←次へ　｜　前へ→


	【70765】Re:お願いします

UO3 - 11/12/27(火) 22:53 -


	引用なし

	パスワード

▼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

11 hits

▼

【70764】お願いします ka1 11/12/27(火) 22:21