このコードをワンクリックで完全に実行するにはどうすればいいですか？

Question

私はこのコードをspreadsheetguruから見つけました。コードの目的は、Excel 16.0ライブラリを有効にすることです。私はそれが自動的にライブラリを追加し、それを必要とするコードの残りの部分を実行するように、私のコードの前にこれを追加できるようにしたい。今、私は2つのサブシステムでそれを持っています。私がここに持っているプラ​​イベート・サブです。そして、次は私のマクロの残りの部分と一緒にパブリック・サブです。今すぐマクロを実行すると、ここでpsotというコードが実行されて停止します。その後、もう一度クリックすると、次のサブが実行されます。これをすべてワンクリックで行えるようにする方法はありますか？たぶん、それをすべて1つのサブ、または私が気付いていない他のプライベート/パブリックサブコンビネーションにすることによって？

ありがとうございます！記事spreadsheetguruで

Private Sub ActivateReferenceLibrary() 

'PURPOSE: Activate Specific Object Libraries 

'Error Handler in Case Reference is Already Activated 
    On Error Resume Next 

    'Activate PowerPoint Library (version 2.9) 
     Application.VBE.ActiveVBProject.References.AddFromGuid _ 
      GUID:="{00020813-0000-0000-C000-000000000046}", _ 
      Major:=0, Minor:=0  

'Reset Error Handler 
    On Error GoTo 0 

End Sub 

Answer 1

それは（サブActivateReferenceLibraryとして与えられた）ので、あなただけのサブにあなたのプライベートサブを変更する必要があります。その後、あなたの他のSubでは、私はaverageScoreRelayと呼ばれると思いますが、最初にこの行を書くでしょう： Call ActivateReferenceLibrary。 両方のSubルーチンが同じブックと標準モジュール（同じ標準モジュールに配置できる）にあることを確認してください。

いくつかのライブラリ参照はデフォルトであり、削除することはできません。別のエラーメッセージが表示されます。たとえば、Excel 2016を使用している場合、Excel 16.0オブジェクトライブラリは自動的にデフォルトで表示されます。これを以前のバージョンに追加したり、2016から削除することはできません（私は信じています）。

他のサブルーチンがどのように動作しているかわかるように、コードを投稿してください。そのようなあなたは、ある基準の依存関係を削除することができる場所、遅延バインディングなど

他のいくつかの解決策が、ここで議論されています VBA reference libraries