|
Kein さん、こんにちは。
いつもありがとうございます。
>CodeModuleオブジェクトの Findメソッド のヘルプを調べて下さい。
使用例が難しく、ヘルプで色々調べたのですがやはり難しく、
結局、以前のKeinさんの過去ログ:46335も参考にさせていただきました。
次のようにしたところ上手くいきました。
>Sub Mcr_Ins()
>Dim MCode As String
Dim intKazu As integer
Dim i As integer
>MCode = ***ここにコード記述***
>Application.ScreenUpdating = False
intKazu = ActiveWorkbook.VBProject.VBComponents.Count
If intKazu = 0 Then GoTo IRERU
For i = 1 To intKazu
If ActiveWorkbook.VBProject.VBComponents(i).CodeModule.Find("****", 1, 1, -1, -1, True) = True Then GoTo OWARI
Next i
IRERU:
>ActiveWorkbook.VBProject.VBComponents.Add vbext_ct_StdModule
>Application.VBE.CodePanes(1).CodeModule.AddFromString MCode
OWARI:
>Application.ScreenUpdating = True
>End Sub
ありがとうございました!
|
|