仪器信息网APP
选仪器、听讲座、看资讯

如何使用EXCEL快速进行标准查新

实验室认可/资质认定

  • 1.前言

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

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

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

    2.准备工作

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

    VBA在开发工具里




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

    以下我的常的查询地址:


    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怎用的,请百度

附件:

  • 该帖子已被版主-zal加10积分,加2经验;加分理由:鼓励原创
    +关注 私聊
  • zal

    第1楼2021/08/12

    应助达人

    这个方法不错,以前我们都是在工标网上一个一个的查,花费比较长的时间,能够批量查比较快速,省了人力,回头试试

0
    +关注 私聊
  • Insm_96869987

    第2楼2021/08/13

    代码还未审核通过,能直接贴出来吗

1
    +关注 私聊
  • Insm_96869987

    第3楼2021/08/13

    这个代码的目的是打开对应的网页吗?而不是自动在excel里标注是否有新标准 ,对吗

0
    +关注 私聊
  • 原天

    第4楼2021/08/13

    应助达人

    对的。如果你想要是否有更新,这就复杂多了,需要再写个爬虫,再对爬到的信息进行判断。判断还不太准

    Insm_96869987(Insm_96869987)发表:这个代码的目的是打开对应的网页吗?而不是自动在excel里标注是否有新标准 ,对吗

0
    +关注 私聊
  • 原天

    第5楼2021/08/14

    应助达人

    之前代码贴在文章里,发表不出去,会有错误。文章上的三个张图就是完整的代码了,第三张图接第一张,再接第二张。

    Insm_96869987(Insm_96869987) 发表:代码还未审核通过,能直接贴出来吗

0
    +关注 私聊
  • 123

    第6楼2021/08/16

    应助达人

    谢谢分享!

0
    +关注 私聊
  • m2953719

    第7楼2021/08/23

    有点厉害的样子

0
0
    +关注 私聊
  • 漫蔓成妖

    第9楼2021/11/24

    先复制代码自己慢慢看看

0
    +关注 私聊
  • Ins_212c1615

    第10楼2021/11/26

    高手!感谢分享!

0
查看更多
举报帖子

执行举报

点赞用户
好友列表
加载中...
正在为您切换请稍后...