![](https://img-blog.csdnimg.cn/20201014180756923.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
文章平均质量分 63
liuxiaoddd
道路千万条,安全第一条!
展开
-
VBA通过一定规律匹配后另存为文件
下载下来80多个文件只有中文机构名,通过机构对照表匹配对应的机构号,然后用机构号来另存文件。运行前:运行后:机构表:代码附上:Sub GetAll()Dim MyPath$, MyName$, NewName$, orgname$, orgno$Dim N%, POS%, a%Dim MyFileDim count!N = 1POS = 0a = 1ActiveWorkbook.Sheets(1).Columns(1).ClearActiv..原创 2021-10-27 16:48:31 · 677 阅读 · 0 评论 -
VBA 入门笔记
去年刚刚学习VBA,总结一下入门知识,包括属性定义,选择判断循环等等。Sub aa()MsgBox _"学习 VBA ing"End SubSub 属性赋值()Sheet2.Name = "属性赋值"Sheet2.Range("b2") = "This is B2 cell"End SubSub 选择()Range("a1:a10").Sel原创 2016-02-25 14:13:57 · 1511 阅读 · 0 评论 -
VBA 入门进阶 实用小程序
这些都是平时用到的小程序,涉及到知识点的都总结下来了,主要包括循环的利用,文件读写,学会了很简单,只要把逻辑整理清楚就好。最复杂的是没有规律的Excel文档,这个最让人头疼。。--------------------------------------------------------------------------------------------------------原创 2016-02-25 14:17:50 · 4218 阅读 · 0 评论 -
Excel VBA遍历所有sheet创作目录并超链接,无视特殊符号
通过VBA遍历所有的sheet并在第一页创建超链接很简单,网上已经提供了很多相关的例子,我在此列举一种最简单的,直接copy即可使用,如下:Sub lianjie()Dim x As Longx = 0For x = 1 To Sheets.Count '从第四页开始 Sheet1.Hyperlinks.Add Anchor:=Cells(x, 1), _原创 2017-07-02 12:42:11 · 3203 阅读 · 2 评论 -
最近开发的基于Excel的考试系统---VBA
应朋友之邀,用EXCEL做了一个简单的考试系统,由于没有服务器,所以没有网络通信,只是简单的本地判断得分。在每台电脑上面都可以进行考试,根据题库随机出题,交卷后自动统计分数。共50道单项选择题,题目可以通过其他页签自行定制。技术并不复杂,主要还是从一个小型系统的健壮性出发,对VBA整体加深了解,历时两天。 .资源已经上传:https://download.csdn.n...原创 2016-12-03 12:22:29 · 8870 阅读 · 16 评论 -
两万常用汉字的拼音+首字母缩写+unicode编码对照表
最近做项目遇到一项需求,为了隐藏汉字,对医院名称使用首字母代替,对医生名称用拼音代替。查阅了众多资料,比较分散,也不规范,做一个统一,问题包括以下几方面:1. 读出汉字的拼音首字母可通过Excel 公式实现;2. 读出汉字的拼音实现方法,基本需要借助编程,但是目前网上流传最广的版本是比较老旧的版本,不仅编码覆盖不全,而且有错误的mapping。3. 得到2万个常用的汉字并不容易,最...原创 2019-08-14 12:36:18 · 9487 阅读 · 1 评论