从基础数据中查询并标注

pop2009

liulang0808 发表于 2020-10-16 13:24
Sub 按钮1_Click()
    If Len()  4 Then
        MsgBox "b1单元格数据不符合要求"

再请教一下版主，
如果用您第一组代码，如何实现2个条查询，标注，谢谢！

liulang0808

pop2009 发表于 2021-3-3 15:42
再请教一下版主，
如果用您第一组代码，如何实现2个条查询，标注，谢谢！

没有明白是什么意思的

pop2009

liulang0808 发表于 2021-3-3 19:37
没有明白是什么意思的

您好，您的第一组代码已实现了1个条件查询和标注，现在需要2个条件（身份证号和预约时间
）查询和标注。

liulang0808

pop2009 发表于 2021-3-4 11:38
您好，您的第一组代码已实现了1个条件查询和标注，现在需要2个条件（身份证号和预约时间
）查询和标注。

18楼的附件是否解决了这个问题？

pop2009

liulang0808 发表于 2021-3-4 11:55
18楼的附件是否解决了这个问题？

18楼的附件可以解决，后续因为字段的位置发生了变化，还有就是多了几个不需要统计的sheet。
您第一组的代码，比较好理解，自己水平还不行，改动了一下运行不了，所以请将第一组代码帮忙改变一下为2个条件查询和标注，谢谢。

pop2009

liulang0808 发表于 2021-3-2 13:20
Sub 按钮1_Click()
    If Len()  4 Then
        MsgBox "b1单元格数据不符合要求"

我又回顾了18楼代码的数据，再次请教一个问题：
现身份证号码在第8列，预约时间在第7列，标注在第5列，标注时间为第6列，请版主帮忙优化处理。谢谢
！

pop2009

pop2009 发表于 2021-3-4 14:47
我又回顾了18楼代码的数据，再次请教一个问题：
现身份证号码在第8列，预约时间在第7列，标注在第5列， ...

上传了附件，请版主帮忙吧，谢谢！

pop2009

liulang0808 发表于 2021-3-4 11:55
18楼的附件是否解决了这个问题？

我又回顾了18楼代码的数据，再次请教一个问题：
现身份证号码在第8列，预约时间在第7列，标注在第5列，标注时间为第6列，请版主帮忙优化处理。谢谢
！ 上传了附件，请版主帮忙！

liulang0808

pop2009 发表于 2021-3-4 14:47
我又回顾了18楼代码的数据，再次请教一个问题：
现身份证号码在第8列，预约时间在第7列，标注在第5列， ...

Sub 按钮1_Click()
    If Len([b1]) = 0 Then
        MsgBox "请您输入数字"
        Exit Sub
    End If
    ActiveSheet.UsedRange.Offset(2).ClearContents
    arr = Sheets("原始数据").UsedRange
    r = 0
    For j = 2 To UBound(arr)
        If Right(arr(j, 8), Len([b1])) = [b1] & "" Then
            r = r + 1
            For i = 1 To UBound(arr, 2)
                arr(r, i) = arr(j, i)
            Next i
        End If
    Next j
    If r > 0 Then
        r1 = 0
        If VBA.IsDate([d1]) Then
            For i = 1 To r
                If CDate([d1]) = CDate(arr(i, 7)) Then
                    r1 = r1 + 1
                    For j = 1 To UBound(arr, 2)
                        arr(r1, j) = arr(i, j)
                    Next j
                End If
            Next i
            If r1 > 0 Then
                [a3].Resize(r1, 8) = arr
            End If
        Else
            [a3].Resize(r, 8) = arr
        End If
    End If
End Sub


楼主的描述没有看懂，就修改了身份证查询位数，

pop2009

liulang0808 发表于 2020-10-16 13:30
Sub 按钮1_Click()
    If Len()  4 Then
        MsgBox "b1单元格数据不符合要求"

您好版主，现在应用后数据量已打上限，需要分解成多个sheet表，并需要多表查询与标注（见附件），请您帮忙解决，谢谢！