ExcelでVBAを使用しているモジュールから手順を削除する方法?

4567 ワード

todeleteaprocedurefr vbamacros テキストリンク

このブログ記事では、マイクロソフトExcelでVBAを使ってモジュールから手続きを削除する方法を見ていきます.この記事に入りましょう!次のリンクからMS Excelの公式バージョンを取得しますhttps://www.microsoft.com/en-in/microsoft-365/excel

例

まず、モジュールから別のマクロを削除するマクロを作成する必要があります.

サンプルデータ

Excelのワークシートでは、[開発]タブに移動する必要があります.

次に、コードセクションの下のVisual Basicオプションを選択する必要があります.

選択します

さて、以下のコードをコピーしてペーストする必要があります.

Option Explicit
Sub DeleteProcedureCode(ByVal DeleteFromModuleName As String, ByVal ProcedureName As String)
'Declaring variables
Dim VBCM As CodeModule, ProcStartLine As Long, ProcLineCount As Long
Dim WB As Workbook
On Error Resume Next
'Creating object of active workbook
Set WB = ActiveWorkbook
'Creating object of workbook module
Set VBCM = WB.VBProject.VBComponents(DeleteFromModuleName).CodeModule
'Checking whether the procedure exist in the codemodule
If Not VBCM Is Nothing Then

    ProcStartLine = 0

    'Function assigning the line no. of starting line for the procedure
    ProcStartLine = VBCM.ProcStartLine(ProcedureName, vbext_pk_Proc)

    If ProcStartLine > 0 Then

        'Function assign the no. of lines in the procedure
        ProcLineCount = VBCM.ProcCountLines(ProcedureName, vbext_pk_Proc)

        'Delete all the lines in the procedure
        VBCM.DeleteLines ProcStartLine, ProcLineCount

    End If
    Set VBCM = Nothing
End If
On Error GoTo 0
End Sub
Sub CallingProcedure()
'Declaring variables
Dim ModuleName, ProcedureName As String
'Getting value for module and procedure name from textboxes
ModuleName = Sheet1.TextBox1.Value
ProcedureName = Sheet1.TextBox2.Value
'Calling DeleteProcedureCode macro
DeleteProcedureCode ModuleName, ProcedureName

End Sub

あなたはそれを選択して、ウィンドウを閉じることによってコードを保存する必要があります.