マクロとして表示されないサブを実行するにはどうすればよいですか？

Question

私は私が私のワークブックに追加したいと思い、このサイト上のコードの逸品を見つけました：

Trim all cells within a workbook(VBA)

コードがある：

Sub DoTrim(Wb As Workbook) 
    Dim aCell As Range 
    Dim wsh As Worksheet 

    '~~> If you are using it in an Add-In, it is advisable 
    '~~> to keep the user posted :) 
    Application.StatusBar = "Processing Worksheets... Please do not disturb..." 
    DoEvents 

    Application.ScreenUpdating = False 

    For Each wsh In Wb.Worksheets 
     With wsh 
      Application.StatusBar = "Processing Worksheet " & _ 
            .Name & ". Please do not disturb..." 
      DoEvents 

      For Each aCell In .UsedRange 
       If Not aCell.Value = "" And aCell.HasFormula = False Then 
        With aCell 
         .Value = Replace(.Value, Chr(160), "") 
         .Value = Application.WorksheetFunction.Clean(.Value) 
         .Value = Trim(.Value) 
        End With 
       End If 
      Next aCell 
     End With 
    Next wsh 

    Application.ScreenUpdating = True 
    Application.StatusBar = "Done" 
End Sub 

私はコピーして試してみましたこれをExcelモジュールに貼り付けますが、実行方法を理解することはできません。私はです。実際にはですので、これは愚かな質問であれば事前にお詫び申し上げます。 Subがマクロとして表示されない理由を調べたところ、変数が含まれているため、Subがマクロとして表示されない可能性があります。

元のポスターがアドインを修正しようとしていたことを認識しています。私はちょうどそこにワークブックでこれを呼び出す方法があると思っています。

ありがとうございます！

Answer 1

サブルーチンは、パラメータSub DoTrim(Wb As Workbook)としてブックを期待しているので、あなたがすることができます、Excelのモジュールは、あなたがトリミングする同じワークブック内にある場合は、マクロウィンドウ

からそれを実行することはできませんパラメータを削除し、ワークブックでワークシートをループに代わりThisWorkbookオブジェクトを使用して、以下のように：

Sub DoTrim() 
    Dim aCell As Range 
    Dim wsh As Worksheet 

    '~~> If you are using it in an Add-In, it is advisable 
    '~~> to keep the user posted :) 
    Application.StatusBar = "Processing Worksheets... Please do not disturb..." 
    DoEvents 

    Application.ScreenUpdating = False 

    For Each wsh In ThisWorkbook.Worksheets 
     With wsh 
      Application.StatusBar = "Processing Worksheet " & _ 
            .Name & ". Please do not disturb..." 
      DoEvents 

      For Each aCell In .UsedRange 
       If Not aCell.Value = "" And aCell.HasFormula = False Then 
        With aCell 
         .Value = Replace(.Value, Chr(160), "") 
         .Value = Application.WorksheetFunction.Clean(.Value) 
         .Value = Trim(.Value) 
        End With 
       End If 
      Next aCell 
     End With 
    Next wsh 

    Application.ScreenUpdating = True 
    Application.StatusBar = "Done" 
End Sub