上下条查找问题，有程序，只需修改即可

liwenhong

蓝桥玄霜 发表于 2013-4-15 08:34
代码没有涉及查询按钮，只是上下条按钮和D2的选择变化事件。

这是我想要的代码，可以解决重名查询问题，但是又遇到了D2和B3单元格互相引用问题，当J1、J2单元格同时为空时，会出现循环错误的报警，所以，没有达到理想的效果，还是要感谢您对我的帮助、指导！希望这个不理想的效果对您有参考。

1. Private Sub CommandButton2_Click() 'ÏÂò»ìõ°′Å￥
   
2.     Call qkxm
   
3.     Dim rg As Range
   
4.     With Sheets(1)
   
5.         ed = .[c65536].End(xlUp).Row
   
6.         Set rg = .Cells.Find([D2], LookIn:=xlValues)
   
7.         If rg.Row < ed Then [J2] = .Range("C" & rg.Row + 1)
   
8.     End With
   
9.     If rg.Row = ed Then MsgBox "&#213;aò&#209;ê&#199;×&#238;oóò&#187;&#206;&#187;à2￡&#161;"
   
10. End Sub
    
11. Private Sub CommandButton4_Click() 'é&#207;ò&#187;ì&#245;°′&#197;￥
    
12.     Call qkxm
    
13.     Dim rg As Range
    
14.     With Sheets(1)
    
15.         Set rg = .Cells.Find([D2], LookIn:=xlValues)
    
16.         If rg.Row > 4 Then [J2] = .Range("C" & rg.Row - 1)
    
17.     End With
    
18.     If rg.Row = 4 Then MsgBox "&#213;aò&#209;ê&#199;μúò&#187;&#206;&#187;à2￡&#161;"
    
19. End Sub
    

复制代码