匹配查询中找到的数据

Question

我需要创建一个VBA代码来计算我创建的查询中的数据是否匹配。我发现很难开始编写代码。

我开始做的是以下内容：

Private Sub Analyse_Click()
Dim row As Long
With Query("qry_test1").Range((qry_test1Range))

    For row = 1 To .rows.Count

    If .Cells(row, AccountingPeriodCol).Value Like AccountingPeriodCriteria

    Debug.Print .Cells(row, ValueCol)

   End If
End Sub

错误，因为出现错误错误的参数数量或无效的属性赋值。

请一些人如此解释这个问题

Answer 1

除了用Sheets("WorksheetName")替换Query("qry_test1")之外，代码中的内容是Excel-VBA。

这不起作用。对于这样的东西，你想使用SQL。

1. 在基本语法上阅读tutorial。

2. Create → Query Design → SQL View。

3. 编写SQL。

   中的某些内容

   SELECT * 
   FROM qry_Test 
   WHERE AccountingPeriod = 'your Criteria'` 
   

   应该做你想做的事。

4. 可选择将其包装到VBA