プロが教える店舗&オフィスのセキュリティ対策術

次のような処理で・・・、
 Cnt_1 = Cnt_1 + 1
 Cnt_2 = Cnt_2 + 1
   :
実際には一つの変数(Cnt_1など)ごとに処理がもっとあるのですが、
変数はCnt_1からCnt_5まであり、すべて同じ処理をするので、変数名を
可変にして同じループで書けないかと思うのですが、可能でしょうか?

たとえば、
For I=1 to 5
 Cnt_I = Cnt_I + 1
Next I
と書くと、「Cnt_I」という変数の処理になってしまいますね・・。

なにかいい方法はないでしょうか?

gooドクター

A 回答 (2件)

こんばんは。



配列変数を使えばいいでしょう。
変数を5個用意して、すべて1~5まで足すという処理の場合です。
Dim Cnt(4) As Integer
Dim i As Integer
Dim j As Integer
For i = 0 To 4
For j = 1 To 5
Cnt(i) = Cnt(i) + j
Next j
Next i
どうでしょうか。
    • good
    • 7
この回答へのお礼

できました!ありがとうございます!勉強になりました!

お礼日時:2007/02/24 01:03

Sub test01()


Dim c(5, 5)
For j = 0 To 5
For i = 0 To 3
c(i, j) = i + j
Next i
Next j
'---
For j = 0 To 5
For i = 0 To 3
MsgBox c(i, j)
Next i
Next j
End Sub
こんなのを参考にして、何とかなりませんか。
    • good
    • 0
この回答へのお礼

参考にさせていただきます。ありがとうございました。

お礼日時:2007/02/24 01:04

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング