VBAエクセルループがこの*****誰もこの結論に私を導くためにあなたの助けをありがとう解決されている！私の中******</p> <p>だから、すべてのアレイ

Question

**** UPDATEを処理しません。以下に示すコードは、1行を除いて意図したとおりに動作します。

If c = myArray(x) Then

このスクリプトでは、私がunmentioned残っているファイルを読み込み。ファイルから 'A'列を読み取り、各行をmyArrayにスローします。私はダイアログボックスにループアウトすると、データを適切に出力するので、配列が機能することが分かります。ループは適切に各行を検索し、 'c'に等しい場合はデータを取得して別のシートに配置します。私はこれがうまくいくことを知っている私の問題は、myArray(x)という要素を整数 'c'と比較するために追加しようとするときです。それは整数 'x'でmyArray()を適切にループするためにx整数を見ることを拒否します。

誰かが私に説明してください。myArray(x)が適切にループしないか、解決策を手伝ってくれるのですか？私はベテランのVBAプログラマーではありませんが、私は正当に機能するコードを書いています。私はちょっとした細部が見当たらず、簡単なことを見落としたような気がします。助けを借りれば、これは仕事目的のためのものであり、自分自身だけでなく、他人を助けてくれることに感謝します。

Sub myArray() 
    Dim FSO As Object, MyFile As Object 
    Dim FileName As String, Arr As Variant 
    Dim c As Range 
    Dim j As Integer, i as Integer 
    Dim Source As Worksheet, Target As Worksheet 

    FileName = "" '<--This is left intentionally blank. 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set MyFile = FSO.OpenTextFile(FileName, 1) 
    Arr = Split(MyFile.ReadAll, vbNewLine) 
    Set Source = ActiveWorkbook.Sheets("Sheet1") 
    Set Target = ActiveWorkbook.Sheets("Sheet2") 

    i = 0 
    j = 1 

    For i = LBound(Arr) To UBound(Arr) 
    For Each c In Source.Range("B:D") 
     If c = Arr(i) Then 
      Source.rows(c.Row).Copy Target.rows(j) 
      j = j + 1 
     End If 
    Next c 
Next i 

End Sub 

Answer 1

に開始することを見てきましたループはB1:D6719ループとは独立しているため、xが上限を超えて増加した後の配列です。

それが何かのようにコードを修正した場合、次のようになります。エラーが発生したとき

For Each c In Source.Range("B1:D6719") 
    If c = CInt(myArray(x)) Then '<--Here is where my problem is, this line right here 
     Source.rows(c.Row).Copy Target.rows(j) 
     j = j + 1 
     x = x + 1 
    End If 

    If x > UBound(myArray) Then Exit For 
Next c 

Answer 2

1で始まる配列を呼び出してみてください。

他人 examples of array in vba上

x = 1 
    if c = myArray(x) then 

私は、彼らはあなたがチェックし続ける可能性が高いているように見えます1ではなく0