[已解决]查询

爱很简单

查询，关于插入批注问题，查询结果能显示满足条件的批注！！！！！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-12-7 15:59

1. Private Sub CommandButton1_Click()
   
2.     Dim sr1$$, xrng As Range
   
3.     [a8:c8].Clear
   
4.     sr1 = [D4]
   
5.     Set xrng = Sheets("2").[A:A].Find(sr1, lookat:=xlWhole)
   
6.     If Not xrng Is Nothing Then xrng.Resize(1, 3).Copy [a8]
   
7. End Sub

复制代码

跳转到最佳答案楼层

爱很简单

grf1973 发表于 2015-12-7 15:59

如果有多个结果呢？？？？

grf1973

1. Private Sub CommandButton1_Click()
   
2.     Dim sr1$$, xrng As Range
   
3.     [a8:c8].Clear
   
4.     sr1 = [D4]
   
5.     Set xrng = Sheets("2").[A:A].Find(sr1, lookat:=xlWhole)
   
6.     If Not xrng Is Nothing Then xrng.Resize(1, 3).Copy [a8]
   
7. End Sub

复制代码

grf1973

1. Private Sub CommandButton1_Click()
   
2.     [a8:d100].Clear
   
3.     sr1 = [D4]
   
4.     With Sheets("2")
   
5.         For i = 2 To .[a65536].End(3).Row
   
6.             If .Cells(i, 1) = sr1 Then n = n + 1: .Cells(i, 1).Resize(1, 4).Copy Cells(n + 7, 1)
   
7.         Next
   
8.     End With
   
9. End Sub
   

复制代码