主题:【第十四届原创】如何使用EXCEL快速进行标准查新

浏览 回复19 电梯直达
原天
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
维权声明:本文为jianquan69原创作品,本作者与仪器信息网是该作品合法使用者,该作品暂不对外授权转载。其他任何网站、组织、单位或个人等将该作品在本站以外的任何媒体任何形式出现均属侵权违法行为,我们将追究法律责任。
1.前言

为做保证标准的符合性,实验室每年都会进行标准查新,但对于标准较多的实验室,耗时较久,并且容易遗漏。

为了应对这种情况,我们可以使用EXCEL+VBA进行查询

PS:电脑要好,网速要快,不然就呵呵呵,不太适用了。

2.准备工作

1)我们要有能使用VBA的EXCEL软件和设计一个标准的表格(用实验室的标准清单就可以)

VBA在开发工具里




2)查询网址的地址,正常你查询了一个标准,就能看到他的查询地址,如果看不到,就使用谷歌的开发者,在资源里找找。

以下我的常的查询地址:

 
标准查找 地址
http://www.csres.com/s.jsp?keyword=
http://std.sacinfo.org.cn/home/query?stdCode=
https://webstore.iec.ch/searchform&q=
https://www.iso.org/search.html?q=
https://www.astm.org/search/fullsite-search.html?query=
https://search.epa.gov/epasearch/?querytext=

3.查询的原理


通过对标准名的关键字的提取,再与查询地址相结合,转到网页

例如 GB/T 22048:2015,我们需要提取出22048,与查询地址给成http://std.sacinfo.org.cn/home/query?stdCode=22048,就能打开





这里的难点,就是如何提取出22048。

使用MIDDLE函数,MID(GB/T 22048:2015,6,5),我们就可以提出22048,但这只符合单个,要为了适应所有的标准,我们需要找出标准中数字的开始位置(例子中是第6位)和提取的个数(例子中是5个),在这里,我使用的是循环函数While




i为开始位置,K为数字的结速位置,k-i就是提取的个数。IName为标准名,我把所双击到的标准名赋值给IName

0~9的CODE值为48~57,根据这两个值,作为循环条件。

有些人会问,能不能不提取数字,直接查找?不行,事实上这样查找,很多时候是查不到标准的。




这里,就里根据标准选择相应的查询地址,GB用GB的地址,IEC用IEC的地址。

P为标准名的前两位,如GB/T 22048,P的值就为GB。这样我们就可以根据P的值分识了。

其他的一些代码赋值



THE END

再PS:

电脑要好,网络要快

不懂VBA怎用的,请百度

附件:
查询代码.txt 所需积分(20)
该帖子作者被版主 zal10积分, 2经验,加分理由:鼓励原创
为您推荐
zal
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
这个方法不错,以前我们都是在工标网上一个一个的查,花费比较长的时间,能够批量查比较快速,省了人力,回头试试
Insm_96869987
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
Insm_96869987
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
这个代码的目的是打开对应的网页吗?而不是自动在excel里标注是否有新标准 ,对吗
原天
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
原文由Insm_96869987(Insm_96869987)发表:这个代码的目的是打开对应的网页吗?而不是自动在excel里标注是否有新标准 ,对吗
对的。如果你想要是否有更新,这就复杂多了,需要再写个爬虫,再对爬到的信息进行判断。判断还不太准
原天
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
原文由 Insm_96869987(Insm_96869987) 发表:
代码还未审核通过,能直接贴出来吗
之前代码贴在文章里,发表不出去,会有错误。文章上的三个张图就是完整的代码了,第三张图接第一张,再接第二张。
123
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
m2953719
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
Ins_4c39a94e
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
漫蔓成妖
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
Ins_212c1615
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵