【魍生技】-代號(hào)名稱自動(dòng)分離宏命令

超源

還算實(shí)用的功能

dickych

感謝分享，收下了。

飯桶

感謝樓主， 一直困擾的問題，好東西必須學(xué)習(xí)。
: [. N! @1 a0 @+ v( d4 |/ s; M

凌凌柒

威望不夠，下載不下來

凌凌柒

沒下載權(quán)限，我輸入圖號(hào)名稱也是服服帖帖受不了拉

dickych

謝謝樓主分享

Ranger003

謝謝大佬，這樣方便多了

xinshiji666

t = Left(LTrim(e), 3)
這行代碼有些多余吧！開始聲明了 Dim e As String , 但并沒有賦值，這里是想實(shí)現(xiàn)：如果文件名開頭是“GBT”的話，就自動(dòng)更改為“GB/T”，可這里的e是空字符串，沒有賦值啊！試了一下，可以實(shí)現(xiàn)自動(dòng)添加代號(hào)、名稱屬性，簡(jiǎn)單實(shí)用。
提個(gè)建議，程序執(zhí)行完后，可以彈窗提醒，已完成。在倒數(shù)第二行插入：msg = MsgBox("OK", vbOKOnly)

挑剔的耳朵

感謝樓主，有了這個(gè)東西真是太好了
1 n! r2 U. K& r8 v* R. B2 l

雨季77

謝謝分享，學(xué)習(xí)了。