- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
回復 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
|
|
發表於 2017-2-4 04:27
| 
