Question

excel怎么设置一个宏或者是其他和Vlookup的功能一样？

首先我先建立了一个数据库，数据库里面包含代码和这个代码所包含的内容，我的问题是，不用VLOOKUP用其他的方式在同一个EXCEL的另一个工作薄里只要输入代码后面就能立刻出来代码所对应的内容，请问怎么设置？

Answer 1

我理解你的意思是说：比如你在单元格内输入CHN，然后在数据库查找CHN对应的代码是“中华人民共和国”，然后你在单元格内一按回车（或者别的结束编辑的动作），这个单元格的内容就直接变成“中华人民共和国”是吗？请掌握操作如下：

1. 按ALT+F11，双击左侧的ThisWorkBook，在WorkBook的SheetChange事件中写下相应的VBA代码；

2. 用Target.Cells.Value = Content这一句来让你刚才编辑的那个单元格的值改变即可。

VBA代码如下：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim Content As String
  '在这里插入根据用户输入target.cells.value获取对应内容Content的代码
  '这里就直接给Content赋值了
  Content = "test"
  Target.Cells.Value = Content
End Sub

我这个写得很简单，所以也会有一些问题，比如当删除单元格内容的时候也会把单元格的内容改成test，你根据你的实际情况，如果用户输入的内容不能在你的数据库里查找到匹配的内容的时候不要修改target.cells.value的值就是了。

追问

你这个编出来怎么后在EXCEL里不管输什么都是“test”啊？怎么更改

追答

你先告诉我你准备怎么根据用户输入的内容查找对应的代码，比如用户在单元格内输入CHN，你如何查找到对应的“中华人民共和国”这个内容？
我给的这段代码只是给你参考的，不是让你照抄。你要根据查找到的对应内容来决定是否更改Target.Cells.Value啊。如果查找不到就不要执行这一句，不更改单元格内容。

追问

谢谢了，我还是不太懂，可能是没学过vb编程吧，

追答

没学过VB没关系啊，你就告诉我你想从哪里如何获取用户输入对应的内容就行。

追问

已经建好的数据库里，这个数据库里有代码和代码所对应的内容

追答

数据库是ACCESS还是什么？那一句Content="test"改成连接数据库并获取代码对应内容，如果能够获取内容就修改Target.Cells.Value，如果不能获取代码对应内容就不进行修改。

Answer 2

见附件  在工作表中输入编号 这个编号是对照表里面的 你想输什么  自己改  然后 工作表就可以根据变化  附件excel 2010版本 请查收 祝你成功

追问

你好 谢谢你的附件，我的意思是前面一列是代码，后面一列是代码在数据库里对应的内容，不是出现在同一列内，也就是说在前一列输入代码，后面那一列就出现代码所对应的内容了 ，能不能实现这个功能啊 ，谢谢啊

追答

才看到。。。更改了下 见附件

追问

谢谢，非常好用，可是我想知道怎么弄

追答

加qq 三零七五七四三六八

Answer 3

indirect配合MATCH函数
省略100字。。。