VBA-update public array von userform

Ich habe eine VBA-Sub, erstellen und verarbeiten eines Arrays:

Option Base 1
Public myArr(20, 10) As Variant

Sub Stackoverflow()
Dim x, y As Integer
    'Put some values to array (only in the first 15 rows)
    For x = 1 To 15
        For y = 1 To 10
            myArr(x, y) = (x * y + 8)
        Next y
    Next x
End Sub

Dann gibt es eine userform mit einem commandbutton, der sollte in der Lage sein zu handhaben, das array myArr.

Private Sub commandbutton_Click()
Dim a, b As Integer
    'Put some other values in the remaining rows
    For a = 16 To 20
        For b = 1 To 10
            myArr(a, b) = (a * b + 3)
        Next b
    Next a
End Sub

Wie kann ich das array übergeben, um die userform? Und wie der Sub können das aktualisierte array?
Dank

  • Derzeit aktualisieren Sie den Endabschnitt des Arrays aus der UserForm. Ist das nicht der code für Sie arbeiten? Es funktionierte gut für mich
  • Weil 'myArr' ist die öffentlichkeit, die Sie nicht brauchen, zu übergeben Sie es als parameter an das Formular; Sie können es einfach verwenden. Weil es öffentlich ist, ist immer verfügbar, verwendet werden (welche Werte enthalten sind, innerhalb des array ist eine andere Geschichte).
InformationsquelleAutor Paolo Cesari | 2012-02-02
  1. 0

    Dein code funktionierte perfekt für mich, einmal hatte ich es beendet. Ich kann nur annehmen, dass Sie nicht wissen, wie Sie zum aufrufen der userform.

    Kopierte ich Ihre Stackoverflow() zu einem Modul ohne änderungen.

    Dem gleichen Modul fügte ich hinzu:

    Sub Main()

  Dim RowMyArr As Long
  Dim ColMyArr As Long

  Load UserForm1

  Call Stackoverflow

  UserForm1.Show

  Debug.Print "    ";
  For ColMyArr = LBound(myArr, 1) To UBound(myArr, 1)
    Debug.Print Right("   " & ColMyArr, 4) & " ";
  Next
  Debug.Print

  For RowMyArr = LBound(myArr, 2) To UBound(myArr, 2)
    Debug.Print Right("  " & RowMyArr, 3) & " ";
    For ColMyArr = LBound(myArr, 1) To UBound(myArr, 1)
      Debug.Print Right("   " & myArr(ColMyArr, RowMyArr), 4) & " ";
    Next
    Debug.Print
  Next

End Sub

    Ich habe einen Benutzer erstellt form und nicht die Standard-Namen von UserForm1. Ich habe eine Schaltfläche mit der Bezeichnung commandbutton und kopiert den code des Formulars code-Bereich. Vor der End Sub ich Hinzugefügt Unload UserForm1 zu schließen und beenden Sie das Formular.

    Ich lief Haupt-und die folgende Ausgabe im Direktfenster:

           1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20 
  1    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   19   20   21   22   23 
  2   10   12   14   16   18   20   22   24   26   28   30   32   34   36   38   35   37   39   41   43 
  3   11   14   17   20   23   26   29   32   35   38   41   44   47   50   53   51   54   57   60   63 
  4   12   16   20   24   28   32   36   40   44   48   52   56   60   64   68   67   71   75   79   83 
  5   13   18   23   28   33   38   43   48   53   58   63   68   73   78   83   83   88   93   98  103 
  6   14   20   26   32   38   44   50   56   62   68   74   80   86   92   98   99  105  111  117  123 
  7   15   22   29   36   43   50   57   64   71   78   85   92   99  106  113  115  122  129  136  143 
  8   16   24   32   40   48   56   64   72   80   88   96  104  112  120  128  131  139  147  155  163 
  9   17   26   35   44   53   62   71   80   89   98  107  116  125  134  143  147  156  165  174  183 
 10   18   28   38   48   58   68   78   88   98  108  118  128  138  148  158  163  173  183  193  203

    Habe ich nicht überprüft, die Werte, aber ich nehme an, Sie sind richtig.

    • Ihre Antwort ist ebenso einfach wie das, was ich meine! Vielen Dank!
    InformationsquelleAutor Tony Dallimore
  2. -1

    Seine einen öffentlichen Bereich, zugänglich von jedem beliebigen Formular in Ihrer Anwendung . . . warum muss man es überhaupt?
    Dieser beschreibt, wie Sie parameter übergeben, um Formulare in access vba.

    Die übergabe von Parametern zwischen Formularen in MS Access

    InformationsquelleAutor Romeo
Schreibe einen Kommentar