2つの異なるブックからの列を使用してVBAでif文を作成する

Question

変数「yes_n」と「yes_d」があるとします。分母はD、分子はnです。私は、ワークブックA、フラットファイル、およびワークブックB、参照ファイルを持っています。私は、2つの異なるブックから列を引き出そうとしている場合、ブックA、シートA、列A =ブック内のセル内の単語B、シート、列B、および左の列の単語セルBの変数がyesであれば、変数yes_dに1を加えます。その後、ワークブックAのセルDの単語が「ある価値」であれば、分子にも1を加えます。もしcellA（workbookA.SheetA.columnA）= cellB（workbookB.SheetB.columnB）とB = "yes"、そしてyes_d + 1のオフセットのような場合、どうすればいいですか？cellDworkbookA.SheetA.columnD）= "ある値「その後、yes_n + 1

For M = 2 To 1000 
    For R = 2 To 60 

     If Workbooks("\flatfile.xlsb").Worksheets("ifyesorno").Range("A" & M) = _ 
      Workbooks("\referencefile.xlsm").Worksheets("reference1").Range("B" & R)_ 
      And Workbooks("\referencefile.xlsm").Worksheets("reference1").Range("A"_ 
      & R).Value = "yes" Then 

      yes_d = yes_d + 1 

      If Workbooks("\flatfile.xlsb").Worksheets("ifyesorno").Range("D" & M) = "some value" Then 

       yes_n = yes_n + 1 

      End If 
     End If 

    Next 
Next 

Answer 1

あなたのコードのロジックは、すでにあなたの基準を満たしています。あなたが不適切に開いているブックを参照した。ワークブックが開かれていないなら、あなたはそれらを開く必要があります。スペースが必要とされています。コードと行継続間_

不正：.Range("B" & R)_

正しい.Range("B" & R) _

参照を短くする変数を作成すると、コードの可読性が大幅に向上します。

Dim wsFlat As Worksheet, wsReference As Worksheet 
Set wsFlat = Workbooks("flatfile.xlsb").Worksheets("ifyesorno") 
Set wsReference = Workbooks("referencefile.xlsm").Worksheets("reference1") 

For M = 2 To 1000 
    For R = 2 To 60 

     If wsFlat.Range("A" & M) = wsReference.Range("B" & R) And wsReference.Range("A" & R).Value = "yes" Then 

      yes_d = yes_d + 1 

      If wsFlat.Range("D" & M) = "some value" Then 
       yes_n = yes_n + 1 
      End If 
     End If 

    Next 
Next