Access VBA質問箱 IV

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

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


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

1969 / 9994

←次へ　｜　前へ→


	【11306】Re:変数の指定方法

hatena - 09/12/17(木) 23:30 -


	引用なし

	パスワード

>64ヶ所あるので　If で組むと非常に長くなってしまう。

a1 ～ a16 までを変数を呼び出す場所が64ヶ所あり、
同じ長いコードを何度も繰り返すのを避けたいという意味なら、

Dim x As Long, z
Dim a1, a2, a3, a4, a5

Function geta(i As Long)
　　Select Case i
　　Case 1: geta = a1
　　Case 2: geta = a2
　　Case 3: geta = a3
　　Case 4: geta = a4
　　Case 5: geta = a5
　　End Select
End Function

Sub Hoge()

　　a1 = "あ"
　　a2 = "い"
　　a3 = "う"
　　a4 = "え"
　　a5 = "お"

　　x = InputBox("1から5までの数値を入力")
　　
　　z = geta(x)

　　MsgBox z

End Sub

外していたらスルーしてください。

264 hits

▼

【11299】変数の指定方法 さぶちん 09/12/16(水) 11:44