Module内のsubから変数を取ってExcel VBAを使ったUserFormの別のSubで使用する方法

Question

これを見てみましたが、私はまだVBAを初めて使っていて、かなり混乱しています。 1つのサブ変数から変数を取得し、別のサブ変数で使用する方法を理解できません。

変数ListBox1ItemsをGetListBox1Itemsから、cbSave_Clickに使用したいとします。 Set oNewRow = Selection.ListObject.ListRows.Add(1)にエラーが表示され続けます。私はDim ListBox1Items As StringとPublic ListBox1Items As Stringを試しましたが、それは役に立ちません。

サブモジュールのモジュールの位置はありますか？ GetListBox1Itemsはモジュール内にあります。 cbSave_Clickはユーザーフォームにあります。

タイプを使用して検索しましたが、混乱します。

Private Sub cbSave_Click() 
Dim oNewRow As ListRow 
Dim rng As Range 
Set rng = ThisWorkbook.Worksheets("Creatures").Range("MonsterList") 
Set oNewRow = Selection.ListObject.ListRows.Add(1) 


With ws 

Call GetListBox1 

oNewRow.Range.Cells(1, 24).Value = Me.StatBox1.Value 
oNewRow.Range.Cells(1, 35).Value = ListBox1Items 

End With 
End Sub 

とGetListBox1が続く抽象例取る

Sub GetListBox1() 
Dim SelectedItems As String 
Dim ListBox1Items As String 


With MonsterMaker 
    For i = 0 To .ListBox1.ListCount - 1 
     If .ListBox1.Selected(i) = True Then 
      SelectedItems = SelectedItems & .ListBox1.List(i) & ", " 
     End If 
    Next i 

    ListBox1Items = Left(SelectedItems, Len(SelectedItems) - 2) 


End With 
End Sub 

Answer 1

ある：

標準モジュールコード：ユーザーフォームのコードで

Option Explicit 
Public ListBoxItems As String 'GLOBAL 

Sub GetListBoxItems() 

    Dim selectedItems As String 
    Dim i as long 

    With ThisWorkBook.Worksheets("Sheet1").OLEObjects("ListBox1").Object 'amend as appropriate 
     For i = 0 to .ListCount-1 
      If .Selected(i) Then 
       selectedItems = selectedItems & .List(i) & ", " 
      End If 
     Next i 
     ListBoxItems = Left$(selectedItems,Len(selectedItems)-2) 
    End With 

End Sub 

：

Private Sub cbSave_Click() 
    Call GetListBoxItems 
    Debug.Print ListBoxItems 
End Sub 

を