怎么替换宏里面的语句

xdwy81129

如题：把下面的宏语句的第4句替换为 R = 456
该宏在“模块1”下面，但首先不知道该宏所在的模块里面的行，只知道需要替换该宏的第4句语句

Sub 综合()
Dim r&, i&, T:   T = Timer
Dim arr
r = [b65536].End(3).Row
arr = Range("A1:BZ" & r)
....
end sub

谢谢解答，希望解决

蓝桥玄霜

代码放在模块2里面：
Sub DispAllProc()
    Dim strTmp As String
    With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
        strTmp = .Lines(5, 1)
        strTmp = Replace(strTmp, " & r", " & 456")
        .ReplaceLine 5, vbTab & strTmp
    End With
End Sub

老糊涂

学习代码  

xdwy81129

回复 蓝桥玄霜 的帖子

很感谢解答，但是问题中有一个问题没有解决：该宏在“模块1”下面，但首先不知道该宏所在的模块里面的行

老师给出的解答，固定了要替换的行固定在模块1的第5句，很不方便所以还请求在解答

xdwy81129

已知的条件是：Sub 综合  和  在模块1

xdwy81129

已知的条件是：Sub 综合的第4句语句（该宏的第5行）  和  在模块1
就替换该第4句语句

但该第4句语句事先不知道在模块1的多少行，

蓝桥玄霜

Sub DispAllProc()
    Dim strTmp As String
    With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
        For i = 1 To .CountOfLines
            strProcName = .ProcOfLine(i, vbext_pk_Proc)
            If strProcName <> "" And strProcName <> strTmp Then
                strTmp = strProcName
                If strTmp = "综合" Then GoTo 100
            End If
        Next i
        Exit Sub
100:
        strTmp = .Lines(i + 4, 1)
        strTmp = Replace(strTmp, " & r", " & 456")
        .ReplaceLine 5, vbTab & strTmp
    End With
End Sub

xdwy81129

回复 蓝桥玄霜 的帖子

先祝福蓝桥老师新年快乐

很感谢您的回复

可是代码还有有些问题

1.需要替换的宏（综合）不是固定在模块1的第一行开始，sub 综合开始的行可能是第14行，可可能是29行，它也并不是模块1里面的第1个宏，所以还请蓝桥老师再帮助改写代码。
因为代码只可以用于sub 综合  固定在模块1的第一行才能达到目的
而学生希望是sub 综合在模块1里面的然后位置都可以达到实现的目的

请老师烦看附件，模块2我也例举了sub 综合所在的随意的位置

替换代码.rar (8.59 KB, 下载次数: 12)

2011-2-4 04:22 上传

点击文件名下载附件