如何自己制作一个可以查询信息的软件或者小程序?

1、准备数据

将原有的数据源下拉一行，然后在表格中复制原有数据源的标题行，粘贴在右边空白列

为什么要把原始数据下拉一行， 因为我们会在右边第2行输入条件数据，如果筛选的时候第2行被隐藏了，后面没法输入条件了。所以为了确保第2行不被隐藏，把原陵衫卖始数据下拉了一行处理。

2、录制宏

关键在于这一步，我们在开发工具中，点击录制宏

然后在数据选项卡下，点击高级筛选，在d出的窗口中，原有列表数据，选择A2:D18

条件区域选择F1:I2，点击确定

在开发工具中，停止录制宏

这个时候可以按ALT+F11，可以看到在VBA里面，自动录制了一行代码：

这个代码不需要改动。

3、绑定录制的代码

我们在开发工具里面，插入一尺逗个按纽，自动绑定刚刚录制的宏，或者，右键按纽，塌野绑定宏即可，我们在年份中输入1992，点击查询，结果就出来了。

*** 作方法原理：

即可以进行某个条件的查询数据，比如，输入想要搜索的关键词，员工小乔，点击查询即可查询出小乔的信息，

也可以进行多个条件满足的同时查询，比如查询市场部的男性，点击查询，也能得到结果。

上面高大上的查询系统，看起来需要很复杂的VBA编程才能实现，实际，只需要简单的一个录制宏就能轻轻松松的解决。

辽宁省以及小部分省份的初试成绩今天起开始公布，其他省份也将于2月20号起开始公布！初试成绩公布之后，小伙伴们就要面临复试和调剂了。为了方便小伙伴们快速查询调剂院校，考研调剂小程序——调剂第一线上线了！

01小程序主要功能

1、智能测评调吵粗剂院校：输入调剂意向地区及专业，个性化推荐调剂院校

2、调剂信息同步更新：汇总信息省时间，优化检索缺额信息

3、全国院校随心检索：800余所院校信息随时查，复试调剂不盲目

02调剂信息查询系统使用指南

智能测评调剂院校

输入已考院校，自选调剂意向地区及专业，根据调剂一区、备碰雹二区不同省份进行科学推荐，如果遇到心仪省份无调剂信息时，也会推荐第二梯队异地相同专业调剂接受院校，按城市发展程度个性化推荐调剂院校。同时，小程序内可多次修改调剂意愿，多维度帮助考生进行调剂测评。

调剂信息同步更新

【调剂第一线】小程序平台免费提供调剂信息查询，汇总历年调剂信息帮助考生仿帆节约搜索调剂信息的宝贵时间，2020调剂信息随院校官网更新补充，更有研究生官网专区，直接链接意向院校报考院校官网，方便快捷易 *** 作，优化检索缺额信息。

全国院校随心检索

小程序内提供800余所院校信息随时查，从初试信息、复试信息、研究方向、就业前景四大板块，帮助梳理院校考研政策及初复试要求，打造全国高校教学资源信息微平台，复试调剂不盲目。

03调剂小程序入口

方式1：关注下方卡片，即可进入

↓↓↓

方式2：公众号菜单栏

↓↓↓

方式3：扫下方海报上的二维码

↓↓↓

以上是考研君整理的“考研调剂小程序来了——为你智能匹配调剂院校！”文章，希望2020考研考生在这段特殊时期不要松懈，在家积极准备考研复试工作！更多考研动态相关内容尽在考研动态频道~武汉加油！湖北加油！

相关阅读：

各省市2020年硕士研究生考试成绩查询时间及成绩查询入口

34所自主划线院校2020考研成绩查询入口汇总

留邮箱啊给你发软件，或者向[email protected]索取

如果你会编程，只要用下边的一个函数即可

原型：

int WINAPI icePub_getIncludeStringsFromFile(char *strFilename,char *strSrc,char *strResult)

输入：strFilename 信息列表文件名

strSrc 待搜索文本串

输出：strResult 包消宏含strSrc的所有文本行

返回码:

VC sample代码：

char strResult[1024]

typedef int (WINAPI ICEPUB_GETINCLUDESTRINGSFROMFILE)(char *strFilename,char *strSrc,char *strResult)

ICEPUB_GETINCLUDESTRINGSFROMFILE *icePub_getIncludeStringsFromFile = 0

HINSTANCE hDLLDrv = LoadLibrary("icePubDll.dll")

if(hDLLDrv)

{

icePub_getIncludeStringsFromFile = (ICEPUB_GETINCLUDESTRINGSFROMFILE *)GetProcAddress(hDLLDrv, "icePub_getIncludeStringsFromFile")

}

if(icePub_getIncludeStringsFromFile)

icePub_getIncludeStringsFromFile("公司列表.txt","百度",strResult)

if(hDLLDrv)

FreeLibrary(hDLLDrv)

AfxMessagBox(strResult)

VB sample 代码顷桥敏：

Private Declare Function icePub_getIncludeStringsFromFile Lib "icePubDll.dll" (ByVal strFilename As String,ByVal strSrc As String,ByVal strResult As String) As Integer

Dim a2 As Integer

Dim strResult As String

strResult=Space(1024)

a2=icePub_getIncludeStringsFromFile("公司列表.txt","百度",strResult)

MsgBox strResult

公司列表.txt里的内容为所有公雀枝司名称，一行一个

---