Public 从用户窗体到模块的数组为空，但在用户窗体内部它获取值

Question

我运行遇到了一个奇怪的问题。我有 2 个 Userform，起初 Userform2 在 Userform1 里面，但我没能做到运行。之后，我在我的模块调用 Userform2 中创建了一个 Sub，然后其他一次 Userform1 完成。

问题是 Userform2 是一个多选 Listbox，我将每个选择保存在一个数组中，当 Userform2 卸载时，该数组似乎是空的。

我已经检查了几个小时很多错误，例如：我没有明确的选项，但代码很短，我在我的代码中查找数组，它只出现在我想要的确切部分.

public 数组作为变体都不是问题，因为它在用户窗体之外，在原始模块中。

我来自智利，所以有些变量的名字是西班牙语，我的英语可能不太好，我会尽力解释我自己。

代码如下：

 Global lenarrv
 Global Arrver
 Global BoxPMData
 Global anno
 Global PMDATAarray
 Global LenPMDArray
 Public varfamilia As Variant
 Public pampm As Variant



  Sub AbrirMaestro(ByVal anno As Variant)
  Application.ScreenUpdating = False



  UserForm1.Show
  UserForm2.Show

  Dim Arrver() As Variant
  Dim lenarrv As Long

  contentosrcontento = 1
  lenarrv = UBound(pampm)
  For tt = 0 To lenarrv - 1
     ReDim Arrver(contentosrcontento)
     Arrver(contentosrcontento) = pampm(tt)
     contentosrcontento = contentosrcontento + 1
  Next tt

  lenarrv = UBound(Arrver)

  Inputbox_PMDATA anno
  End Sub

用户表单来了：

 Private Sub UserForm_Activate()
     Me.StartUpPosition = 1
     Me.Left = Application.Left + Application.Width - Me.Width - 400
 End Sub

 Private Sub UserForm_Initialize()
 Dim listaitems As Variant
 Workbooks("MAESTROS.xlsx").Activate
 numerofilas = Workbooks("MAESTROS.xlsx").Sheets("VERTICALES").Cells(2, 1).End(xlDown).Row
 listaitems = Workbooks("MAESTROS.xlsx").Sheets("VERTICALES").Range("A2:A" & numerofilas)

 listaitems = Application.WorksheetFunction.Transpose(listaitems)

     For h = 1 To numerofilas - 1
         ListBox1.AddItem listaitems(h)
     Next h
 Workbooks("MAESTROS.xlsx").Close False

 End Sub


 Public Sub CommandButton1_Click()

 Dim i As Integer
 Dim count As Integer



 count = 1
 For i = 0 To ListBox1.ListCount - 1
     If ListBox1.Selected(i) = True Then
             ReDim pampm(count)
             pampm(i) = ListBox1.List(i)
             count = count + 1
     End If
 Next i


 Unload UserForm2

 End Sub

这里是 UserForm1 :

 Private Sub UserForm_Activate()
     Me.StartUpPosition = 1
     Me.Left = Application.Left + Application.Width - Me.Width - 400
 End Sub
 Private Sub UserForm_Initialize()
 Dim ListItems As Variant
 MsgBox ("Elegir el archivo MAESTRO")
 Master = Application.GetOpenFilename(MultiSelect:=False)

 isBool = VarType(Master) = vbBoolean
 If isBool Then If Not Master Then End

 Application.ScreenUpdating = False

 Set abrirlibro = Workbooks.Open(Master)
 numrows = abrirlibro.Worksheets("MASTERFAMILIA").Cells(2, 2).End(xlDown).Row
 ListItems = abrirlibro.Worksheets("MASTERFAMILIA").Range("B2:B" & numrows)

 ListItems = Application.WorksheetFunction.Transpose(ListItems)
         For i = 1 To numrows - 1
             ComboBox1.AddItem ListItems(i) ' populate the listbox
         Next i
 'abrirlibro.Close False
 'Set abrirlibro = Nothing
 End Sub

 Public Sub CommandButton1_Click()

 varfamilia = ComboBox1.value
 Unload UserForm1

 End Sub

我无法通过完整代码，因为有超过 2k 行..

欢迎任何帮助。

您好！

Answer 1

你必须改变

Public pampm As Variant

到

Public pampm() As Variant

和

ReDim pampm(count)

到

ReDim Preserve pampm(count)

Public 从用户窗体到模块的数组为空，但在用户窗体内部它获取值

Public array from an userform to module is empty, but inside the userform it get the values

arrays

vba

module

public

userform