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

liwenhong

在“卡片”工作表设有上/下条查找命令按钮，查找时，要以D2单元格中的内容为目标，在“信息库”工作表的C列中查找到D2的上或下一条记录，将结果显示在“卡片”工作表的J2单元格中。【D2单元格中后函数：IF(J2="",VLOOKUP(B3,信息库!A:C,3,FALSE),J2)】
附件： 上下条查找问题.zip (61.25 KB, 下载次数: 14)

2013-4-14 14:12 上传

点击文件名下载附件

恳请高手解决！

我设计的意图是使用两种方法查询，即职工姓名首字母和职工编号的方法，而且能在一张查询表（就是“职工技术卡片”）中显示，对不重名的职工只需在“查询”弹出的窗体中输入姓名的首字母，对有重名的还需输入职工编号（职工编号输入栏在窗体的最下）

虽然附件文件中有循环引用，但是有条件函数，不会冲突的，D2中的函数是：IF(J2="",VLOOKUP(B3,信息库!A:C,3,FALSE),J2)
B3中的函数是：IF(J1="",VLOOKUP(D2,信息库!C:D,2,FALSE),J1)
而且按钮启动时还自动清除J1和J2中的内容，“查询”按钮清除J2（辅助编号），上下条按钮清除J1（辅助姓名）

我认为这是一个解决人员重名问题的办法

蓝桥玄霜

1. Private Sub CommandButton4_Click() '上一条按钮
   
2. Dim bh$, m&
   
3. bh = [d2].Value
   
4. Call yy
   
5. m = Application.Match(bh, k, 0) - 1
   
6. If m <> 0 Then
   
7.     [d2] = k(m - 1)
   
8. Else
   
9.     MsgBox "已经是第一条了。"
   
10. End If
    
11. Set d = Nothing
    
12. End Sub
    

复制代码

蓝桥玄霜

直接在D2选择也可以。
请见附件。

liwenhong

蓝桥玄霜 发表于 2013-4-14 15:39
直接在D2选择也可以。
请见附件。

在D2格中选择职工编号，只能使用这一种方法查询职工信息，我设计的原意是使用两种方法查询，即职工姓名首字母和职工编号的方法，而且能在一张查询表（就是“职工技术卡片”）中显示，对不重名的职工只需在“查询”弹出的窗体中输入姓名的首字母，对有重名的还需输入职工编号（职工编号输入栏在窗体的最下），您认为这种查询的方法如何，还请您按原要求改写程序，原要求是：以D2单元格中的内容为目标，在“信息库”工作表的C列中查找到D2的上或下一条记录，将结果显示在“卡片”工作表的J2单元格中。

按这个要求编号程序后，查询时“查询”按钮和“上/条”按钮都可以使用，互不干扰，应该有效解决重名问题。

liwenhong

蓝桥玄霜 发表于 2013-4-14 15:39
直接在D2选择也可以。
请见附件。

我的附件中有循环引用，B2引用D3-----D3引用B2，虽然是循环引用，但是有条件函数，不会冲突的，D2中的函数是：IF(J2="",VLOOKUP(B3,信息库!A:C,3,FALSE),J2)
B3中的函数是：IF(J1="",VLOOKUP(D2,信息库!C:D,2,FALSE),J1)
而且按钮启动时还自动清除J1和J2中的内容，“查询”按钮清除J2（辅助编号），上下条按钮清除J1（辅助姓名）

蓝桥玄霜

liwenhong 发表于 2013-4-14 17:35
在D2格中选择职工编号，只能使用这一种方法查询职工信息，我设计的原意是使用两种方法查询，即职工姓名首 ...

现在就是两个都可以使用，互不干扰的。

liwenhong

蓝桥玄霜 发表于 2013-4-14 20:49
现在就是两个都可以使用，互不干扰的。

您的附件“上下条查找问题0414”当点击“查询”按钮时，职工的名字到了J1单元格，并没有到正表的B2单元格，请您再看看！

liwenhong

过来看看，也许您有办法

蓝桥玄霜

代码没有涉及查询按钮，只是上下条按钮和D2的选择变化事件。

liwenhong

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

是的，您的代码没有涉及查询按钮，但是将上/下条的查询结果（人员姓名）返回到了B3单元格，B3内原来是有公式的，D2单元格内原来也是有公式的。查询按钮和上/下条的查询是联动的。