返回列表下一主題上一主題發帖

如何用VBA更改 vba modular 的名稱

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-2-3 14:06 | 只看該作者

如何用VBA更改 vba modular 的名稱

本帖最後由 yen956 於 2017-2-3 14:08 編輯

如何用VBA更改 vba 中 modular 的名稱
例如:
sub test()
...
...
end sub
如何改成
sub test1()
...
...
end sub

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-2-4 04:27 | 只看該作者

回復 1# yen956

Function TEST3()
'更改的模組
Set Obj = Application.VBE.ActiveVBProject.VBComponents("Module1")
Row2 = Obj.CodeModule.ProcStart("TEST1", 0)
RowCount = Obj.CodeModule.ProcCounts("TEST1", 0)
Text = Split(Obj.CodeModule.s(Row2, RowCount), vbCrLf)
Randomize
Call Obj.CodeModule.Replace(Row2, "Function TEST2()")
End Function
Function TEST1()
'被更改的模組
A = B
End Function

複製代碼

PKKO

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2017-2-4 12:40 | 只看該作者

回復 2# PKKO
謝謝快速回覆, 謝謝,
不過很抱歉!看不慬如何測試,
試著從 test5 開始測試(step by step),
結果到紅色框框那列, 即出現下列訊息, 為何?
ps:原po文標題錯誤, 應改為
『如何用VBA更改 vba 的 macro 名稱』才對

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2017-2-6 10:00 | 只看該作者

本帖最後由 yen956 於 2017-2-6 10:01 編輯

回復 3# yen956
大大您們好:
在努力google後, 發現原來是﹝引用項目﹞及﹝設定巨集安全性﹞的問題, 即
1. 設定引用項目: Microsoft Visual Basic For Applications Extensibility 5.3
2. 巨集安全性:勾選信任 Visual Basic
但, 也只會多執行一列, 原先停留在紅色框那列,
現在停留在藍色框框那列, 即會出現這個訊息, Why?