Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13919 / 76807

←次へ　｜　前へ→


	【68390】シートをコピーした後、マクロを削除する方法について。

橋本栄香 - 11/3/2(水) 14:10 -


	引用なし

	パスワード

はじめまして、こんにちは！

02/10/21(月) 12:47投稿分の過去ログ239を参考に、コピー後にコードを削除したいと思うのですが、わからない部分があり、質問させていただきました。
表現等間違いがありましたら申し訳ありません。

この中にある以下のコードを参考に、シート２のWorksheet_BeforeDoubleClickの記載をコピー後に削除したいと思うのですが、うまくいきません。

vbc.Type = 100 And vbc.properties("name") = "main" Then
この部分を
vbc.Type = 100 And vbc.properties("name") = "シート２" 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

シート２には以下のようなコードが書かれています。

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

このコードをコピー後に削除したいのです。
マクロ自体は標準モジュールに記載しており、コピー後には残っていません。

0 hits

▼

【68390】シートをコピーした後、マクロを削除する方法について。 橋本栄香 11/3/2(水) 14:10

≪