【魍生技】-代號名稱自動分離宏命令

超源

還算實用的功能

dickych

感謝分享，收下了。

飯桶

感謝樓主， 一直困擾的問題，好東西必須學習。
$ I6 J' a+ x4 ]$ \+ m& y4 T

凌凌柒

威望不夠，下載不下來

凌凌柒

沒下載權限，我輸入圖號名稱也是服服帖帖受不了拉

dickych

謝謝樓主分享

Ranger003

謝謝大佬，這樣方便多了

xinshiji666

t = Left(LTrim(e), 3)
$ x; |5 R7 e* z: G8 E$ O; M這行代碼有些多余吧！開始聲明了 Dim e As String , 但并沒有賦值，這里是想實現：如果文件名開頭是“GBT”的話，就自動更改為“GB/T”，可這里的e是空字符串，沒有賦值啊！試了一下，可以實現自動添加代號、名稱屬性，簡單實用。
提個建議，程序執行完后，可以彈窗提醒，已完成。在倒數第二行插入：msg = MsgBox("OK", vbOKOnly)

挑剔的耳朵

感謝樓主，有了這個東西真是太好了
2 q9 B; u  w0 `6 v: s

雨季77

謝謝分享，學習了。