|
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
|
|