• ベストアンサー

複数のオブジェクトをループで処理したい場合

以下のような処理をしたい場合 Dim objData1 As Object Dim objData2 As Object Dim objData3 As Object Dim objData4 As Object Dim i As Integer For i=0 to 4 ここでオブジェクトの１～４を順番に処理 Next 変数iをobjData[i]の様にしたいのですが どのようにすればいいのでしょうか？

noname#9122
noname#9122

質問者が選んだベストアンサー

  • ベストアンサー
  • 2ch
  • ベストアンサー率51% (64/125)
回答No.1

Dim objData(1 to 4) As Object For i=1 to 4 objData(i) = hogehoge Next

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • Forループの制御について

    VB 2005,Framework2.0を使用しています。 For文を使ったループについてお尋ねしたいことがあります。 For i As Integer = 0 To 10 　　　　’処理 Next i とあったとします。 そうするとループ変数iが0から10になるまで連続してループを行うのですが、これをある条件の時に現在のループ変数から一つ飛ばして次のループからまた処理を行いたい場合どのようにすれば良いのでしょうか？ 例えば０～１０回中に、現在５回目で特定の条件が一致したときその次の６回目のループは飛ばして７回目のループから再開したいです。 ちなみにこの様に書いても０から１０回必ずループされてしまいました。 Dim TEST(10) As Integer TEST(5) = 1 For i As Integer = 0 To 10 If TEST(i) = 1 Then i = i + 1 End If Next i

  • エクセル　マクロ　ループ処理の構文について

    お世話になります。エクセル初心者です。 i < j の関係があるときに、それぞれの数値をfor構文でループを回したいです。 ｉ の数値は外部から入力される前提です。 現在、以下のような構文を考えています(istartとiendは外部から決められた数値とします）が、 この場合、jendはiend + 1とすれば良いのですが、jstartはどのように入力すれば良いでしょうか？ 修正箇所を指摘（もしくは全文修正）していただけると、非常に助かります。 よろしくお願いいたします。 Sub test() Dim i As Integer Dim j As Integer Dim istart As Integer Dim iend As Integer Dim jstart As Integer Dim jend As Integer istart = 1 iend = 50 For i = istart To iend For j = jstart To jend '実行したい内容 Next Next End Sub

  • オブジェクト名

    複数のWinsockを使用したいです。 オブジェクト名Winsock1～Winsock6があるとします。 例えば Dim i As Integer Dim strWinsock As String For i = 1 to 6 strWinsock = Winsock & i //処理 Next 上記のようなループで文字列strWinsockを、オブジェクト名として使用することはできないのでしょうか？ また、もし他の方法があるようでしたら、教えて下さい。

  • 【Excel_VBA】オブジェクト名の変数

    ExcelVBA（2007）でシートのオブジェクト名を変数で回したく、下記コードを用いたのですがエラーが出現します。 【コード】 Dim i As Integer For i = 1 To 10 Sheet & i.Activate Next i 【エラー内容】 コンパイルエラー： 修正候補：式 この場合、どのような方法を用いたらシートのオブジェクト名を変数でうまく回すことができるのか、ご教授いただければ助かります。 よろしくお願いします。

  • シート名をループに

    質問を簡単にする為に以下のマクロがあるとします。 シート名が1～31とあるのですが、これをfor loopで 使うにはinteger等の定義が違うのでしょうか。 Sub bbb() Dim ws As Worksheet Dim 曜日 As String Dim i As Integer For Each ws In Worksheets For i = 1 To 31 If ws.Name = i Then　　<----------ここでエラー 　（コマンド) End If Next i Next End Sub

  • Excel マクロ：変数を複数使う場合

    マクロ初心者です。 For文で、変数を２つ定義し、それぞれが１つずつ増えてくれるような マクロを組みたいのですが、うまくいきません。 例えばA列の並んだ数字を、B列に一個とばしで入力するとして・・・ 例） Dim i As Integer Dim j As Integer For j = 2 To 10 Step 2 For i = 1 To 9 Cells(j, 2).Value = Cells(i, 1).Value Next i, j ではだめですよね。iが１つ増える時に、jも１つ増える、 というようにVBAを組むことが可能なのでしょうか？ ど素人な質問ですみませんが、教えてください。

  • オブジェクト名を変数で参照できますか

    VB初心者です。 配列の場合 Dim str(10) as string と宣言し、i番目のデータを取り出したいときには、str(i)　と記述すると思います。 そこで質問ですが、例えばCommandが1～10まであるとします。 オブジェクト名はそのまま(Command1, Command2)で、それぞれのCaptionに違ったデータが入っています。 (例えば、Command1のCaptionには'A' Command2のCaptionには'B'といった感じに) ある文字列があり、For文を使い、CommandのCaptionとその文字列が一致したときに文字列を出力するという処理を行いたいとき、どのように Command1～10のCaptionを回せばいいのでしょうか？ コードを記述しておきます。 Dim str(10) as String Dim i as Integer Dim j as Integer for i = 0 to 10 for j = 0 to 10 ☆☆ if Command(i).Caption = str(j) then print.str(j) end if next next ☆☆のところです。 可能であれば回答をお待ちしております。 環境は　windows XP, VB6.0 です。

  • Excel VBA; 複数のループ処理

    ↓のようなコードがあります。 Dim i As Long, MaxRow1 As Long, MaxRow2 As Long MaxRow1 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row MaxRow2 = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To MaxRow1 Worksheets("Sheet1").Cells(i, 1).Value = i . Next i For i = 1 To MaxRow2 Worksheets("Sheet2").Cells(i, 1).Value = i . Next i これらを最大行の多いシートに合わせて、パフォーマンスを良くしたいと思います。 同様の処理をシート1、シート2で実施しているので纏めて記述したいです。 シート1、シート2に対する処理をサブルーチンにする方法しかありませんか? どなたかお願いします。 If MaxRow1 >= MaxRow2 Then For i = 1 To MaxRow1 Else For i = 1 To MaxRow2 End If Worksheets("Sheet1").Cells(i, 1).Value = i Worksheets("Sheet2").Cells(i, 1).Value = i . Next i

  • マクロの処理速度が遅くなってしまいました

    　今までエクセル２０００を使用していたのですが、エクセル２００３にバージョンアップして、以下の処理速度を検証したところ、処理が遅くなってしまいました。内容はsheet2にあるデータを変数に格納して簡単な計算をした後にsheet1に入力するということを5回繰り返し、それぞれの処理にかかる時間をsheet3に表示するというものです。 Sub タイム計測() 　　Dim myStart As Single, myGoal As Single 　　Dim j As Integer 　　Application.ScreenUpdating = False 　　Sheets(1).Select 　　Cells.Clear 　　　　For j = 1 To 5 　　　　　　myStart = Timer 　　　　　　　　Call サンプル 　　　　　　myGoal = Timer - myStart 　　　　　　Sheets(3).Select 　　　　　　Cells(j, 1) = myGoal 　　　　　　Sheets(1).Select 　　　　Next 　　　　Sheets(3).Select 　　Application.ScreenUpdating = True End Sub Sub サンプル() 　　Dim i As Integer, j As Integer 　　Dim Data As Variant, KeKKa(1 To 2000, 1 To 199) As Variant 　　Data = Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(2000, 199)) 　　For i = 1 To 2000 　　　　For j = 1 To 199 　　　　　　KeKKa(i, j) = Data(i, j) + Data(i, j) 　　　　Next 　　Next 　　Range(Cells(1, 1), Cells(2000, 199)) = KeKKa End Sub エクセル２０００のときは1回当り平均して概ね0.7秒位で処理していたのですが、エクセル２００３にすると1.4秒位かかってしまいます。処理速度が遅くなってしまうとバージョンアップした意味がないのですが、原因や改善策があればどなたか教えていただけないでしょうか？よろしくお願いします。

  • VB初心者です　For　Nextの構文について

    処理したい内容はA列に数字１～１０まで数字を A1のセルから順番に入力させるという処理を For　Next　を使用して実行させたいのですが上手くいきません。ソースは以下になります。 Sub 記入() Dim i As Integer Dim n As Integer n = 0 For i = 1 To 10 n = n + i Next ＞Range("A" + n) = n End Sub ＞の部分でエラーになります。ここの部分を A1 A2 A3 ・ ・ 　　　列番号 と A + ○　を繰り返しでカウント変数　n　で繰り返しをさせたいのですが、どう処理すればよろしいですか？　アドバイスお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する