修法布施得聪明智慧，多分享让生活更美好。工作中有时需要在Excel对数据查询等应用，下通过一实例分享受Excel数据库的查询几种应用方法。
工具/原料
MicrosoftOfficeExcel2007
ExcelVBA
实例问题
1、想要用Excel做一张单词表方便背单词，希望能有办法做到浏览时单词词义列是空白，需要查看的时候点击一下能显示出来。
2、根据上面方问题分析，利用Excel数据库多种方法处理达到上面功能，进行分述如下。
数据库建立
1、上面实例首先建立单词库数据库，在Excel工作簿一张新表命名“单词库”，A1，B1，C1列分别为“序号”，“英语”，“汉语”。并输入英语单词和汉语。如下图：
方法一：隐藏列处理
1、为了不显示汉语部分，在“单词库”表中可以隐藏C列，需要取消隐藏C列。
方法二：公式处理
1、“单词库”表所有填写单词数据A1:C101命名mb。
2、新建一表，命名为“公式处理”，在A1,B1,C1,D1,分别填写“序号”，“英语”，”汉语”，“1显示英语2显示汉语，3两者都显示”。D2:设置数据有效性中序号1,2,3（下拉列表框）。下面单元格对应填写：A2:1B2： =CHOOSE(D2,VLOOKUP(A2,mb,2,FALSE),"",VLOOKUP(A2,mb,2,FALSE))C2： =CHOOSE(D2,"",VLOOKUP(A2,mb,3,FALSE),VLOOKUP(A2,mb,3,FALSE))序号不同和D列的选1或2或3时，将按“1显示英语2显示汉语，3两者都显示”。
方法三：VBA处理
1、“单词库”表复制副本并名“VBA处理”，“单词库”表所有填写单词数据b1:C101命名ma。
2、鼠标移到当前工作表标签栏“Sheet1”表，右键，弹出快捷菜单，如下图。
3、在快捷菜单找到【查看代码】并单击，打开VBA（宏）编辑界面，如下图。
4、在左边代码框中复制下面代码到该框中，如下图。DimmyrAsRangePrivateSubWorksheet_SelectionChange(ByValTargetAsRange)'2020-4-1521:46:49IfTarget.Column=2ThenTarget.Offset(0,1).Value=Application.WorksheetFunction.VLookup(Target,Sheet3.Range("ma"),2,False)EndIfOnErrorGoTomy:myr.Offset(0,1).Value=""Setmyr=TargetExitSubmy:Setmyr=TargetExitSubEndSub
5、如上步骤操作过程如下动画图。
6、回到工作表窗口，试下运行结果情况，如下动态图。
7、如果觉得这篇经验帮到了您，请点击下方的“投票点赞"或者“收藏”支持我！还有疑问的话可以点击下方的“我有疑问”，谢谢啦！