[已解决]请高手帮忙看下这个用vba怎么表示，谢谢

qiongmei

我附件上有2表，一个是生日表，一个是资料库，当我在生日表中的g3列输入月份和日期的时候，点击查询生日按钮的时候，他就会在资料库中找出有相同月份和日期的b列和d列到生日表中对应的表格中，生日表中就是我希望得到的结果，谢谢高手的帮忙。

aglQqKqL.rar (40.19 KB, 下载次数: 2)

2010-12-21 21:49 上传

点击文件名下载附件
请高手帮忙看下这个用vba怎么表示，谢谢

最佳答案

月排行榜 / 总排行榜

lyn666666

2010-12-21 23:39

Sub q()
Dim arr, i%, Erow%, s, k%
s = Month(Range("G3").Value) & Day(Range("G3").Value)
k = 1
With Sheets("资料库")
    Erow = .[D65536].End(3).Row
    arr = .Range("A4:AK" & Erow)
End With
For i = 1 To UBound(arr)
    If Month(arr(i, 33)) & Day(arr(i, 33)) = s Then
        k = k + 1
        Cells(k, 1) = arr(i, 2)
        Cells(k, 2) = arr(i, 4)
        Cells(k, 3) = arr(i, 33)
    End If
Next
End Sub

跳转到最佳答案楼层

lyn666666

Sub q()
Dim arr, i%, Erow%, s, k%
s = Month(Range("G3").Value) & Day(Range("G3").Value)
k = 1
With Sheets("资料库")
    Erow = .[D65536].End(3).Row
    arr = .Range("A4:AK" & Erow)
End With
For i = 1 To UBound(arr)
    If Month(arr(i, 33)) & Day(arr(i, 33)) = s Then
        k = k + 1
        Cells(k, 1) = arr(i, 2)
        Cells(k, 2) = arr(i, 4)
        Cells(k, 3) = arr(i, 33)
    End If
Next
End Sub