机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
楼主: 魍者归来

【魍生技】-代号名称自动分离宏命令

[复制链接]
发表于 2021-12-6 20:01:20 | 显示全部楼层
还算实用的功能
回复 支持 反对

使用道具 举报

发表于 2021-12-11 15:24:20 | 显示全部楼层
感谢分享,收下了。
回复 支持 反对

使用道具 举报

发表于 2021-12-29 14:18:41 | 显示全部楼层
感谢楼主, 一直困扰的问题,好东西必须学习。
6 T1 x$ l. C" v6 ~: }/ H- r
回复 支持 反对

使用道具 举报

发表于 2022-1-14 16:42:20 | 显示全部楼层
威望不够,下载不下来
回复 支持 反对

使用道具 举报

发表于 2022-1-14 16:44:46 | 显示全部楼层
没下载权限,我输入图号名称也是服服帖帖受不了拉
回复 支持 反对

使用道具 举报

发表于 2022-1-22 14:19:32 | 显示全部楼层
谢谢楼主分享
回复 支持 反对

使用道具 举报

发表于 2022-2-6 16:11:51 | 显示全部楼层
谢谢大佬,这样方便多了
回复 支持 反对

使用道具 举报

发表于 2022-2-11 16:31:56 | 显示全部楼层
t = Left(LTrim(e), 3) , Y# F6 [: D* n* ~! W
这行代码有些多余吧!开始声明了 Dim e As String , 但并没有赋值,这里是想实现:如果文件名开头是“GBT”的话,就自动更改为“GB/T”,可这里的e是空字符串,没有赋值啊!试了一下,可以实现自动添加代号、名称属性,简单实用。
' X5 @* o0 Q7 b5 B+ P6 L提个建议,程序执行完后,可以弹窗提醒,已完成。在倒数第二行插入:msg = MsgBox("OK", vbOKOnly)
回复 支持 反对

使用道具 举报

发表于 2022-3-4 14:24:28 | 显示全部楼层
感谢楼主,有了这个东西真是太好了
6 h8 f0 w0 ?5 F0 a; b& o
回复 支持 反对

使用道具 举报

发表于 2022-3-6 14:51:54 | 显示全部楼层
谢谢分享,学习了。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2024-3-29 15:41 , Processed in 0.053199 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表