ID非公開

2018/6/27 11:24

33回答

AccessVBA初心者です。

AccessVBA初心者です。 Case文のことで質問なのですが、 Dim i As integer For i=0 to 300 Dim A（5） As String Case101 A（1）="あ" Case103 A（2）="あ" Case130 A（3）="あ" Case135 A（4）="あ" Case199 A（5）="あ" Next i 例としてこのような感じのコードがあった場合、どうにかして簡潔にまとめることは厳しいのでしょうか…？ なお、他のiの他の数値でも違う処理を行っているため、Case文で行いたいと思っています。 また、実際は"あ"にはcsvファイルをsplitで取得した値が入っている配列があり、jでループしています。 なので、101にはA（1）に"あ"を、103にはA（2）に"あ"を、その時以外には他の配列に"あ"を挿入しない状態にしたいです。 ご回答よろしくお願いします。

Microsoft Access | プログラミング・50閲覧

ベストアンサー

このベストアンサーは投票で選ばれました

めぐみん＿

2018/6/27 12:01

Select Case文の使い方と複数条件の設定方法：Access VBA入門 https://www.feedsoft.net/access/guide-vba/guide6.html こちらの事ではなくてですか？ それに Case ??? の ??? にあたる部分が何から得られるものなのか？が不明ですが。

NEW! この回答はいかがでしたか？ リアクションしてみよう

その他の回答（2件）

ShiroOni

2018/6/30 1:11

あ で、決まってるなら、 SELECT CASEでは、indexNoなどで判定だけして、 indexno=0 '初期化 case 103 indexno=1 みたいにして、 End selectの後で、 if indexno <> 0 then A(indexno)="あ" endif としては、いかがですか？

ony********

カテゴリマスター

2018/6/29 14:03

CASE の値がいくつからいくつまであるのかわかりませんが、 以下のような変換テーブルを用意して、 Case_No Idx_No 101...........1 103...........2 130...........3 135...........4 199...........5 207...........6 254...........7 ： A(Dlookup("Idx_No","変換テーブル","Case_NO=" & Case_NO)) = "あ" とすれば1行でできると思います。