用VBA能否实现这样的查找功能

564511498 · 发表于 2009-12-4 06:45

在A1:F17范围内,在任意单元格内输入“语文”，则根据输入的内容在J2:K6里查找，找到与之匹配的姓名后，最后显视为“语文张1”。如果找不到匹配的，则输入内容不变。
如果输入“数学”则最后显视为“数学张2”，“音乐”则为“音乐张3”等等。详见附件

hupanshan · 发表于 2009-12-4 07:06

Book1.rar (6.64 KB, 下载次数: 19)

564511498 · 发表于 2009-12-5 20:03

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Then Exit Sub
If Target.Column > 6 Then Exit Sub
Set rg = [j:j].Find(Target, , , 1)
If Not rg Is Nothing Then
      Application.EnableEvents = False
      Target = Target & rg(1, 2)
      Application.EnableEvents = True
End If
End Sub

二楼的代码在同时选中几个单元格进行清除内容时出错，怎样解决呢。还有在同选中几个单元格输入相同内容时（CTRL+ENTER）不进行查找了。

hupanshan · 发表于 2009-12-6 14:06

任何程序都是有局限性的，你上传的不过是道练习题，我不过是提出了解决方案。实际问题五花八门，任何程序都无法全部满足。

boatwxp · 发表于 2009-12-6 15:47

在原代码修改了一下，选中多单元格删除时不报错。但楼主所说同时输入值时不查找，确实无办法。

564511498 · 发表于 2009-12-6 20:53

hupanshan · 发表于 2009-12-7 13:17

Book1.rar (6.85 KB, 下载次数: 45)

		自动登录	找回密码
密码			免费注册

[讨论] 用VBA能否实现这样的查找功能

这是一道简单的练习题

回复 2楼 hupanshan 的帖子