制御 指定した標準モジュールのソースコードを全行削除する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][制御 指定した標準モジュールのソースコードを全行削除する]
Option Explicit


Sub ModuleDelete()
'**************************************************
'指定した標準モジュールのソースコードを全行削除する
'**************************************************

Dim cntLine As Long, strModule As String

strModule = "module3" '該当モジュール名を指定

With ActiveWorkbook.VBProject.VBComponents(strModule).CodeModule

    '該当モジュールのソースライン総数取得
    cntLine = .CountOfLines

    '指定行目から指定行目までを削除
    .DeleteLines 1, cntLine

End With

End Sub





Production Japan Import Application. Since 1998