实战宝典 原创大赛 仪器问答 仪友会 总帖：8039327今日发帖：28 我的社区 签到
快速导航 采购仪器 提醒
实验室认可/资质认定
版主:
入住本版
专家:
居民列表

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

浏览0 回复25 电梯直达
原天
头像
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
发表于：2021/08/11 16:29:48 楼主 管理 分享 倒序浏览 只看楼主 回复 私聊
维权声明：本文为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)
该帖子作者被版主 zal加 10积分， 2经验，加分理由：鼓励原创
为您推荐
近期热榜
热门活动
您可能想找: 技术咨询 询底价
选参数 看心得 找厂商 查方案
专属顾问快速对接
立即提交
相关阅读
zal
zal
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/8/12 10:12:12 沙发 管理 分享 倒序浏览 只看楼主 回复 私聊
这个方法不错，以前我们都是在工标网上一个一个的查，花费比较长的时间，能够批量查比较快速，省了人力，回头试试
赞贴
0
收藏
0
拍砖
0
举报
Insm_96869987
Insm_96869987
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/8/13 14:19:20 板凳 管理 分享 倒序浏览 只看楼主 回复 私聊
代码还未审核通过，能直接贴出来吗
赞贴
1
收藏
0
拍砖
0
举报
Insm_96869987
Insm_96869987
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/8/13 17:04:22 马扎 管理 分享 倒序浏览 只看楼主 回复 私聊
这个代码的目的是打开对应的网页吗？而不是自动在excel里标注是否有新标准 ，对吗
赞贴
0
收藏
0
拍砖
0
举报
原天
jianquan69
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/8/13 17:42:31 地毯 管理 分享 倒序浏览 只看楼主 回复 私聊
原文由Insm_96869987(Insm_96869987)发表:这个代码的目的是打开对应的网页吗？而不是自动在excel里标注是否有新标准 ，对吗
对的。如果你想要是否有更新，这就复杂多了，需要再写个爬虫，再对爬到的信息进行判断。判断还不太准
赞贴
0
收藏
0
拍砖
0
举报
原天
jianquan69
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/8/14 9:00:41 地板 管理 分享 倒序浏览 只看楼主 回复 私聊
原文由 Insm_96869987(Insm_96869987) 发表:
代码还未审核通过，能直接贴出来吗
之前代码贴在文章里，发表不出去，会有错误。文章上的三个张图就是完整的代码了，第三张图接第一张，再接第二张。
赞贴
0
收藏
0
拍砖
0
举报
123
m3149125
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/8/16 6:30:43 6楼 管理 分享 倒序浏览 只看楼主 回复 私聊
谢谢分享！
赞贴
0
收藏
0
拍砖
0
举报
m2953719
m2953719
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/8/23 14:43:02 7楼 管理 分享 倒序浏览 只看楼主 回复 私聊
有点厉害的样子
赞贴
0
收藏
0
拍砖
0
举报
Ins_4c39a94e
Ins_4c39a94e
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/9/24 14:17:45 8楼 管理 分享 倒序浏览 只看楼主 回复 私聊
楼主太棒了
赞贴
0
收藏
0
拍砖
0
举报
漫蔓成妖
v3315154
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/11/24 16:16:45 9楼 管理 分享 倒序浏览 只看楼主 回复 私聊
先复制代码自己慢慢看看
赞贴
0
收藏
0
拍砖
0
举报
Ins_212c1615
Ins_212c1615
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2021/11/26 10:52:42 10楼 管理 分享 倒序浏览 只看楼主 回复 私聊
高手！感谢分享！
赞贴
0
收藏
0
拍砖
0
举报
手机版： 如何使用EXCEL快速进行标准查新
头像
高级回复 发表评论
品牌合作伙伴
岛津
日立科学仪器
珀金埃尔默仪器（上海）有限公司（PerkinElmer）
日本电子株式会社
丹纳赫
安捷伦
赛默飞世尔科技
普析通用
欧波同
天美
天瑞仪器
德国耶拿
海能技术
马尔文帕纳科
磐诺科技
上海仪电科仪
梅特勒托利多
聚光科技
莱伯泰科
盛瀚
多宁生物
丹东百特
科哲
卓立汉光
屹尧科技
华谱科仪
宝德仪器
优莱博
HORIBA
布鲁克核磁