|
はじめまして、こんにちは!
02/10/21(月) 12:47投稿分の過去ログ239を参考に、コピー後にコードを削除したいと思うのですが、わからない部分があり、質問させていただきました。
表現等間違いがありましたら申し訳ありません。
この中にある以下のコードを参考に、シート2のWorksheet_BeforeDoubleClickの記載をコピー後に削除したいと思うのですが、うまくいきません。
vbc.Type = 100 And vbc.properties("name") = "main" Then
この部分を
vbc.Type = 100 And vbc.properties("name") = "シート2" Then
に置き換えるような考え方では駄目なのでしょうか。
ご教授何卒宜しくお願いします。
過去ログに記載されているこのコードを参考にしたいと思っています。
Sub s_copy()
Dim new_book As Workbook
Dim vbc As Object
Application.ScreenUpdating = False
Sheets("main").Copy
Set new_book = ActiveWorkbook
For Each vbc In new_book.VBProject.VBComponents
If vbc.Type = 100 And vbc.properties("name") = "main" Then
With vbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
End If
Next
Application.ScreenUpdating = True
End Sub
シート2には以下のようなコードが書かれています。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Row = 4 And .Column = 19 Then
Call Macro1
ElseIf .Row = 4 And .Column = 22 Then
Call Macro2
ElseIf .Row = 4 And .Column = 27 Then
Call Macro3
End If
End With
End Sub
このコードをコピー後に削除したいのです。
マクロ自体は標準モジュールに記載しており、コピー後には残っていません。
|
|