userformのグローバルワークシート変数excel

Question

ワークシートにデータを追加するユーザーフォームを構築しています。私は私のuserformのサブルーチンをたくさん持っていますが、ワークシートに設定した変数にアクセスする際に問題があります。現在、ローカル変数（サブ）にあり、ここで説明するようにモジュールに配置しようとしました：Can a worksheet object be declared globally in Excel VBA。私はさらに検索をしましたが、私が望む結果を得られませんでした。

私はVBAには新しく、一般的なプログラミングには新しくありません。私はかなりExcelを使用し、VBAを使用してマクロなどを作成することで、もっと多くのことをしたいと思っています。

sub savebutton_click() 
    Dim trees As Worksheet 
    Set trees = ThisWorkbook.Sheets("Sheet1") 
    trees.Cells(1, 1) = Me.TextTreeName 
    trees.Cells(1, 2) = Me.TextTreeType 
End sub 

明らか

を、私は別のサブルーチンからローカル変数にアクセスすることはできませんので、私は「木のグローバルを行う必要があります。ここで私が現在使用しているコードです。私はモジュールを作成し、DimをPublicに置き換え、2行目のコードをWorkbook_Open（）に配置し、次に 'trees'変数にアクセスしようとしました。私は「無効な外部プロシージャ」を取得し、Workbook_Open（）のコードをハイライト表示して「デバッグ」を押します。

私は基本的には、どのサブからtrees.Cells（5,6）にアクセスできるようにしたいのですか。それ以外に何ができるか分かりません。何か案は？ありがとうございました！

Answer 1

VBA IDEを開いてVBAProjectのThisWorkbook項目を選択すると、配置する必要があります。その項目をダブルクリックして開きます。左上のドロップダウンリストで「ワークブック」を選択し、右上のドロップダウンで「開く」を選択します。 Workbook_Open SubはThisWorkbookオブジェクトに作成されます。

Private Sub Workbook_Open() 
    Set trees = ThisWorkbook.Sheets("Sheet1") 
End Sub 

VBAProjectとAdd Moduleを右クリックします。そのモジュールでは、グローバル変数を設定します。

Public trees As Worksheet 

次に、フォームを作成してボタンをダブルクリックします。私の場合は

：これは、ボタンイベントを生成します

今

Private Sub CommandButton1_Click() 
    trees.Cells(1, 1) = Me.TextTreeName 
    trees.Cells(1, 2) = Me.TextTreeType 
End Sub 

は、Excelワークブックを（最初のコードと、ブックを保存）閉鎖とのWorkbook_Open（ワークブックを再度開く場合）でのキックとなりますワークシートを設定します。フォームに電話し、ボタンをクリックします。これは、指定されたシート上の2つのセルを埋めるでしょう....