Question

我没有阅读续集文档，也没有发现任何适用于此的内容。我需要在数据库中查找所有帖子，除非给出“ where”条件。如果给出条件，请使用该条件。基本上是SELECT * OR WHERE something = something FROM somedatabase。有没有办法通过续集来实现这一目标？

Answer 1

您只需要通过空对象的条件，然后它将查找所有对象：

Private Sub Worksheet_Change(ByVal target As Range) 'Works
Dim fndTrgt As Range, fndCel As Range

    If target.Address = "$A$1" Then
        Set fndTrgt = Sheets("Sheet2").Rows(1).Find(target.Value)

        If Not fndTrgt Is Nothing Then
            For i = 1 To 5
                Set fndCel = Sheets("Sheet1").Range("A2:D12").Find(fndTrgt.Offset(i).Value)
                If Not fndCel Is Nothing Then
                    fndCel.Offset(, 1).Value = fndTrgt.Offset(i, 1).Value
                End If
            Next i
        End If
    End If

End Sub

除非给定WHERE参数，否则续用findAll（）吗？

1 个答案: